Intervalos entre horas

Hola Nomad(CR)

Te pudes buscar un funcion que te convierta el datetime a string
y despues con un substr() sacas solamente el time y luego
te las ingenias para tomar el intervalo de tiempo.

ATT: Yonaides (Estudiante de Ing. en Sistemas) Rep. Dom

Nota: la funcion substr() es de "VFP " ok..

"Nomad(CR)" escribió en el mensaje
news:

Hola a todos

Tengo en un base de datos guardada una fecha, ejemplo 01/01/1900
07:00:00 y debo compararla con la hora actual, ejemplo 24/11/2006
10:05:00, para poder sacar cuanto tiempo hay entre la dos horas, pero
sin que la fecha afecte, si utilizo el "DateDiff", entonces el me toma
en cuenta la fecha tambien, y yo solo necesito sacar el intervalo que
hay entre esas horas, sin importar la fecha. Sabe alguien de alguna
funcion o cualquier otro consejo que me puedan dar para solucionar
esto.

Gracias...

Pues si, lo puedo hacer de esa forma, pero la idea es que sea con algo
un poquito mas "automatico"

Gracias...

Yonaides ha escrito:

Hola Nomad(CR)

Te pudes buscar un funcion que te convierta el datetime a string
y despues con un substr() sacas solamente el time y luego
te las ingenias para tomar el intervalo de tiempo.

Dim fecha1 As Date = New Date(1900, 1, 1, 7, 0, 0)
Dim fecha2 As Date = Now
Dim fecha3 As Date = New Date(fecha1.Year, fecha1.Month,
fecha1.Day, fecha2.Hour, fecha2.Minute, fecha2.Second)

' Solo las horas
TextBox1.Text = DateDiff(DateInterval.Hour, fecha1,
fecha3).ToString

'Horas, minutos y segundos
TextBox1.Text = (fecha3 - fecha1).ToString

Hola Carlos:
Precisamente eso es lo que hago en mi programa, pero como dije
anteriormente, yo si hago eso, me da las horas que hay desde el
1/1/1900 a las 7:00 am. hasta la hora actual (por ejemplo: 26/11/06
11:30 am), o sea miles de horas,

Cuando en realidad lo que necesito es que me devuelva nada mas que han
pasado 5 horas y 30 minutos.

Gracias


Carlos Gómez ha escrito:

Dim fecha1 As Date = New Date(1900, 1, 1, 7, 0, 0)
Dim fecha2 As Date = Now
Dim fecha3 As Date = New Date(fecha1.Year, fecha1.Month,
fecha1.Day, fecha2.Hour, fecha2.Minute, fecha2.Second)

' Solo las horas
TextBox1.Text = DateDiff(DateInterval.Hour, fecha1,
fecha3).ToString

'Horas, minutos y segundos
TextBox1.Text = (fecha3 - fecha1).ToString

Buenas
Pues creo que si adaptas lo que te sugirio carlos, podrias solucionarlo
Fecha1=fecha y hora) actual
Fecha2=tufecha de la BD
fecha3=fecha de hoy + hora de la BD
restas fecha1 y fecha3

No se si entendi bien

Suerte
LuisMiguel
"Nomad(CR)" escribió en el mensaje
news:
Hola Carlos:
Precisamente eso es lo que hago en mi programa, pero como dije
anteriormente, yo si hago eso, me da las horas que hay desde el
1/1/1900 a las 7:00 am. hasta la hora actual (por ejemplo: 26/11/06
11:30 am), o sea miles de horas,

Cuando en realidad lo que necesito es que me devuelva nada mas que han
pasado 5 horas y 30 minutos.

Gracias


Carlos Gómez ha escrito:

Dim fecha1 As Date = New Date(1900, 1, 1, 7, 0, 0)
Dim fecha2 As Date = Now
Dim fecha3 As Date = New Date(fecha1.Year, fecha1.Month,
fecha1.Day, fecha2.Hour, fecha2.Minute, fecha2.Second)

' Solo las horas
TextBox1.Text = DateDiff(DateInterval.Hour, fecha1,
fecha3).ToString

'Horas, minutos y segundos
TextBox1.Text = (fecha3 - fecha1).ToString