fechas

[kunde]

Hola, alguien podria ayudarme?¿?.....
tengo una tabla en access y uno de sus campos es fecha....con 20 registros pj de fechas .....kisisera sacar la diferencia de dias entre una fecha y su siguiente...asi sucesivamente........1-2.....2-3.....3-4
si alguien me puede ayudar le estaria muy agradecida....grcias

[juanangt]

'Cogemos el primer valor
FechaAnterior = Tabla("Fecha")
Tabla.MoveNext
'Empezamos a hacer las diferencias de fechas
i = 1
do while not Tabla.eof
response.write "Diferencia entre " & i & " y " & (i + 1)
response.write DateDiff("d", Tabla("Fecha"), FechaAnterior)
& "Días"
i = i + 1
FechaAnterior = Tabla("Fecha")
Tabla.MoveNext
loop

No lo he probado pero creo que es así

<br>
Juanan

[kunde]

muchisimas gracias...no me tira...pero gueno por lo menos se mas o menos por donde van los tiros......
si konsigues ke te tire avisame pls pls pls....
ke estoy parado en lo ke estoy haciendo
otra ves muchas gracias

[juanangt]

Exactamente que falla?

[kunde]

pos mira......preimero lo de &amp; dias no me lo pilla..........yo he hecho esto.......:
FecSQL = &quot;select fecha as Fech from tabla1 where id=1&quot;
set FeRs=Server.CreateObject(&quot;ADODB.Recordset&quo t;)
FeRs.open FecSQL, Conexion

FechaAnterior = FeRs(&quot;Fech&quot;)


''Cogemos el primer valor
FeRs.MoveNext
''Empezamos a hacer las diferencias de fechas
i = 1
do while not FeRs.eof
response.write (&quot;Diferencia entre &quot; &amp; i &amp; &quot; y &quot; &amp; (i + 1))
response.write DateDiff(&quot;d&quot;, FeRs(&quot;Fech&quot;), FechaAnterior)

i = i + 1
FechaAnterior = FeRs(&quot;Fech&quot;)
FeRs.MoveNext
loop
no entiendo muy bien pk la diferencia de fechas ke haces es entre tabla(&quot;fecha&quot;) y fechaanterior.....la cual esta definida como tabla(&quot;fecha&quot;)
es por lo tanto la misma?¿?
no me entero de na...perdona por el coñazo....
pero llevo varios dias probando kon un monton de cosas y kreo ke es una tonteria.--....
gracias otra vez

[kunde]

perdona.......y al ejecutarlo no me saca ni el response.write...tampko falla
sino ke no hace nada :(

[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 = &quot;select fecha as Fech from tabla1&quot; 'Cogemos TODOS los registros

set FeRs=Server.CreateObject(&quot;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(&quot;Fech&quot;)
FeRs.MoveNext

'Recoremos el recorset para ir comprobando las fechas

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

i = i + 1
FechaAnterior = FeRs(&quot;Fech&quot;)
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(&quot;d&quot;, FechaAnterior, FeRs(&quot;Fech&quot;))

Ya me dirás algo.

<br>
Juanan

[kunde]

muchisimas gracias, funciona perfectamente........soy un poko novato, pero espero poder algun dia ayudar komo me has ayudado tu .
Eres un monstruo
gracias