共用方式為

DateAndTime.DateAdd 方法

  • 參考

定義

命名空間:
Microsoft.VisualBasic
組件:
Microsoft.VisualBasic.Core.dll
組件:
Microsoft.VisualBasic.dll

傳回包含日期和時間值，且已加入指定時間間隔的 Date 值。

多載

DateAdd(DateInterval, Double, DateTime)

傳回包含日期和時間值，且已加入指定時間間隔的值。
DateAdd(String, Double, Object)

傳回包含日期和時間值，且已加入指定時間間隔的值。

DateAdd(DateInterval, Double, DateTime)

來源:
DateAndTime.vb
來源:
DateAndTime.vb
來源:
DateAndTime.vb

傳回包含日期和時間值，且已加入指定時間間隔的值。

public:
 static DateTime DateAdd(Microsoft::VisualBasic::DateInterval Interval, double Number, DateTime DateValue);
public static DateTime DateAdd (Microsoft.VisualBasic.DateInterval Interval, double Number, DateTime DateValue);
static member DateAdd : Microsoft.VisualBasic.DateInterval * double * DateTime -> DateTime
Public Function DateAdd (Interval As DateInterval, Number As Double, DateValue As DateTime) As DateTime

參數

Interval
DateInterval

必要。 DateInterval 列舉值或字串運算式，表示您想要加入的時間間隔。

Number
Double

必要。 浮點運算式，表示您想要加入的間隔數； 它可以是正數 (表示取得未來的日期/時間值)，也可以是負數 (表示取得過去的日期/時間值)。 當 Interval 指定小時、分鐘或秒數時，它可以包含小數部分。 對於其他的 Interval 值而言，會忽略 Number 的任何小數部分。

DateValue
DateTime

必要。 運算式，表示要在其中加入間隔的日期和時間； DateValue 本身在呼叫程式中並不會變更。

傳回

DateTime

包含日期和時間值，且已加入指定時間間隔的值。

例外狀況

InvalidCastException

無法將 DateValue 強制為 Date。

ArgumentException

Interval 無效。

ArgumentOutOfRangeException

計算出的日期早於 1 年 1 月 1 日 00:00:00 或晚於 9999 年 12 月 31 日 23:59:59。

範例

此範例會採用日期，並使用 DateAdd 函式來顯示未來指定月份數的對應日期。

Dim dateEntered As String =
InputBox("Enter a date", DefaultResponse:=Date.Now.ToShortDateString)
Dim monthsEntered As String =
InputBox("Enter number of months to add", DefaultResponse:="12")

Dim dateValue As Date = Date.Parse(dateEntered)
Dim monthsValue As Integer = Integer.Parse(monthsEntered)

' Add the months to the date.
Dim newDate As Date = DateAdd(DateInterval.Month, monthsValue, dateValue)

' This statement has a string interval argument, and
' is equivalent to the above statement.
'Dim newDate As Date = DateAdd("m", monthsValue, dateValue)

MessageBox.Show("New date: " & newDate.ToShortDateString)

備註

您可以使用 函 DateAdd 式，從日期加入或減去指定的時間間隔。 例如，您可以計算從今天起算的日期 30 天，或從現在算起 45 分鐘的時間。

若要將天數新增至 DateValue，您可以使用 DateInterval.Day、 DateInterval.DayOfYear或 DateInterval.Weekday。 這些會被視為相等，因為 DayOfYear 和 Weekday 不是有意義的時間間隔。

函式 DateAdd 永遠不會傳回無效的日期。 如有必要，結果日期的日期部分會向下調整為產生的月份最後一天。 下列範例會在 1 月 31 日新增一個月：

