Fonction DateSerial

Renvoie une valeur de Date pour une année, un mois ou un jour précis.

Syntaxe :


DateSerial (année, mois, jour)

Valeur de retour :

Date

Paramètres :

Année : expression au format nombre entier indiquant une année. Toutes les valeurs situées entre 0 et 99 sont interprétées comme les années comprises entre 1900 et 1999. Pour les années sortant de cette plage, vous devez saisir les quatre chiffres.

Mois : expression au format nombre entier indiquant le mois de l'année spécifiée. La plage de valeurs correcte est comprise entre 1 et 12.

Jour : expression entière qui indique le jour du mois spécifié. La plage acceptée est 1-31. Aucune erreur n'est renvoyée lorsque vous saisissez un jour non existant pour un mois plus court que 31 jours.

La fonction DateSerial renvoie le nombre de jours entre le 30 décembre 1899 et la date saisie. Vous pouvez utiliser cette fonction pour calculer la différence entre deux dates.

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).

Si une date définie se situe en dehors de la plage acceptée, LibreOffice Basic renvoie un message d'erreur.

À la différence de la fonction DateValue qui définit la date en tant que chaîne de caractères contenant la date, la fonction DateSerial évalue chacun des paramètres (année, mois, jour) en tant qu'expressions numériques distinctes.

Codes d'erreur :

5 appel de procédure incorrect

Exemple :


  Sub ExampleDateSerial
  Dim lDate As Long
  Dim sDate As String
      lDate = DateSerial(1964, 4, 9)
      sDate = DateSerial(1964, 4, 9)
      MsgBox lDate ' renvoie 23476
      MsgBox sDate ' returns 1964-04-09 in ISO 8601 format
  End Sub