Συνάρτηση DateSerial

Επιστρέφει μια τιμή Date για ένα καθορισμένο έτος, μήνα και ημέρα.

Σύνταξη:


DateSerial (year, month, day)

Επιστρεφόμενη τιμή:

Ημερομηνία

Παράμετροι:

Year: Ακέραια παράσταση που δηλώνει το έτος. Όλες η τιμές μεταξύ 0 και 99 ερμηνεύονται ως τα έτη 1900-1999. Για ορίσματα άλλων ετών, θα πρέπει να εισαγάγετε και τα τέσσερα ψηφία.

Month: Ακέραια παράσταση που δηλώνει το μήνα του καθορισμένου έτους. Το αποδεκτό εύρος τιμών είναι μεταξύ 1-12.

Ημέρα: Έκφραση ακέραιου που δείχνει την ημέρα του καθορισμένου μήνα. Το αποδεκτό εύρος είναι 1-31. Δεν επιστρέφεται σφάλμα όταν εισάγετε μια ανύπαρκτη ημέρα για μήνα μικρότερο από 31 ημέρες.

Η DateSerial function επιστρέφει τον αριθμό των ημερών μεταξύ 30 Δεκεμβρίου 1899 και της δεδομένης ημερομηνίας. Μπορείτε να χρησιμοποιήσετε αυτή την συνάρτηση για να υπολογίσετε τη διαφορά μεταξύ δύο ημερομηνιών.

The DateSerial function returns the data type Variant with VarType 7 (Date). Internally, this value is stored as a Double value, so that when the given date is 1900-01-01, the returned value is 2. Negative values correspond to dates before December 30, 1899 (not inclusive).

Αν καθοριστεί ημερομηνία με τιμή εκτός του αποδεκτού εύρους, η LibreOffice Basic επιστρέφει ένα μήνυμα σφάλματος.

Ενώ στην συνάρτηση DateValue καθορίζετε το όρισμα της συνάρτησης ως συμβολοσειρά που περιέχει την ημερομηνία, η συνάρτηση DateSerial αξιολογεί κάθε παράμετρο (έτος, μήνα, ημέρα) ως ξεχωριστές αριθμητικές παραστάσεις.

Κωδικοί σφάλματος:

5 Άκυρη κλήση διαδικασίας

Παράδειγμα:


  Sub ExampleDateSerial
  Dim lDate As Long
  Dim sDate As String
      lDate = DateSerial(1964, 4, 9)
      sDate = DateSerial(1964, 4, 9)
      MsgBox lDate ' επιστρέφει 23476
      MsgBox sDate ' returns 1964-04-09 in ISO 8601 format
  End Sub