DateAndTime.DateAdd Metoda

Definice

Obor názvů:

Microsoft.VisualBasic

Sestavení:

Microsoft.VisualBasic.Core.dll

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

Přetížení

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

DateAdd(DateInterval, Double, DateTime)

Zdroj:

DateAndTime.vb

Vrátí hodnotu obsahující hodnotu data a času, do 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é. DateInterval Hodnota výčtu nebo řetězcový výraz představující časový interval, který chcete přidat.

Number

Double

Povinné. Výraz s plovoucí desetinou čárkou představující počet intervalů, které chcete přidat. Může to být kladné (získání hodnot data a času v budoucnu) nebo záporné (získání hodnot data a času v minulosti). Může obsahovat zlomkovou část, pokud Interval určuje hodiny, minuty nebo sekundy. U jiných hodnot Intervalje jakákoli část zlomku Number ignorována.

DateValue

DateTime

Povinné. Výraz představující datum a čas, ke kterému se má interval přidat. DateValue není v volajícím programu změněn.

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ější než 23:59:59 dne 31. prosince 9999.

Příklady

Tento příklad vezme datum a pomocí DateAdd funkce zobrazí odpovídající datum zadaného počtu měsíců v budoucnu.

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

Funkci můžete použít DateAdd k sčítání nebo odčítání zadaného časového intervalu od data. Můžete například vypočítat datum 30 dnů od dnešního dne nebo 45 minut před tím.

Chcete-li přidat dny, DateValuemůžete použít DateInterval.Day, DateInterval.DayOfYearnebo DateInterval.Weekday. Jsou považovány za ekvivalentní, protože DayOfYearWeekday a nejsou smysluplné časové intervaly.

Funkce DateAdd nikdy nevrátí 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#hodnotu , nikoli #2/31/1995#. Pokud DateValue ano #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ích panelů .

Vzhledem k tomu, že struktura podporuje DateTime každou Date hodnotu, poskytují její metody další možnosti v 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	String	Jednotka časového intervalu pro přidání
DateInterval.Day	d	Den; zkráceno na celočíselnou hodnotu
DateInterval.DayOfYear	y	Den; zkráceno 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áceno na celočíselnou hodnotu
DateInterval.WeekOfYear	Ww	Týden; zkráceno na celočíselnou hodnotu
DateInterval.Year	yyyy	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, do 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é. DateInterval Hodnota výčtu nebo řetězcový výraz představující časový interval, který chcete přidat.

Number

Double

Povinné. 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 budoucnu) nebo záporné (pro získání hodnot data a času v minulosti). Může obsahovat zlomkovou část, pokud Interval určuje hodiny, minuty nebo sekundy. U jiných hodnot Intervalje jakákoli část zlomku Number ignorována.

DateValue

Object

Povinné. Výraz představující datum a čas, ke kterému se má interval přidat. DateValue není v volajícím programu změněn.

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ější než 23:59:59 dne 31. prosince 9999.

Příklady

Tento příklad vezme datum a pomocí DateAdd funkce zobrazí odpovídající datum zadaného počtu měsíců v budoucnu.

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

Funkci můžete použít DateAdd k sčítání nebo odčítání zadaného časového intervalu od data. Můžete například vypočítat datum 30 dnů od dnešního dne nebo 45 minut před tím.

Chcete-li přidat dny, DateValuemůžete použít DateInterval.Day, DateInterval.DayOfYearnebo DateInterval.Weekday. Jsou považovány za ekvivalentní, protože DayOfYearWeekday a nejsou smysluplné časové intervaly.

Funkce DateAdd nikdy nevrátí 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#hodnotu , nikoli #2/31/1995#. Pokud DateValue ano #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ích panelů .

Vzhledem k tomu, že struktura podporuje DateTime každou Date hodnotu, poskytují její metody další možnosti v 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	String	Jednotka časového intervalu pro přidání
DateInterval.Day	d	Den; zkráceno na celočíselnou hodnotu
DateInterval.DayOfYear	y	Den; zkráceno 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áceno na celočíselnou hodnotu
DateInterval.WeekOfYear	Ww	Týden; zkráceno na celočíselnou hodnotu
DateInterval.Year	yyyy	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)