DateSerial Function
Devuelve un valor de Fecha pa un añu, mes o dÃa especificaos.
Sintaxis:
DateSerial (añu, mes, dÃa)
Valor de torna:
Fecha
Parámetros:
Añu: Espresión entera qu'indica un añu. Tolos valores ente 0 y 99 interprétense como los años 1900-1999. P'años que s'atopen fuera d'esti rangu, tienen d'especificase los cuatro dÃxitos.
Mes: Espresión entera qu'indica'l mes del añu especificáu. El rangu aceutable va de 1 a 12.
DÃa: Espresión entera qu'indica'l dÃa del mes especificáu. El rangu aceutáu ye de 1 a 31. Nun s'amuesa fallu cuando s'introduz un dÃa inesistente pa un mes más pequeñu de 31 dÃes.
La función DateSerial devuelve'l númberu de dÃes ente'l 30 d'avientu de 1899 y la fecha dada. Esti valor pue usase pa calcular la diferencia ente dos dates.
La función DateSerial devuelve'l tipu de datos Variante con VarType 7 (Data). Internamente, esti valor almacénase como valor Doble, de mou que cuando la fecha dada ye 1.1.1900 el valor que devuelve ye 2. Los valores negativos correspuenden a dates anteriores al 30 d'avientu de 1899 (non incluyÃu).
Si define una fecha que s'atopa fora del rangu aceutable, LibreOffice Basic devuelve un mensaxe de fallu.
Anque se define la función DateValue como cadena que contién la fecha, la función DateSerial evalúa tolos parámetros (añu, mes, dÃa) como espresiones numbériques independientes.
Exemplu:
Sub ExampleDateSerial
Dim lDate As Long
Dim sDate As String
lDate = DateSerial(1964, 4, 9)
sDate = DateSerial(1964, 4, 9)
MsgBox lDate ' devuelve 23476
MsgBox sDate ' devuelve 04/09/1964
End Sub