Como somar horas

[Predes 0]

Como faço para somar hora?

 

fiz o seguinte:

VAR
tempo :ttime;
begin
        tempo:=(time + (time+2));
        edit2.Text:=TimeToSTr(tempo);
end;

mais retorna a hora errada.

 

ai fiz mó gambiarra tive que converter de int pra str pra de str converter pra ttime para ai somar time+ time ai da certo.

não tem nada mais inteligente?

[João Paulo Taraciuk 0]

Olá, pode fazer assim:

Declara na uses o DateUtils, coloca 2 edits e faz assim:

 

Edit1.Text:=TimeToStr(IncHour(Time,2));
Edit2.Text:= TimeToStr(IncMinute(Time,10));

No Edit1, estou adicionando 2 hora na hora atual, e no Edit2 estou adicionando 10 minutos na hora atual.

Simples assim.

Dá uma pesquisada nessa Uses DateUtils que tem muita coisa que facilita muito a vida, no caso de somar, calcular horas, datas.

 

 

 

Abraço!!!