Calculo de Horas

Question

Ol�.Estou com dificuldade para implementar o c�lculo entre diferen�a entre horas.1-Se j� se passaram 5 horas desde a entrada no programa, ent�o feche-o. Como fazer isso no Delphi?2-Como fazer para que...

Darlan · Answer

Amigo

1� Quando loga no sistema crie um arquivo com a hora atual e data
atual

2� dentro de um time vc compara a hora gravada no arquivo com a do sistema ex
if (HoraSistema - HoraArq )>StrToTime(�05:00�) then
begin
showmessage(�5 horas�);
ai vc pode finalizar programa ou iniciar o arquivo novamente.
end;
[/code]

Ropesca · Answer

O que eu fiz foi isso:[quote:689210c81f][b:689210c81f]var[/b:689210c81f]horainicial: tdatetime;horasaida: tdatetime;[b:689210c81f]begin[/b:689210c81f]horainicial:= now;if (Horainicial - Horasaida )>StrToTime(�00:00:05�) thenbeginshowmessage(�5 seg�);[/quote:689210c81f]N�o funcionou, h� alguma coisa errada?Ele d� a mensagem muito antes de 5 seg.Abra�o....

Edilcimar · Answer

se horainicial(que � agora) - horasaida(que deve ser depois) � maior que qualquer coisa (sempre ser�)...

Martins · Answer

Crie uma var global, q armazene a hora em q vc logou no sistema, depois dentro de um timer, vc verifica se a diferen�a entre a hora atual - a hora logada no sistema � maior do q a especificada por vc.

ex:


var
form : Tform;
hora_i : TDateTime;

....

//No o vc coloca

hora_i := Now;

....

//No timer

if (Time - hora_i) > StrToTime(�00:00:05�)  then 
begin 
showmessage(�5 seg�);
end
else
......

S� uma id�ia do q vc pode fazer. Implementar � por sua conta agora.

Boa sorte!!!

Crash · Answer

prefira trabalhar com numeros ao inves de conversoes de texto. por exemplo: cada hora seria 1/24 cada minuto seria 1/24/60/60.

HoraFinal, HoraInicial : TTime

if (HoraInicial - HoraFinal) < (5 / 24) then
Comandos...

t+

Crash · Answer

ops acho q errei....seria if (HoraFinal - HoraInicial) < (1/24 * 5) then  Comandos...t+...

Ropesca · Answer

Nenhum dos esquemas propostos pelos amigos acima funcionaram, nem do CrasH nem do Martins.Ele continua aparecendo a mensagem fora do estabelecido.Espero que possam me ajudar....