IBM Lotus Symphony
|
Renvoie une valeur de Date pour une année, un mois ou un jour précis.
DateSerial (year, month, day)
Date
Year : expression de type 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 hors de cette plage, vous devez saisir les quatre chiffres.
Month : expression de type nombre entier indiquant le mois de l'année spécifiée. La plage de valeurs correcte est comprise entre 1 et 12.
Day : expression de type nombre entier indiquant le jour du mois spécifié. La plage de valeurs correcte est comprise entre 1 et 31. Aucune erreur n'est renvoyée lorsque vous saisissez un jour qui n'existe pas pour un mois inférieur à 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.
La fonction DateSerial renvoie le type de données variante avec le type VarType 7 (Date). En interne, cette valeur est stockée en tant que valeur au format Double. Ainsi, la valeur renvoyée pour la date 1/1/1900 est 2. Les valeurs négatives correspondent à des dates précédant le 30 décembre 1899 (cette date non comprise).
Si une date est définie hors de la plage admise, Lotus Symphony Basic renvoie un message d'erreur.
Par contre, si vous définissez la fonction DateValue comme une chaîne contenant la date, la fonction DateSerial évalue chacun des paramètres (année, mois, jour) en tant qu'expressions numériques individuelles.
Sub ExampleDateSerial
Dim lDate as Long
Dim sDate as String
lDate = DateSerial(1964, 4, 9)
sDate = DateSerial(1964, 4, 9)
msgbox lDate REM Renvoie 23476
msgbox sDate REM Renvoie 04/09/1964
end sub