Spis treści

# Funkcja DateSerial

Zwraca wartość Date dla określonego roku, miesiąca i 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 1900-01-01 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 1964-04-09 w formacie ISO 8601
      End Sub