DateAndTime.DateAdd Yöntem

Kaynak:

DateAndTime.vb

Kaynak:

DateAndTime.vb

Kaynak:

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

Parametreler

Döndürülenler

Belirtilen zaman aralığının eklendiği tarih ve saat değerini içeren bir değer.

Özel durumlar

Örnekler

Bu örnek bir tarih alır ve işlevini kullanarak DateAdd gelecekte belirtilen sayıda ay için karşılık gelen tarihi görüntüler.

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)

Açıklamalar

Belirtilen zaman aralığını bir tarihe eklemek veya çıkarmak için işlevini kullanabilirsiniz DateAdd . Örneğin, bugünden itibaren 30 gün veya bundan 45 dakika önce bir tarih hesaplayabilirsiniz.

öğesine gün eklemek için DateValue, DateInterval.DayOfYearveya DateInterval.WeekdaykullanabilirsinizDateInterval.Day. Bunlar, anlamlı zaman aralıkları olmadığından eşdeğer DayOfYearWeekday olarak değerlendirilir.

İşlev DateAdd hiçbir zaman geçersiz bir tarih döndürmez. Gerekirse, sonuçta elde edilen tarihin gün kısmı, sonuçta elde edilen yılın son gününe doğru aşağı doğru ayarlanır. Aşağıdaki örnek 31 Ocak'a bir ay ekler:

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

Bu örnekte , DateAdd değil #2/31/1995#döndürür#2/28/1995#. ise DateValue#1/31/1996#, 1996 artık yıl olduğundan döndürür #2/29/1996# .

Her Date değer bir DateTime yapı tarafından desteklendiğinden, yöntemleri size zaman aralıkları eklemede ek seçenekler sağlar. Örneğin, bir değişkene aşağıdaki gibi en yakın milisaniyeye yuvarlanmış kesirli gün Date sayısı ekleyebilirsiniz:

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

Bağımsız Interval değişken aşağıdaki ayarlardan birine sahip olabilir.

Ayrıca bkz.

• DateDiff
• DatePart
• Day(DateTime)
• Format(Object, String)
• Now
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• Veri Türü Özeti (Visual Basic)

Kaynak:

DateAndTime.vb

Kaynak:

DateAndTime.vb

Kaynak:

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

Parametreler

Döndürülenler

Belirtilen zaman aralığının eklendiği tarih ve saat değerini içeren bir değer.

Özel durumlar

Örnekler

Bu örnek bir tarih alır ve işlevini kullanarak DateAdd gelecekte belirtilen sayıda ay için karşılık gelen tarihi görüntüler.

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)

Açıklamalar

Belirtilen zaman aralığını bir tarihe eklemek veya çıkarmak için işlevini kullanabilirsiniz DateAdd . Örneğin, bugünden itibaren 30 gün veya bundan 45 dakika önce bir tarih hesaplayabilirsiniz.

öğesine gün eklemek için DateValue, DateInterval.DayOfYearveya DateInterval.WeekdaykullanabilirsinizDateInterval.Day. Bunlar, anlamlı zaman aralıkları olmadığından eşdeğer DayOfYearWeekday olarak değerlendirilir.

İşlev DateAdd hiçbir zaman geçersiz bir tarih döndürmez. Gerekirse, sonuçta elde edilen tarihin gün kısmı, sonuçta elde edilen yılın son gününe doğru aşağı doğru ayarlanır. Aşağıdaki örnek 31 Ocak'a bir ay ekler:

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

Bu örnekte , DateAdd değil #2/31/1995#döndürür#2/28/1995#. ise DateValue#1/31/1996#, 1996 artık yıl olduğundan döndürür #2/29/1996# .

Her Date değer bir DateTime yapı tarafından desteklendiğinden, yöntemleri size zaman aralıkları eklemede ek seçenekler sağlar. Örneğin, bir değişkene aşağıdaki gibi en yakın milisaniyeye yuvarlanmış kesirli gün Date sayısı ekleyebilirsiniz:

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

Bağımsız Interval değişken aşağıdaki ayarlardan birine sahip olabilir.

Ayrıca bkz.

• DateDiff
• DatePart
• Day(DateTime)
• Format(Object, String)
• Now
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• Veri Türü Özeti (Visual Basic)