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
Código:
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.........................................................................
