bueno es una funcion simple...
supon esto:
dia= d
mes= m
año = y
entoncees cuando guardes el registro en la b de datos haz esto:
Código:
<%
Dim Fecha
Dim d
Dim m
Dim a
Dim Numero
Fecha=request("Fecha")
d=Day(Fecha)
m=Month(Fecha)
y=Year(Fecha)
Numero= d*30 + m*12 + a*365 + a
.
..
...
SQL=Insert into tabla (.....fecha,Fecha_numero) values (......,'"& Fecha &"',"& Numero &");
Set rs=Conexion.execute(SQL)
...
..
.
bueno asi ingresas el dato numerico de fecha
ej:
Código:
10/08/2002
Numero=10*30+8*12+2002*365+2002
11/08/2002
Numero=11*30+8*12+2002*365+2002
este numero nunca se repetira...sera como guardar la fecha...pruebalo.
cuando consultes por una fecha determinada en vez de preguntar por el campo fecha conviertes la fecha ingresada a numerico y preguntas ese resultado por el campo fecha_numero.
Código:
Fecha=request("Fecha")
d=Day(Fecha)
m=Month(Fecha)
y=Year(Fecha)
Numero= d*30 + m*12 + a*365 + a
sql="Select * from tabla where fecha_nuemro>="& Numero &";"
...
..
.
bueno eso es todo..espero te sirva.
;)
recuerda que el campo numero debe ser declarado de tipo entero largo en tu base de datos access