Dim NextMonth As Date = DateAdd(DateInterval.Month, 1, #1/31/1995#)

在這裡範例中， DateAdd 會傳 #2/28/1995#回 ，而不是 #2/31/1995#。 如果 DateValue 為 #1/31/1996#，則會傳回 #2/29/1996# ，因為 1996 是閏年。

注意

DateAdd會從 CurrentCulture 命名空間中 System.Globalization 類別的 CultureInfo 屬性使用目前的行事曆設定。 默認值CurrentCulture取決於 控制台 設定。

由於結構支援DateTime每個Date值，因此其方法可讓您新增時間間隔中的其他選項。 例如，您可以將小數的天數四捨五入至最接近的毫秒，新增至 Date 變數，如下所示：

Dim NextTime As Date = Now        ' Current date and time.  
NextTime = NextTime.AddDays(3.4)  ' Increment by 3 2/5 days.

自 Interval 變數可以有下列其中一個設定。

列舉值 String 要新增的時間間隔單位
DateInterval.Day d 一天;截斷為整數值
DateInterval.DayOfYear y 一天;截斷為整數值
DateInterval.Hour h 小時;四捨五入為最接近毫秒
DateInterval.Minute n 分鐘;四捨五入為最接近毫秒
DateInterval.Month m 月;截斷為整數值
DateInterval.Quarter q 季度;截斷為整數值
DateInterval.Second s 第二;四捨五入為最接近毫秒
DateInterval.Weekday w 一天;截斷為整數值
DateInterval.WeekOfYear ww 周;截斷為整數值
DateInterval.Year yyyy 年;截斷為整數值

另請參閱

適用於

DateAdd(String, Double, Object)

來源:
DateAndTime.vb
來源:
DateAndTime.vb
來源:
DateAndTime.vb

傳回包含日期和時間值，且已加入指定時間間隔的值。

public:
 static DateTime DateAdd(System::String ^ Interval, double Number, System::Object ^ DateValue);
public static DateTime DateAdd (string Interval, double Number, object? DateValue);
public static DateTime DateAdd (string Interval, double Number, object DateValue);
static member DateAdd : string * double * obj -> DateTime
Public Function DateAdd (Interval As String, Number As Double, DateValue As Object) As DateTime

參數

Interval
String

必要。 DateInterval 列舉值或字串運算式，表示您想要加入的時間間隔。

Number
Double

必要。 浮點運算式，表示您想要加入的間隔數； Number 可以是正數，表示取得未來的日期/時間值，也可以是負數，表示取得過去的日期/時間值。 當 Interval 指定小時、分鐘或秒數時，它可以包含小數部分。 對於其他的 Interval 值而言，會忽略 Number 的任何小數部分。

DateValue
Object

必要。 運算式，表示要在其中加入間隔的日期和時間； DateValue 本身在呼叫程式中並不會變更。

傳回

DateTime

包含日期和時間值，且已加入指定時間間隔的值。

例外狀況

InvalidCastException

無法將 DateValue 強制為 Date。

ArgumentException

Interval 無效。

ArgumentOutOfRangeException

計算出的日期早於 1 年 1 月 1 日 00:00:00 或晚於 9999 年 12 月 31 日 23:59:59。

範例

此範例會採用日期，並使用 DateAdd 函式來顯示未來指定月份數的對應日期。

Dim dateEntered As String =
InputBox("Enter a date", DefaultResponse:=Date.Now.ToShortDateString)
Dim monthsEntered As String =
InputBox("Enter number of months to add", DefaultResponse:="12")

Dim dateValue As Date = Date.Parse(dateEntered)
Dim monthsValue As Integer = Integer.Parse(monthsEntered)

' Add the months to the date.
Dim newDate As Date = DateAdd(DateInterval.Month, monthsValue, dateValue)

' This statement has a string interval argument, and
' is equivalent to the above statement.
'Dim newDate As Date = DateAdd("m", monthsValue, dateValue)

MessageBox.Show("New date: " & newDate.ToShortDateString)

備註

您可以使用 函 DateAdd 式，從日期加入或減去指定的時間間隔。 例如，您可以計算從今天起算的日期 30 天，或從現在算起 45 分鐘的時間。

若要將天數新增至 DateValue，您可以使用 DateInterval.Day、 DateInterval.DayOfYear或 DateInterval.Weekday。 這些會被視為相等，因為 DayOfYear 和 Weekday 不是有意義的時間間隔。

函式 DateAdd 永遠不會傳回無效的日期。 如有必要，結果日期的日期部分會向下調整為產生的月份最後一天。 下列範例會在 1 月 31 日新增一個月：

Dim NextMonth As Date = DateAdd(DateInterval.Month, 1, #1/31/1995#)

在這裡範例中， DateAdd 會傳 #2/28/1995#回 ，而不是 #2/31/1995#。 如果 DateValue 為 #1/31/1996#，則會傳回 #2/29/1996# ，因為 1996 是閏年。

注意

DateAdd會從 CurrentCulture 命名空間中 System.Globalization 類別的 CultureInfo 屬性使用目前的行事曆設定。 默認值CurrentCulture取決於 控制台 設定。

由於結構支援DateTime每個Date值，因此其方法可讓您新增時間間隔中的其他選項。 例如，您可以將小數的天數四捨五入至最接近的毫秒，新增至 Date 變數，如下所示：

Dim NextTime As Date = Now        ' Current date and time.  
NextTime = NextTime.AddDays(3.4)  ' Increment by 3 2/5 days.

自 Interval 變數可以有下列其中一個設定。

列舉值 String 要新增的時間間隔單位
DateInterval.Day d 一天;截斷為整數值
DateInterval.DayOfYear y 一天;截斷為整數值
DateInterval.Hour h 小時;四捨五入為最接近毫秒
DateInterval.Minute n 分鐘;四捨五入為最接近毫秒
DateInterval.Month m 月;截斷為整數值
DateInterval.Quarter q 季度;截斷為整數值
DateInterval.Second s 第二;四捨五入為最接近毫秒
DateInterval.Weekday w 一天;截斷為整數值
DateInterval.WeekOfYear ww 周;截斷為整數值
DateInterval.Year yyyy 年;截斷為整數值

另請參閱

適用於