fechas

[juanangt]

A ver... por lo que veo solo coges un registro... ese es el problema. Entonces te pongo el código corregido con comentarios explicativos.

FecSQL = "select fecha as Fech from tabla1" 'Cogemos TODOS los registros

set FeRs=Server.CreateObject("ADODB.Recordset&quo t;)
FeRs.open FecSQL, Conexion

'Cogemos la primera Fecha y Movemos una posicion el recorset para apuntar a la segunda
FechaAnterior = FeRs("Fech")
FeRs.MoveNext

'Recoremos el recorset para ir comprobando las fechas

i = 1
do while not FeRs.eof
response.write ("Diferencia entre " & i & " y " & (i + 1))
response.write DateDiff("d", FeRs("Fech"),FechaAnterior)

i = i + 1
FechaAnterior = FeRs("Fech")
FeRs.MoveNext
loop

Así tendria que funcionarte.

Una cosa... no recuerdo muy bien el DateDiff si te da un número negativo entonces cambia la linea por esta:
response.write DateDiff("d", FechaAnterior, FeRs("Fech"))

Ya me dirás algo.

<br>
Juanan