VBScript函式補習課 (轉)

VBScript函式補習課 (轉)[@more@]

最近在看CSDN論壇的時候發現很多人還在問一些基本的問題，而且有很大一部分是圍繞著一些常用的。在這裡我想有必要點一下常用的幾個函式。我們不需要背出函式定義，但是我們需要知道這個函式，在必要的時候想到去用。

1、我怎麼在一個日期上加上一個日期？

DateAdd( interval , number , date )

引數

interval 必選項。字串，表示要新增的時間間隔。
number 必選項。數值表示式，表示要新增的時間間隔的個數。數值表示式可以是正數（得到未來的日期）或負數（得到過去的日期）。
date 必選項。 Variant 或要新增 interval 的表示日期的文字。

interval 引數可以有以下值:

yyyy  年 
q  季度 
m  月 
y  一年的日數 
d  日 
w  一週的日數 
ww  周 
h  小時 
n  分鐘 
s  秒 

例子：Date= DateAdd( "m" , 1 , "31-01-2004" ) 得出的結果是 2004年2月31日？呵呵，不是，是2004年2月29日，DateAdd()不會返回錯誤的日期

2、我怎麼得到兩個日期的時間間隔？

DateDiff( interval , date1 , date2)

引數

interval 必選項。字串表示式表示用於計算 date1 和 date2 之間的時間間隔。
date1, date2 必選項。日期表示式。用於計算的兩個日期。

interval 引數可以有以下值：

設定 描述 
yyyy  年 
q  季度 
n  月 
y  一年的日數 
d  日 
w  一週的日數 
ww  周 
h  小時 
m  分鐘 
s  秒 

例子： DiffDate=DateDiff( "d" , Now , "31-01-2004" )

3、我怎麼精確我的計算結果？

FormatNumber( expression [, NumDigitsAfterDecimal [, IncludeLeadingDigit [, UseParenorNegativeNumbers [, GroupDigits ]]]] )

引數
Expression 必選項。要被格式化的表示式。
NumDigitsAfterDecimal 可選項。指示小數點右側顯示位數的數值。預設值為 -1，指示使用的是的區域設定。
IncludeLeadingDigit 可選項。三態常數，指示是否顯示小數值小數點前面的零。
UseParensForNegativeNumbers 可選項。三態常數，指示是否將負值置於括號中。
GroupDigits 可選項。三態常數，指示是否使用計算機區域設定中指定的數字分組符號將數字分組。
設定
IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 引數可以有以下值：

常數 值 描述 
TristateTrue  -1  True 
TristateFalse  0  False 
TristateUseDefault  -2  使用計算機區域設定中的設定。 

例子：將1/3格式化為四位小數，帶小數點前0的格式 FormatNumber(1/3, 4,-1)

4、我怎麼得到現在的時間、日期、年份、月份等？

時間:Now()
日期:Date()
年份:Year(Date())
月份:Month(Date())
天數:Day(Date()))
小時:Hour(now())
分鐘:Minute(Now())
秒:Second(Now())

5、我怎麼把從讀出的新聞標題顯示部分？

Left( string , length )

引數
string 字串表示式，其最左邊的字元被返回。
Length 數值表示式，指明要返回的字元數目。如果是 0，返回零長度字串 ("")；如果大於或等於 string 引數中的字元總數，則返回整個字串
Len( string | varname )

引數
string 任意有效的字串表示式。Varname 任意有效的變數名。

假設新聞標題為rs("topic")，我們只想輸出10個字元，對於少於10個字元的則輸出全部，那麼我們這麼寫：
if Len(rs("topic"))>10 then
Response.Write Left(rs("topic"),8)&"..." '也不要一定8，怎麼好看怎麼設定，因為後面加了...所以我們少擷取一些
else
Reponnse.Write rs("topic")
end if
%>

同學們，下課：）