Excel VBA高級編程:VBA日期的加減函數

07-20

Excel VBA高級編程:VBA日期的加減函數http://www.pooban.com/html/01/n-67601.html

發布: 2009-2-06 08:36 作者: 網路轉載來源: 網路轉載查看: 846次共有0條評論

返回包含一個日期的Variant(Date)，這一日期還加上了一段時間間隔。

語法

DateAdd(interval, number, date)

DateAdd函數語法中有下列命名參數：

部分	描述
interval	必要。字元串表達式，是所要加上去的時間間隔。
number	必要。數值表達式，是要加上的時間間隔的數目。其數值可以為正數（得到未來的日期），也可以為負數（得到過去的日期）。
date	必要。Variant(Date) 或表示日期的文字，這一日期還加上了時間間隔。

設置

interval參數具有以下設定值：

說明

可以使用DateAdd函數對日期加上或減去指定的時間間隔。例如，可以用DateAdd來計算距今天為三十天的日期；或者計算距現在為 45 分鐘的時間。

為了對date加上「日」，可以使用「一年的日數」 (「y」)，「日」 (」d」) 或「一周的日數」 (」w」)。

DateAdd函數將不返回有效日期。在以下實例中將 1 月31 日加上一個月：

DateAdd(m, 1, 31-Jan-95)

上例中，DateAdd返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果date是 1996 年 1 月 31 日，則由於 1996 年是閏年，返回值是 1996 年 2 月 29 日。

如果計算的日期超前 100 年（減去的年度超過date中的年份），就會導致錯誤發生。

如果number不是一個 Long 值，則在計算時取最接近的整數值來計算。

注意DateAdd返回值的格式由Control Panel設置決定，而不是由傳遞到date參數的格式決定。

DateAdd 函數示例

本示例先取得一個日期，再用DateAdd函數顯示未來數月後的日期。

Dim FirstDate As Date "聲明變數。Dim IntervalType As StringDim