Fórum Problema c/ time #141165
26/02/2003
0
Gostaria de saber como somar segundos na hora ?
Exemplo 10:23:00 + 5 = 10:23:05
Obrigado.
Exemplo 10:23:00 + 5 = 10:23:05
Obrigado.
Anonymous
Curtir tópico
+ 0
Responder
Posts
26/02/2003
Adilsond
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
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
Responder
Gostei + 0
26/02/2003
Adilsond
Completando:
TDateTime
0.25 = 6 horas
0.000694444444444445 = 1 minuto
1.15740740740741E-5 ou 0.0000115740740740741 = 1 segundo
TDateTime
0.25 = 6 horas
0.000694444444444445 = 1 minuto
1.15740740740741E-5 ou 0.0000115740740740741 = 1 segundo
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)