Problema c/ time

Delphi

26/02/2003

Gostaria de saber como somar segundos na hora ?

Exemplo 10:23:00 + 5 = 10:23:05

Obrigado.


Anonymous

Anonymous

Curtidas 0

Respostas

Adilsond

Adilsond

26/02/2003

procedure TForm1.Button1Click(Sender: TObject);
var
HoraM: TDateTime;
HoraS: TDateTime;
begin
HoraM := StrToTime(Edit1.Text) + 0.000694444444444445; // Soma 1 minuto
HoraS := StrToTime(Edit1.Text) + 1.15740740740741E-5; // Soma 1 segundo
Edit2.Text := TimeToStr(HoraM);
Edit3.Text := TimeToStr(HoraS);
end;


TDateTime --> 0.25 = 6 horas


GOSTEI 0
Adilsond

Adilsond

26/02/2003

Completando:

TDateTime

0.25 = 6 horas
0.000694444444444445 = 1 minuto
1.15740740740741E-5 ou 0.0000115740740740741 = 1 segundo


GOSTEI 0
POSTAR