avaricia

nanaki
05 de Julio del 2005
Hola:
Tengo un campo en una bd de acces que es fecha y tiene este formato (17/03/04).

Lo que necesito es que me saque la diferencia que hay entre la fecha del campo y la de el dia en que estemos.

GRACIAS

Mikel
05 de Julio del 2005
Para hayar la diferencia entre dos fechas esta la funcin DateDiff, que tiene el siguiente formato:

DateDiff(Intervalo, Fecha1, Fecha2)

Haya la diferencia entre Fecha1 y Fecha2 expresado en el valor que indiquemos en Intervalo. Los posibles valores de intervalo son:

yyyy - Aos
q - Cuatrimestres
m - Meses
d - Dias
ww - Semanas
h - Horas
n - Minutos
s - Segundos

A continuacin te mando un ejercicio que tena por ahi perdidico. En el se haya las diferencias entre una fecha concreta y la fecha/hora actual. En tu caso te serviria el mismo codigo pero sustituyendo la fecha que yo pongo fija (31/12/99) por la fecha que hayas obtenido de leer la BD de access.

Dim FechaAnt, Ahora, DifAno, DifCua, DifMes, DifDia, DifSem, DifHor, DifMin, DifSeg
FechaAnt = CDate("31/12/99")
Ahora = Now()
DifAno = DateDiff("yyyy", FechaAnt, Ahora)
DifCua = DateDiff("q", FechaAnt, Ahora)
DifMes = DateDiff("m", FechaAnt, Ahora)
DifDia = DateDiff("d", FechaAnt, Ahora)
DifSem = DateDiff("ww", FechaAnt, Ahora)
DifHor = DateDiff("h", FechaAnt, Ahora)
DifMin = DateDiff("n", FechaAnt, Ahora)
DifSeg = DateDiff("s", FechaAnt, Ahora)

Response.Write("Fecha 1 - " & FechaAnt & "<br>")
Response.Write("Fecha 2 - " & Ahora & "<br>")
Response.Write("Aos - " & DifAno & "<br>")
Response.Write("Cuatrimestres - " & DifCua & "<br>")
Response.Write("Meses - " & DifMes & "<br>")
Response.Write("Dias - " & DifDia & "<br>")
Response.Write("Semanas - " & DifSem & "<br>")
Response.Write("Horas - " & DifHor & "<br>")
Response.Write("Minutos - " & DifMin & "<br>")
Response.Write("Segundos - " & DifSeg & "<br>")

Por cierto ... muy curioso el tema de la pregunta (avaricia ????).

Espero que te sirva el codigo. Saludos desde Donostia.

Mikel