DateAndTime.DateAdd Metoda

Definice

Obor názvů:

Microsoft.VisualBasic

Sestavení:

Microsoft.VisualBasic.Core.dll

Date Vrátí hodnotu obsahující hodnotu data a času, ke které byl přidán zadaný časový interval.

Přetížení

DateAdd(DateInterval, Double, DateTime)	Vrátí hodnotu obsahující hodnotu data a času, ke které byl přidán zadaný časový interval.
DateAdd(String, Double, Object)	Vrátí hodnotu obsahující hodnotu data a času, ke které byl přidán zadaný časový interval.

DateAdd(DateInterval, Double, DateTime)

Zdroj:

DateAndTime.vb

Vrátí hodnotu obsahující hodnotu data a času, ke které byl přidán zadaný časový interval.

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

Parametry

Interval

DateInterval

Povinná hodnota. Hodnota DateInterval výčtu nebo řetězcový výraz představující časový interval, který chcete přidat.

Number

Double

Povinná hodnota. Výraz s plovoucí desetinou čárkou představující počet intervalů, které chcete přidat. Může být kladný (pro získání hodnot data a času v budoucnosti) nebo záporný (pokud chcete získat hodnoty data a času v minulosti). Pokud určuje hodiny, minuty nebo sekundy, může obsahovat zlomkovou část Interval . U ostatních hodnot se Intervalignoruje jakákoli zlomková část Number .

DateValue

DateTime

Povinná hodnota. Výraz představující datum a čas, ke kterým má být interval přidán. DateValue se nemění ve volajícím programu.

Návraty

DateTime

Hodnota obsahující hodnotu data a času, ke které byl přidán zadaný časový interval.

Výjimky

InvalidCastException

DateValue není vynucené na Date.

ArgumentException

Interval není platný.

ArgumentOutOfRangeException

Počítané datum je před 00:00:00 1. ledna roku 1 nebo později než 23:59:59 31. prosince 9999.

Příklady

Tento příklad používá datum a pomocí DateAdd funkce zobrazí odpovídající datum zadaný počet měsíců v budoucnosti.

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)

Poznámky

Pomocí funkce můžete DateAdd přičíst nebo odečíst zadaný časový interval od data. Můžete například vypočítat datum o 30 dnech od dnešního dne nebo o 45 minut dříve.

Pokud chcete přidat dny do DateValue, můžete použít DateInterval.Day, DateInterval.DayOfYearnebo DateInterval.Weekday. Ty jsou považovány za ekvivalentní, protože DayOfYear a Weekday nejsou smysluplné časové intervaly.

Funkce DateAdd nikdy nevrací neplatné datum. V případě potřeby se část dne výsledného data upraví směrem dolů k poslednímu dni výsledného měsíce ve výsledném roce. Následující příklad přidá jeden měsíc do 31. ledna:

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

V tomto příkladu DateAdd vrátí , #2/28/1995#ne #2/31/1995#. Pokud DateValue je #1/31/1996#, vrátí #2/29/1996# se, protože 1996 je přestupný rok.

Poznámka

DateAdd používá aktuální nastavení kalendáře z CurrentCulture vlastnosti CultureInfo třídy v System.Globalization oboru názvů . Výchozí CurrentCulture hodnoty jsou určeny nastavením Ovládací panely.

Vzhledem k tomu, že každá Date hodnota je podporována strukturou DateTime , její metody poskytují další možnosti při přidávání časových intervalů. Můžete například přidat desetinný počet dní zaokrouhlený na nejbližší milisekundu Date do proměnné následujícím způsobem:

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

Argument Interval může mít jedno z následujících nastavení.

Výčtová hodnota	Řetězec	Jednotka časového intervalu pro přidání
DateInterval.Day	d	Den; zkrácený na celočíselnou hodnotu
DateInterval.DayOfYear	y	Den; zkrácený na celočíselnou hodnotu
DateInterval.Hour	h	Hodinu; zaokrouhleno na nejbližší milisekundu
DateInterval.Minute	n	Minutu; zaokrouhleno na nejbližší milisekundu
DateInterval.Month	m	Měsíc; zkráceno na celočíselnou hodnotu
DateInterval.Quarter	q	Čtvrtletí; zkráceno na celočíselnou hodnotu
DateInterval.Second	s	Druhé; zaokrouhleno na nejbližší milisekundu
DateInterval.Weekday	w	Den; zkrácený na celočíselnou hodnotu
DateInterval.WeekOfYear	ww	Týden; zkráceno na celočíselnou hodnotu
DateInterval.Year	rrrr	Rok; zkráceno na celočíselnou hodnotu

