DateAndTime.DateSerial(Int32, Int32, Int32) Metoda

Definice

Obor názvů:

Microsoft.VisualBasic

Sestavení:

Microsoft.VisualBasic.Core.dll

Zdroj:

DateAndTime.vb

Date Vrátí hodnotu představující zadaný rok, měsíc a den s časovými informacemi nastavenými 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

Povinná hodnota. Celočíselný výraz od 1 do 9999. Akceptují se ale také hodnoty pod tímto rozsahem. Pokud Year je hodnota 0 až 99, je interpretována jako mezi lety 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

Povinná hodnota. Celočíselný výraz od 1 do 12. Přijaty jsou však i hodnoty mimo tento rozsah. Hodnota Month se odsadí o 1 a použije se na leden počítaného roku. Jinými slovy se k lednu přidá (Month – 1). V případě potřeby se rok přepočítá. Tento efekt znázorňují následující výsledky:

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

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

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

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

Day

Int32

Povinná hodnota. Celočíselný výraz od 1 do 31. Přijaty jsou však i hodnoty mimo tento rozsah. Hodnota Day se odsadí o 1 a použije se na první den počítaného měsíce. Jinými slovy se k prvnímu v měsíci přidá (Day - 1). V případě potřeby se měsíc a rok přepočítávají. Tento efekt znázorňují následující výsledky:

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

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

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

Pokud Day je po konci aktuálního měsíce, výsledkem je odpovídající den následujícího měsíce. Pokud Month je například 4 a Day je 31, výsledek je 1. květen.

Návraty

DateTime

Hodnota, která představuje zadaný rok, měsíc a den s časovými informacemi nastavenými 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 jsou interpretovány na základě nastavení počítače definovaného uživatelem. 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 znamenat všechny ostatní roky, použijte čtyřciferný rok, například 1924.

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

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

Pokud nebo MonthDay překročí jeho normální rozsah, použije se podle potřeby na další větší jednotku. Pokud například zadáte 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 pokud je některý argument mimo rozsah -2 147 483 648 až 2 147 483 647, ArgumentException dojde k chybě. Pokud je datum zadané třemi argumenty dřívější než 00:00:00 1. ledna roku 1 nebo později než 23:59:59 31. prosince 9999, ArgumentOutOfRangeException dojde k 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 sestavování Date hodnoty. Můžete například použít jeden z přetížených DateTime konstruktorů k naplnění Date proměnné pomocí požadované kombinace komponent. Následující příklad nastaví NewDateTime na 6. května 1978 v desetině sekundy před 8:30 ráno:

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

Viz také

• DateValue(String)
• Day(DateTime)
• Month(DateTime)
• Now
• TimeSerial(Int32, Int32, Int32)
• TimeValue(String)
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• System
• Souhrn datových typů (Visual Basic)