Boa noite pessoal;

Eu tinha feito uma forma de subtrair 2 horas aqui, e até à um tempinho
atrás, estava tudo ok. Só que agora pintou um problema:


era feito assim:
-------------------------------
var 
h1, h2, resultado  : TDateTime;
begin

d1:= StrToTime(adotDatainicial.Value);
d2:= StrToTime(adotDatainicia2.Value);
resultado := d2 - d1;

-------------------------------
Só que quando  é digitado 24:00, esse valor não é reconhecido 
como horas ai os erros.

Alguém poderia me ajudar com isso ?

OBS.: a hora nunca vai passar de 24:00 ( ou seja de um dia para o outro)

Ex.: saída 24:00 - entrada 01:00  = 23:00 e não 23:60









Responder a