Tempo decorrido...

07/07/2004

0

Delphi

Como faço para saber quanto tempo (hh:mm:ss) passou desde do dia, por exemplo, 05/07/2004 as 15:00:00 até agora.


Fhpita

Fhpita

Responder

Posts

07/07/2004

Rômulo Barros 

procedure TForm1.Button1Click(Sender: TObject);
Var
  Tempo1, TempoAtual : TDateTime;
begin
  Tempo1 := StrToDateTime(´07/07/2004 15:00:00´);
  TempoAtual := Now;
  ShowMessage(FormatDateTime(´hh:mm:ss´,TempoAtual - Tempo1));

end;

end.



Responder
Gostei + 0

07/07/2004

Fhpita

É uma ideia, mais ele não calcula se a diferença de horário for mais de 24h. Tem alguma outra função que calcularia uma diferença de mais de 24h?


Responder
Gostei + 0

07/07/2004

Marcelo Saviski

Tente assim:

var
  NumDias, Hour, Min, Sec, MSec: Word;
begin
  NumDias := Data2 - Data1;
  DecodeTime(Data2 - Data1, Hour, Min, Sec, MSec);
  Hour := Hour + NumDias * HoursPerDay;
  ShowMessageFmt(´Tempo decorrido ¬2dh:¬2dm:¬2ds´, [Hour, Min, Sec]);
end;


obs: não testei


Responder
Gostei + 0

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar