IBM Lotus Symphony


Función DateSerial [Ejecución]

Devuelve un valor de Fecha para un año, mes o día especificado.

Sintaxis:

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

Valor de retorno:

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 rango, deben especificarse los cuatro dígitos.

Mes: Expresión entera que indica el mes del año especificado. El rango aceptable va de 1 a 12.

Día: Expresión entera que indica el día del mes especificado. El rango aceptable va de 1 a 31. No se devuelve ningún error cuando se especifica un día que no existe en el caso de 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 valor Doble, de manera que cuando la fecha dada es 1/1/1900 el valor que devuelve es 2. Los valores negativos corresponden a fechas anteriores al 30 de diciembre de 1899 (no incluida)

Si se define una fecha que se encuentra fuera el rango aceptable, Lotus® Symphony™ 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 Inicio del proceso no válido

Ejemplo:

Sub EjemploDateSerial

Dim lFecha as Long

Dim sFecha as String

lFecha = DateSerial(1964, 4, 9)

sFecha = DateSerial(1964, 4, 9)

msgbox lFecha REM devuelve 23476

msgbox sDate REM devuelve 04/09/1964

end sub


Comentarios del producto | Documentación adicional | Marcas registradas