Funkcja DateSerial

Funkcja DateSerial zwraca wartość typu Variant(Date) zawierającą datę dla określonego roku, miesiąca i dnia.

Składnia funkcji DateSerial:

DateSerial(rok, miesiąc, dzień)

Funkcja DateSerial ma trzy wymagane argumenty:
rok - (wymagana) wartość typu Integer, z zakresu 100 do 9999.
miesiąc - (wymagana) wartość typu Integer.
dzień - (wymagana) wartość typu Integer.

Aby określić datę (np. 31 grudnia 1991) zakres liczb każdego argumentu funkcji DateSerial powinien być odpowiedni dla jego dopuszczalnych wartości, tzn. 1-31 dla dni, 1-12 dla miesięcy. Można również określić datę używając dowolnego wyrażenia numerycznego, które określa numer dnia, miesiąca lub roku.
Można np. pobrać datę w roku: 10 lat wcześniej przez 1990 (1990-10), 2 miesiące przez Sierpniem (8-2), dzień przed pierwszym (1-1). To będzie dzień 31 maja 1980.

DateSerial (1990-10, 8-2, 1-1)

Określenie roku przy pomocy liczb z przedziału 0-99 jest interpretowane jako odpowiedni rok z przedziału 1900-1999. Dla każdego innego roku wymagany jest czterocyfrowy zapis (np. 1800).

Kiedy jakiś argument wykracza poza dopuszczalny dla niego zakres to zostaje zwiększona wartość kolejnej "większej" jednostki. Np. jeżeli zostanie podany dzień 35, to zostanie zwiększony numer miesiąca a dzień ustawiony odpowiednio w zależności od ilości dni w danym miesiącu.
Jeżeli argument wykracza poza zakres -32,768 do 32,767 zostanie wygenerowany błąd.
Jeżeli data określona przez podane argumenty wykracza poza dopuszczalny zakres dat zostanie wygenerowany błąd.

Przykład użycia funkcji DateSerial:

Dim varData As Variant
varData=DateSerial(1990, 7, 30) ' zmienna varData zawiera datę 30 lipca 1990

(Zmienne i typy zmiennych zostały opisane w innych częściach kursu.)

na górę strony...