IBM Lotus Symphony
|
Zwraca wartość daty dla określonego roku, miesiąca lub dnia.
DateSerial (rok, miesiąc, dzień)
Data
Rok: Liczba całkowita oznaczająca rok. Wartości od 0 do 99 są traktowane jako lata 1900-1999. Dla lat z poza tego zakresu należy wprowadzić wszystkie cztery cyfry.
Miesiąc: Liczba całkowita wskazująca miesiąc określonego roku. Akceptowane są wartości z przedziału 1–12.
Dzień: Liczba całkowita wskazująca dzień określonego miesiąca. Akceptowane są wartości z zakresu od 1 do 31. W przypadku podania nieistniejącego dnia w miesiącu krótszym niż 31-dniowy nie jest zwracany błąd.
Funkcja DateSerial zwraca liczbę dni między 30 grudnia 1899 r. a podaną datą. Może zostać użyta do obliczenia różnicy między dwoma datami.
Funkcja DateSerial zwraca dane typu VarType 7 (data). Wewnętrznie w systemie ta wartość ma typ Double, więc dla daty 1.1.1900 jest zwracana wartość 2. Wartości ujemne dotyczą dat sprzed 30 grudnia 1899 r. (wyłączając tę datę).
Jeśli zdefiniowana data wykracza poza akceptowany zakres, środowisko języka Basic programu Lotus® Symphony™ zwróci komunikat o błędzie.
W przeciwieństwie do funkcji DateValue, która jest definiowana jako łańcuch znaków zawierający datę, funkcja DateSerial oblicza wartość każdego z parametrów (rok, miesiąc, dzień) jako oddzielne wyrażenie liczbowe.
Sub Przyklad_DateSerial
Dim lDate as Long
Dim sDate as String
lDate = DateSerial(1964, 4, 9)
sDate = DateSerial(1964, 4, 9)
msgbox lDate REM zwraca 23476
msgbox sDate REM zwraca 04/09/1964
end sub