Сложить два времени. Delphi6

[Антон Лысенко]

Надо сложить два времени часы:минуты:секунды
вот то что я сделал. программа работает правильно. Но может у кого то есть другие идеи на счет того как решить эту задачу. Предлагайте. Будем думать

rogram Dod;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var Sut,h1,h2,hv1,hv2,s1,s2:byte;
begin
writeln('Pershyi chas');
write('hodyny=');readln(h1);
write('hvylyny=');readln(hv1);
write('sekundy=');readln(s1);
writeln('Drugyi chas');
write('hodyny=');readln(h2);
write('hvylyny=');readln(hv2);
write('sekundy=');readln(s2);
if (s1+s2)>60 then
 begin
  hv2:=((s1+s2)div 60)+hv2;
  s2:=(s1+s2)mod 60;
 end
else
 s2:=s1+s2;
if (hv2+hv1)>60 then
  begin
   h2:=((hv1+hv2)div 60)+h2;
   hv2:=(hv1+hv2)mod 60;
  end
 else
   hv2:=hv1+hv2;
 if (h1+h2)>24 then
  begin
   sut:=(h1+h2)div 24;
   h2:=(h1+h2)mod 24;
  end
 else
  begin
   h2:=h1+h2;
   sut:=0
  end;
   writeln('Sutky=',sut,' hodyny=',h2,' hvylyny=',hv2,' sekundy=',s2);
   readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

[Sparkman]

function H2S(h:integer):integer;
begin
     H2S:=h*3600;
end;

function M2S(m:integer):integer;
begin
     M2S:=m*60;
end;

function S2H(s:integer):integer;
begin
     S2H:=trunc(s/3600);
end;

function S2M(s:integer):integer;
var t:integer;
begin
     t:=trunc(s/60);
     while t>=60 do
     t:=t-60;
     S2M:=t;
end;

function S2S(s:integer):integer;
var t:integer;
begin
     t:=s;
     while t>=60 do
     t:=t-60;
     S2S:=t;
end;

var h1,h2,h3,m1,m2,m3,s1,s2,s3:integer;
begin
     // заполнение
     ...
     h3:=S2H(H2S(h1)+M2S(m1)+s1+H2S(h2)+M2S(m2)+s2);
     m3:=S2M(H2S(h1)+M2S(m1)+s1+H2S(h2)+M2S(m2)+s2);
     s3:=S2S(H2S(h1)+M2S(m1)+s1+H2S(h2)+M2S(m2)+s2);
     // вывод
     ...
end.

[Антон Лысенко]

ОГО))) теперь попробую разобраться. спасибо, мне уже интересно)))

[Serge_Bliznykov]

ребят, а скажите, банально две переменные TDateTime
EncodeTime, потом банально сложить и DecodeTime
разве не проще будет?..

или я чего-то упускаю из виду?

[Sparkman]

изобретать изобретенное веселее

[Антон Лысенко]

Сообщение от Serge_Bliznykov

ребят, а скажите, банально две переменные TDateTime
EncodeTime, потом банально сложить и DecodeTime
разве не проще будет?..

или я чего-то упускаю из виду?

а это что?