Funkcja DateSerial

Zwraca wartość daty dla określonego roku, miesiąca lub dnia.

Składnia:


DateSerial( rok , miesiąc , dzień )

Zwracana wartość:

Data

Parametry:

Rok: Wyrażenie w postaci liczby całkowitej oznaczające rok. Wszystkie wartości pomiędzy 0 i 99 oznaczają lata 1900-1999. W przypadku lat spoza tego zakresu należy wprowadzić wszystkie cztery cyfry.

Miesiąc: Wyrażenie w postaci liczby całkowitej oznaczające miesiąc w określonym roku. Przyjmowane wartości mieszczą się w zakresie od 1 do 12.

Dzień: Wyrażenie w postaci liczby całkowitej oznaczające dzień określonego miesiąca. Przyjmowane wartości mieszczą się w zakresie 1-31. Wprowadzenie nieistniejącego miesiąca w miesiącu krótszym od 31 dni nie spowoduje wyświetlenia komunikatu o błędzie.

Funkcja DateSerial zwraca liczbę dni pomiędzy 30 grudnia 1899 a określoną datą. Umożliwia obliczenie różnicy pomiędzy dwiema datami.

Funkcja DateSerial zwraca dane typu Variant o wartości VarType (typ zmiennej) równej 7 (Data). Wewnętrznie wartość ta jest przechowywana w postaci liczby typu podwójna precyzja, dla daty 1.1.1900 wynosi ona 2. Wartości ujemne odpowiadają datom przez 30 grudnia 1899 (nie uwzględniając jej).

Jeśli zdefiniowana data znajduje się poza dopuszczalnym zakresem, LibreOffice zwraca komunikat o błędzie.

Funkcja DateValue definiuje ciąg zawierający całą datę, natomiast funkcja DateSerial oblicza każdy parametr (rok, miesiąc, dzień) jako odrębne wyrażenia numeryczne.

Kody błędów:

5 Nieprawidłowe wywołanie procedury

Przykład:


Sub ExampleDateSerial
Dim lDate As Long
Dim sDate As String
    lDate = DateSerial(1964, 4, 9)
    sDate = DateSerial(1964, 4, 9)
    MsgBox lDate ' zwraca 23476
    MsgBox sDate ' zwraca 09.04.1964 00:00:00
End Sub

Please support us!