Diferença em horas entre dois dias diferentes
20/11/2005
0
Gostaria de saber se algum de vocês sabem como faço para descobrir a diferença em horas de por exemplo: Data e Hora Inicial: 19/11/2005 20:51:25 e Data e Hora Final: 20/11/2005 01:04:05...
Quando calculo a diferença dentro do mesmo dia dá certo, porem, se o relógio passa para 00:05:00 do outro dia por exemplo o resultado fica errado...
Gostaria da ajuda de vocês, se alguem tiver uma função ou procedure que possa me ajudar, agradeço antecipadamente.
Até Breve!
Márcio M. Camilo
Caldas Novas - GO
Mmcamilo
Posts
20/11/2005
Crash
function TempoPassado(DataHoraIni, DataHoraFin: TDateTime): String;
var
Horas: TTime;
Total: Extended;
Hora, Minuto, Segundo, MSeg: word;
begin
Total := DataHoraFin - DataHoraIni;
Horas := Frac(Total);
DecodeTime(Total, Hora, Minuto, Segundo, MSeg);
Hora := Hora + Trunc(24 * Trunc(Total));
Result := FormatFloat(´00´, Horas) + ´:´ + FormatFloat(´00´, Minutos)
+ ´:´ + FormatFloat(´00´, Segundos);
end;nao testei o codigo... mais qualquer coisas fala.
t+
20/11/2005
Edilcimar
20/11/2005
Mmcamilo
function TempoPassado(DataHoraIni, DataHoraFin: TDateTime): String;
var
Horas: TTime;
Total: Extended;
Hora, Minuto, Segundo, MSeg: word;
begin
Total := DataHoraFin - DataHoraIni;
Horas := Frac(Total);
DecodeTime(Total, Hora, Minuto, Segundo, MSeg);
Hora := Hora + Trunc(24 * Trunc(Total));
Result := FormatFloat(´00´, Horas) + ´:´ + FormatFloat(´00´, Minutos)
+ ´:´ + FormatFloat(´00´, Segundos);
end;20/11/2005
Mmcamilo
Mas obrigado, sua intenção foi boa, se tiver alguma correção a fazer te agradeço novamente.
Att.
Márcio
Clique aqui para fazer login e interagir na Comunidade :)
