DateAndTime.DateAdd Método

Origem:

DateAndTime.vb

Origem:

DateAndTime.vb

Origem:

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

Parâmetros

Retornos

Um valor que contém um valor de data e hora ao qual um intervalo de tempo especificado foi adicionado.

Exceções

Exemplos

Este exemplo usa uma data e, usando a DateAdd função , exibe uma data correspondente com um número especificado de meses no futuro.

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)

Comentários

Você pode usar a DateAdd função para adicionar ou subtrair um intervalo de tempo especificado de uma data. Por exemplo, você pode calcular uma data de 30 dias a partir de hoje ou uma hora de 45 minutos antes de agora.

Para adicionar dias a DateValue, você pode usar DateInterval.Day, DateInterval.DayOfYearou DateInterval.Weekday. Eles são tratados como equivalentes porque DayOfYear e Weekday não são intervalos de tempo significativos.

A DateAdd função nunca retorna uma data inválida. Se necessário, a parte do dia da data resultante é ajustada para baixo até o último dia do mês resultante no ano resultante. O exemplo a seguir adiciona um mês a 31 de janeiro:

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

Neste exemplo, DateAdd retorna #2/28/1995#, não #2/31/1995#. Se DateValue for #1/31/1996#, retornará #2/29/1996# porque 1996 é um ano bissexto.

Como cada Date valor tem suporte de uma DateTime estrutura, seus métodos oferecem opções adicionais para adicionar intervalos de tempo. Por exemplo, você pode adicionar um número fracionário de dias, arredondado para o milissegundo mais próximo, a uma Date variável da seguinte maneira:

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

O Interval argumento pode ter uma das configurações a seguir.

Confira também

• DateDiff
• DatePart
• Day(DateTime)
• Format(Object, String)
• Now
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• Resumo do tipo de dados (Visual Basic)

Origem:

DateAndTime.vb

Origem:

DateAndTime.vb

Origem:

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

Parâmetros

Retornos

Um valor que contém um valor de data e hora ao qual um intervalo de tempo especificado foi adicionado.

Exceções

Exemplos

Este exemplo usa uma data e, usando a DateAdd função , exibe uma data correspondente com um número especificado de meses no futuro.

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)

Comentários

Você pode usar a DateAdd função para adicionar ou subtrair um intervalo de tempo especificado de uma data. Por exemplo, você pode calcular uma data de 30 dias a partir de hoje ou uma hora de 45 minutos antes de agora.

Para adicionar dias a DateValue, você pode usar DateInterval.Day, DateInterval.DayOfYearou DateInterval.Weekday. Eles são tratados como equivalentes porque DayOfYear e Weekday não são intervalos de tempo significativos.

A DateAdd função nunca retorna uma data inválida. Se necessário, a parte do dia da data resultante é ajustada para baixo até o último dia do mês resultante no ano resultante. O exemplo a seguir adiciona um mês a 31 de janeiro:

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

Neste exemplo, DateAdd retorna #2/28/1995#, não #2/31/1995#. Se DateValue for #1/31/1996#, retornará #2/29/1996# porque 1996 é um ano bissexto.

Como cada Date valor tem suporte de uma DateTime estrutura, seus métodos oferecem opções adicionais para adicionar intervalos de tempo. Por exemplo, você pode adicionar um número fracionário de dias, arredondado para o milissegundo mais próximo, a uma Date variável da seguinte maneira:

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

O Interval argumento pode ter uma das configurações a seguir.

Confira também

• DateDiff
• DatePart
• Day(DateTime)
• Format(Object, String)
• Now
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• Resumo do tipo de dados (Visual Basic)