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 ...

[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.

[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?

[CarlosHernandez]

restar hs-he

hora:=hs-((1/24)*hs);

asi lo puse y no me da, da otra hora y sigue dandome el formato am/pm, me imagino que lo exprese mal verdad??

[fdelamo]

Si quieres restar dos horas, se hace directamente: hs-he, pero ten en cuenta que el resultado no es una hora, es la diferencia de horas, teniendo en cuenta que 1 hora = 1/24

[CarlosHernandez]

exacto e alli el detalle, si resto directo, hs-he 11:02:10 p.m. - 08:59:10 a.m. son 14 horas 7 minutos, y me da 2:33:00 p.m.

como hago que el 2:33:00 p.m. se tranforme en 14:07:00?????????????

[[Lepe]]

Si puedes, te aconsejo que cambies el tipo del campo; en lugar de usar hora usa un TimeStamp (fecha y hora todo en el mismo campo)

Después puedes usar de la unidad DateUtils, toda una batería de funciones:
- HoursBetween(fecha1, fecha2);
- MinutesBetween
- DaysBetween
- MillisecondsBetween
- etc.

La fecha y hora en sí misma, no se guarda con ningún formato de 12/24 horas. Es al tiempo de mostrarlo en pantalla cuando aplicas el formato que quieres. Para ello puedes usar FormatDateTime('hh:nn:ss',fecha1);

Al usar el formato de fecha+hora, no tendrás ningún problema en sumar dos fechas, o sumarle 33 horas, siempre obtendrás el resultado correcto.

necesito hacer que "hora" me de 26:41:17

Para esto no hay solución inmediata, pero puedes apoyarte en las funciones mencionadas, o hacer el cálculo tu mismo:

Código Delphi [-]
var f1, f2 : TDatetime;
      h,m,s:word;
begin
 
s := seconsbetween(f1,f2);
h := s div 3600 ;
m := (s mod 3600) div 60; // el resto de la división anterior:
s := (s mod 3600) mod 60;

Edito:
El resultado no podrás codificarlo como una TTime, ni como TDateTime, ya que tiene el límite en 24 horas, por tanto, jamás podrás crear una hora con 26 horas.

Saludos

[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;

[Vicente Ivan]

ejemplo
sumarle 48 meses a una fecha
o 4 años a una fecha
sin tener que utilizar decode

Empezado por Lepe

Si puedes, te aconsejo que cambies el tipo del campo; en lugar de usar hora usa un TimeStamp (fecha y hora todo en el mismo campo)

Después puedes usar de la unidad DateUtils, toda una batería de funciones:
- HoursBetween(fecha1, fecha2);
- MinutesBetween
- DaysBetween
- MillisecondsBetween
- etc.

La fecha y hora en sí misma, no se guarda con ningún formato de 12/24 horas. Es al tiempo de mostrarlo en pantalla cuando aplicas el formato que quieres. Para ello puedes usar FormatDateTime('hh:nn:ss',fecha1);

Al usar el formato de fecha+hora, no tendrás ningún problema en sumar dos fechas, o sumarle 33 horas, siempre obtendrás el resultado correcto.



Para esto no hay solución inmediata, pero puedes apoyarte en las funciones mencionadas, o hacer el cálculo tu mismo:

Código Delphi [-]
var f1, f2 : TDatetime;
      h,m,s:word;
begin
 
s := seconsbetween(f1,f2);
h := s div 3600 ;
m := (s mod 3600) div 60; // el resto de la división anterior:
s := (s mod 3600) mod 60;

Edito:
El resultado no podrás codificarlo como una TTime, ni como TDateTime, ya que tiene el límite en 24 horas, por tanto, jamás podrás crear una hora con 26 horas.

Saludos

[nuk3zito]

Empezado por Vicente Ivan

ejemplo
sumarle 48 meses a una fecha
o 4 años a una fecha
sin tener que utilizar decode

No se si es pregunta o que... pero puedes utilizar IncMonth() o IncYear(), me parece que están en la unit DateUtils.

Saludos.

[gonza_619]

al hacer la diferencia de hroas aparece asi ,
14:00:00 - 12:00:00 = 2.00 o algo asi

min:=minutesbetween(he,hs);
dec:=roundto(min/60,-1); en este caso reste 5:0:0 - 6:30:0 y dio dec:1,5
pero luego necesito que ese 1,5 vuelva a 1:30:00 pm o am, como seria? ya que "dec" es decimal y tengo q pasarlo a time. gracias!