Función DateSerial

Devuelve un valor de Fecha para un año, mes y día específicos.

Sintaxis:


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

Devuelve tipo:

Fecha

Parámetros:

Año: expresión entera que indica un año. Todos los valores entre 0 y 99 se interpretan como los años 1900-1999. Para años que se encuentren fuera de este intervalo, deben especificarse los cuatro dígitos.

Mes: expresión entera que indica el mes del año especificado. El intervalo aceptado va de 1 a 12.

Día: expresión entera que indica el día del mes especificado. El intervalo aceptado es de 1 a 31. No se devuelve ningún error si se introduce un día no existente para un mes de menos de 31 días.

La función DateSerial devuelve el número de días entre el 30 de diciembre de 1899 y la fecha dada. Este valor se puede usar para calcular la diferencia entre dos fechas.

La función DateSerial devuelve el tipo de datos Variante con VarType 7 (Fecha). Internamente, este valor se almacena como un valor Doble, de modo que cuando la fecha dada sea 1900-01-01, el valor devuelto sea 2. Los valores negativos corresponden a fechas anteriores al 30 de diciembre de 1899 (no inclusive).

Si se define una fecha que se encuentra fuera del intervalo aceptado, LibreOffice Basic devuelve un mensaje de error.

Aunque se define la función DateValue como cadena que contiene la fecha, la función DateSerial evalúa todos los parámetros (año, mes, día) como expresiones numéricas independientes.

Códigos de error:

5 Llamada a procedimiento no válida

Ejemplo:


  Sub ExampleDateSerial
  Dim lDate As Long
  Dim sDate As String
      lDate = DateSerial(1964, 4, 9)
      sDate = DateSerial(1964, 4, 9)
      msgbox lFecha REM devuelve 23476
      MsgBox sDate ' devuelve 1964-04-09 en formato ISO 8601
  End Sub