Resta de horas

[[Crandel]]

cuales son los segundos de los dos tiempos?

asegurate que sean cero sino te interesan.

[saltamirano]

Gracias por tu preocupación amigo,

los segundos en la hora son cero, sin embargo no entiendo porque al restar las horas algunas veces saca datos exactos, pero en otros no como en el caso del ejemplo.

Mil gracias por su ayuda

Saludos

[jachguate]

Creo que estas haciéndote un lio para la operación.

Con el ejemplo citado, podrías indicarnos que resultado te da esta operación:

Código Delphi [-]
  ShowMessage(TimeToStr(DateTimePicker_HraFin.Time - DateTimePicker_HraIni.Time));

Seguramente hay fracciones de segundo por allí involucradas..

[[BlueSteel]]

Hola

estaba revisando este hilo... y me queda una duda...

el problema es que tengo la hora 09:16:00 pero lo tengo en formato de String...

para convertirlo utilizo el StrToTime(hora)

con

HoursBetween(HoraFin, HoraIni) me entrega las horas que existen entre ambas... pero en que formato las estaría entregando ???

Salu2

[[Caral]]

Hola
Pues el formato lo puedes poner tu:

Código Delphi [-]
 Edit1.Text:= FormatDateTime('hh.mm.ss',Time);

Me parece.
Saludos

[jhonny]

Empezado por BlueSteel

Hola

estaba revisando este hilo... y me queda una duda...

el problema es que tengo la hora 09:16:00 pero lo tengo en formato de String...

para convertirlo utilizo el StrToTime(hora)

con

HoursBetween(HoraFin, HoraIni) me entrega las horas que existen entre ambas... pero en que formato las estaría entregando ???

Salu2

HoursBetween devuelve un tipo de dato Int64, que significan el valor de horas entre una y la otra, por ejemplo (Este ejemplo lo saco de la ayuda de Delphi):

Si yo quiero saber cuantas son las horas entre 9:00 AM y 9:59:59 AM esta funcion me devolvera 0.

Empezado por Ayuda Delphi

Call HoursBetween to obtain the difference, in hours, between two TDateTime values. HoursBetween counts only entire hours. Thus, HoursBetween reports the difference between 9:00 AM and 9:59:59 AM as 0 because the difference is one second short of an entire hour.

[[BlueSteel]]

Es decir...

tendria entonces que preguntar por los minutos transcurridos entre dos horas..

el valor dividirlo por 60 para así obtener la cantidad de horas y minutos...

Ok...

veré como realizo esto...

Salu2

[[Caral]]

Código Delphi [-]
var
hora1, hora2: TTime;
horat: TTime;
begin
   hora2:= StrToTime(Edit2.Text);
   hora1:= StrToTime(Edit3.Text);
   horat := hora1 - hora2;
   Edit4.Text:= TimeToStr(horat) ;
end;