Función DateSerial

Devuelve un valor de Fecha pa un añu, mes o día especificaos.

Sintaxis:


DateSerial (añu, mes, día)

Valor de torna:

Data

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.

Error codes:

5 Llamada a procedimientu non válida

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

Please support us!