Sintaxis:

DateSerial(anyo,mes,dia )

Recibe como argumentos un año, un mes y un día, y devuelve una variable de subtipo Date que representa la fecha asociada a los argumentos recibidos.

Argumentos:

anyo: Número entre 100 y 9999, incluidos, o una expresión numérica.
mes: Cualquier expresión numérica.
dia: Cualquier expresión numérica.

Tanto 'anyo' como 'mes' y 'dia' pueden ser cualquier número o expresión válida para ellos, con las limitaciones derivadas de su tipo (año puede estar entre 100 y 9999, mes entre 1 y 12 y dia entre 1 y 31). El argumento año se debe pasar con 4 cifras, salvo si pasamos entre 0 y 99, en cuyo caso se interpretarán como años entre 1900 y 1999. Si pasamos como valor de dia un número mayor de 30, se tomarán 30 días del mes indicado y los restantes como pertenecientes al mes siguiente.

El siguiente ejemplo usa expresiones numéricas en vez de números absolutoes de fecha. Aquí la función DateSerial devuelve una fecha que es el día anterior al primer día (1 – 1) de 2 meses antes de Agosto (8 – 2) de 10 años antes de 1990 (1990 – 10); en otras palabras, 31 de mayo de 1980.

Dim MyDate1, MyDate2
MyDate1 = DateSerial(1970, 1, 1)   ' Devuelve 1 de Enero de 1970.
MyDate2 = DateSerial(1990 - 10, 8 - 2, 1 - 1)   ' Devuelve 31 de Mayo de 1980.

Ejemplo 2:

response.write(DateSerial(1996,2,3) & "<br />")
response.write(DateSerial(1990-20,9-2,1-1))

Devuelve:

2/3/1996
6/30/1970