DateAndTime.DateAdd Метод

Исходный код:

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

Параметры

Возвращаемое значение

Значение, содержащее дату и время, к которым был добавлен заданный период времени.

Исключения

Примеры

В этом примере используется дата и с помощью 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 никогда не возвращает недопустимую дату. При необходимости часть дня итоговой даты корректируется в сторону последнего дня результирующего месяца в результирующем году. В следующем примере к 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 год является високосным годом.

Так как каждое Date значение поддерживается структурой DateTime , ее методы предоставляют дополнительные возможности для добавления интервалов времени. Например, можно добавить дробное число дней, округленное до ближайшей миллисекунды, к переменной Date следующим образом:

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

Аргумент Interval может иметь один из следующих параметров.

См. также раздел

• DateDiff
• DatePart
• Day(DateTime)
• Format(Object, String)
• Now
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• Сводка типов данных (Visual Basic)

Исходный код:

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

Параметры

Возвращаемое значение

Значение, содержащее дату и время, к которым был добавлен заданный период времени.

Исключения

Примеры

В этом примере используется дата и с помощью 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 никогда не возвращает недопустимую дату. При необходимости часть дня итоговой даты корректируется в сторону последнего дня результирующего месяца в результирующем году. В следующем примере к 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 год является високосным годом.

Так как каждое Date значение поддерживается структурой DateTime , ее методы предоставляют дополнительные возможности для добавления интервалов времени. Например, можно добавить дробное число дней, округленное до ближайшей миллисекунды, к переменной Date следующим образом:

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

Аргумент Interval может иметь один из следующих параметров.

См. также раздел

• DateDiff
• DatePart
• Day(DateTime)
• Format(Object, String)
• Now
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• Сводка типов данных (Visual Basic)