DateAndTime.DateSerial(Int32, Int32, Int32) Metoda

Definice

Obor názvů:
Microsoft.VisualBasic
Sestavení:
Microsoft.VisualBasic.dll

Date Vrátí hodnotu představující zadaný rok, měsíc a den s informacemi o čase nastaveném na půlnoc (00:00:00).

public:
 static DateTime DateSerial(int Year, int Month, int Day);
public static DateTime DateSerial(int Year, int Month, int Day);
static member DateSerial : int * int * int -> DateTime
Public Function DateSerial (Year As Integer, Month As Integer, Day As Integer) As DateTime

Parametry

Year
Int32

Required. Celočíselné výrazy od 1 do 9999. Nicméně hodnoty pod tímto rozsahem jsou také přijímány. Pokud Year je 0 až 99, interpretuje se jako mezi 1930 a 2029, jak je vysvětleno v části Poznámky. Pokud Year je menší než 1, odečte se od aktuálního roku.

Month
Int32

Required. Celočíselné výrazy od 1 do 12. Hodnoty mimo tento rozsah jsou však přijímány také. Hodnota Month je posunutá o 1 a použije se na leden počítaného roku. Jinými slovy, (Month - 1) se přidá do ledna. V případě potřeby se rok přepočítá. Tento efekt ilustrují následující výsledky:

Pokud Month je 1, výsledek je leden počítaného roku.

Pokud Month je 0, výsledek je prosinec předchozího roku.

Pokud Month je -1, výsledek je listopad předchozího roku.

Pokud Month je 13, výsledek je leden následujícího roku.

Day
Int32

Required. Celočíselné výrazy od 1 do 31. Hodnoty mimo tento rozsah jsou však přijímány také. Hodnota Day je posunutá o 1 a použije se na první den počítaného měsíce. Jinými slovy, (Day - 1) se přidá k prvnímu měsíci. V případě potřeby se měsíc a rok přepočítávají. Tento efekt ilustrují následující výsledky:

Pokud Day je 1, výsledkem je první den počítaného měsíce.

Pokud Day je 0, výsledkem je poslední den předchozího měsíce.

Pokud Day je -1, výsledkem je předposlední den předchozího měsíce.

Pokud Day je konec aktuálního měsíce za koncem, je výsledkem příslušný den následujícího měsíce. Pokud je například Month 4 a Day je 31, výsledek je 1. května.

Návraty

DateTime

Hodnota, která představuje zadaný rok, měsíc a den, s informacemi o čase nastaveném na půlnoc (00:00:00).

Příklady

Tento příklad používá DateSerial funkci k vrácení data pro zadaný rok, měsíc a den.

' DateSerial returns the date for a specified year, month, and day.
Dim aDate As Date
' Variable aDate contains the date for February 12, 1969.
aDate = DateSerial(1969, 2, 12)
Console.WriteLine(aDate)

' The following example uses DateSerial to determine and display
' the last day of the previous month.
' First, establish a starting date.
Dim startDate = #1/23/1994#
' The 0 for the day represents the last day of the previous month.
Dim endOfLastMonth = DateSerial(startDate.Year, startDate.Month, 0)
Console.WriteLine("Last day in the previous month: " & endOfLastMonth)

' The following example finds and displays the day of the week that the 
' 15th day of the following month will fall on.
Dim fifteenthsDay = DateSerial(Today.Year, Today.Month + 1, 15)
Console.WriteLine("The 15th of next month is a {0}", fifteenthsDay.DayOfWeek)

Poznámky

Dvouciferné hodnoty argumentu Year se interpretují na základě uživatelsky definovaných nastavení počítače. Výchozí nastavení je, že hodnoty od 0 do 29 se interpretují jako roky 2000–2029 a hodnoty od 30 do 99 se interpretují jako roky 1930–1999. Pokud chcete značit všechny ostatní roky, použijte čtyřciferný rok, například 1924.

Následující příklad ukazuje záporné, nulové a kladné hodnoty argumentů. DateSerial Funkce tady vrátí Date den před prvním dnem března v roce 10 let před aktuálním rokem; jinými slovy poslední den v únoru před deseti lety.

Dim EndFeb As Date = DateSerial(-10, 3, 0)

Pokud některý z těchto hodnot překročí MonthDay normální rozsah, použije se podle potřeby na další větší jednotku. Pokud zadáte například 32 dní, vyhodnotí se jako jeden měsíc a od jednoho do čtyř dnů v závislosti na hodnotě Month. Pokud Year je větší než 9999 nebo je některý z argumentů mimo rozsah -2 147 483 648 až 2 147 483 647, dojde k ArgumentException chybě. Pokud je datum zadané třemi argumenty dřívější než 00:00:00 1. ledna roku 1 nebo novější než 23:59:59 dne 31. prosince 9999, dojde k ArgumentOutOfRangeException chybě.

Datový Date typ zahrnuje časové komponenty. DateSerial nastaví všechny tyto hodnoty na 0, takže vrácená hodnota představuje začátek počítaného dne.

Vzhledem k tomu, že každá Date hodnota je podporována strukturou DateTime , její metody poskytují další možnosti při sestavení Date hodnoty. Můžete například použít některý z přetížených DateTime konstruktorů k naplnění Date proměnné pomocí požadované kombinace součástí. Následující příklad nastaví NewDateTime 6. května 1978 v desetinu sekundy před 8:30 ráno:

Dim NewDateTime As Date = New Date(1978, 5, 6, 8, 29, 59, 900)

Platí pro

Viz také