resultado de restar 2 horas

[CarlosHernandez]

saludos a todos los del foro nuevamente...

estuve buscando en los foros viejos, y encontre informacion sobre la resta de 2 horas, lo tuve leyendo y analizando. bueno mi inquietud es la siguiente

restar 2 horas HE, HS y que me de un total(08:23:19) por ejemplo y hacer una condicion si es mayor o menor de 8 horas, con el codigo que puse me da el siguiente resultado= 08:23:19 a.m. y no quiero que aparezca (a.m.), otra cosa es que cuando pasa de 12 horas se vuelve loco, es decir si son 13 horas dice 1 hora, y el resultado no me da, bueno el codigo que use es el siguiente..

her hora de entrada
hsr hora de salida
hora resultado de la resta

var
  DifH, DifM, DifS, DifMs: Word;
  her,hsr,hora:ttime;
 

          //las hora estan en la tabla Horas
          
          her:=Tabla.IBQHorasHE.AsDateTime;
          hsr:=Tabla.IBQHorasHS.AsDateTime;


  DecodeTime((hsr) -(her), DifH, DifM, DifS, DifMs);
  
hora:= EncodeTime(DifH, DifM, DifS, DifMs);//aqui tranformo el resultado a 
tipo hora pero no se como cambiar el formato de am/pm 

  if hora>=strtotime('06:00:00') then begin
             cesta:=cesta+1;//esto es un contador
  end;

 
      end;

necesito hacer que "hora" me de 26:41:17 por ejemplo que si pasa mas de 12 horas no se tranforme a 1 o 2 horas...

acepto sugerencia de cambiar todo el codigo por uno mejor gracias.........................................................................

[fdelamo]

Hola,

no se si te servirá de algo ...
Ya que TTime = TDateTime ...

Por que no lo haces así:

Para sumar dos horas a Now --> DosHorasMas := Now+((1/24)*2)
Para restar dos horas a Now --> DosHorasMenos := Now-((1/24)*2)

y los calculos los haces con la fecha incluida ...

[CarlosHernandez]

fdelamo... puedes darme un poco mas de detalles por favor porque la verdad no entendi mucho como usarlo, podrias ser mas especifico o donde y como lo uso???????????

[CarlosHernandez]

alejandro porque cuando resto las dos horas directamente me pasa lo mismo, si da mas de 12 horas, ejemplo 13 horas me dice 1 hora, y eso es lo que quiero corregir....

[fdelamo]

Los valores TTime, TDate y TDateTime, representan las fechas de la siguiente manera: La parte entera es la fecha (la fecha 0 creo que es 31/12/1899, creo) y los decimales la hora, por tanto, una hora es 1/24, un minuto 1/24/60 ...

Si quieres sumar dos horas Fecha+2/24

No se si me explico ....

[CarlosHernandez]

ok, entendi la logica, pero si tengo las 2 horas 08:13:14 a.m. y 09:52:17 p.m. como expreso esas 2 con el metodo que me diste?????????

[fdelamo]

Al tenerlo en un TDate, TTime o TDateTime ya lo tienes así, ¿o es que tienes esas horas en texto?

[aledieb]

No se pero porque no restas directamente las dos horas, eso te daria un número por ejemplo:

14:00:00 - 12:00:00 = 2.00

Tal ves de esta forma te sirve por lo menos para hacer los calculos.

[nuk3zito]

El windows es quien te define el formato de a.m. y p.m. o formato 24 Hrs.
Búscale por ese lado... y si es necesario, haz que tu aplicación cambie el formato cuando lo uilices.
Ahora que... pudieras agarrar la hora y "decodificarla" y construir tu propia cadena si es que no quieres cambiar el formato de hora de windows.

Suerte!

[aledieb]

Si entendi correctamente te interesa saber cuanto tiempo paso entre dos horas distintas. Si es así lo que tendrias que hacer es:

vartipofloat:= Hora1-Hora2;

En vartipofloat tendras como resultado la cantidad de horas y minutos que pasaron, las horas en la parte entera y los minutos en los decimales.

Suerte

[CarlosHernandez]

listo, gracias a todos por responder, ahora estoy probando todo y cuando me de perfecto publico el codigo......

[NeoNew]

Código Delphi [-]
Function TimeBetween(xTimeFrom,xTimeTo: TTime): TTime;
var
  t12,t24 : TTime;
begin
  t12 := StrToTime('12:00:00');
  t24 := StrToTime('23:59:59');
  if xTimeFrom > t12  then
  begin
    Result := t24 - xTimeFrom + xTimeTo;
  end else
  begin
    Result := xTimeTo - xTimeFrom;
  end;
end;