Viz také

• DateDiff
• DatePart
• Day(DateTime)
• Format(Object, String)
• Now
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• Souhrn datových typů (Visual Basic)

DateAdd(String, Double, Object)

Zdroj:

DateAndTime.vb

Vrátí hodnotu obsahující hodnotu data a času, ke které byl přidán zadaný časový interval.

public:
 static DateTime DateAdd(System::String ^ Interval, double Number, System::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

Parametry

Interval

String

Povinná hodnota. Hodnota DateInterval výčtu nebo řetězcový výraz představující časový interval, který chcete přidat.

Number

Double

Povinná hodnota. Výraz s plovoucí desetinou čárkou představující počet intervalů, které chcete přidat. Number může být kladný (pro získání hodnot data a času v budoucnosti) nebo záporná (pro získání hodnot data a času v minulosti). Pokud určuje hodiny, minuty nebo sekundy, může obsahovat zlomkovou část Interval . U ostatních hodnot se Intervalignoruje jakákoli zlomková část Number .

DateValue

Object

Povinná hodnota. Výraz představující datum a čas, ke kterým má být interval přidán. DateValue se nemění ve volajícím programu.

Návraty

DateTime

Hodnota obsahující hodnotu data a času, ke které byl přidán zadaný časový interval.

Výjimky

InvalidCastException

DateValue není vynucené na Date.

ArgumentException

Interval není platný.

ArgumentOutOfRangeException

Počítané datum je před 00:00:00 1. ledna roku 1 nebo později než 23:59:59 31. prosince 9999.

Příklady

Tento příklad používá datum a pomocí DateAdd funkce zobrazí odpovídající datum zadaný počet měsíců v budoucnosti.

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)

Poznámky

Pomocí funkce můžete DateAdd přičíst nebo odečíst zadaný časový interval od data. Můžete například vypočítat datum o 30 dnech od dnešního dne nebo o 45 minut dříve.

Pokud chcete přidat dny do DateValue, můžete použít DateInterval.Day, DateInterval.DayOfYearnebo DateInterval.Weekday. Ty jsou považovány za ekvivalentní, protože DayOfYear a Weekday nejsou smysluplné časové intervaly.

Funkce DateAdd nikdy nevrací neplatné datum. V případě potřeby se část dne výsledného data upraví směrem dolů k poslednímu dni výsledného měsíce ve výsledném roce. Následující příklad přidá jeden měsíc do 31. ledna:

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

V tomto příkladu DateAdd vrátí , #2/28/1995#ne #2/31/1995#. Pokud DateValue je #1/31/1996#, vrátí #2/29/1996# se, protože 1996 je přestupný rok.

Poznámka

DateAdd používá aktuální nastavení kalendáře z CurrentCulture vlastnosti CultureInfo třídy v System.Globalization oboru názvů . Výchozí CurrentCulture hodnoty jsou určeny nastavením Ovládací panely.

Vzhledem k tomu, že každá Date hodnota je podporována strukturou DateTime , její metody poskytují další možnosti při přidávání časových intervalů. Můžete například přidat desetinný počet dní zaokrouhlený na nejbližší milisekundu Date do proměnné následujícím způsobem:

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

Argument Interval může mít jedno z následujících nastavení.

Výčtová hodnota	Řetězec	Jednotka časového intervalu pro přidání
DateInterval.Day	d	Den; zkrácený na celočíselnou hodnotu
DateInterval.DayOfYear	y	Den; zkrácený na celočíselnou hodnotu
DateInterval.Hour	h	Hodinu; zaokrouhleno na nejbližší milisekundu
DateInterval.Minute	n	Minutu; zaokrouhleno na nejbližší milisekundu
DateInterval.Month	m	Měsíc; zkráceno na celočíselnou hodnotu
DateInterval.Quarter	q	Čtvrtletí; zkráceno na celočíselnou hodnotu
DateInterval.Second	s	Druhé; zaokrouhleno na nejbližší milisekundu
DateInterval.Weekday	w	Den; zkrácený na celočíselnou hodnotu
DateInterval.WeekOfYear	ww	Týden; zkráceno na celočíselnou hodnotu
DateInterval.Year	rrrr	Rok; zkráceno na celočíselnou hodnotu

Viz také

• DateDiff
• DatePart
• Day(DateTime)
• Format(Object, String)
• Now
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• Souhrn datových typů (Visual Basic)