Сложение времен нескольких edit/label
Добрый день!
Прошу помочь, сам уже не справляюсь. В Edit1 динамически записывается время в формате '23:59'. Есть кнопка, которая последовательно записывает в свойства Edit[2-7].text значения из основного компонента Edit1. И есть поле Edit8, которое должно суммировать записанные времена в Edit[2-7]. Причем сумма отображаемого времени не должна ограничиваться 24 часами DateTime.
Какие только ухищрения я не пробывал с этими переводами типов. не получилось даже количество итоговых минут посчитать.
Научите пожалуйста, как просуммировать несколько времен.
var
ld1,ld2,ld3,ld4,ld5,ld6 : integer;
begin
if edit2.text = '00:00' then begin edit2.text:=edit1.text; ld1:=minutesbetween(0,strtotime(edit1.text)) end
else if edit3.text = '00:00' then begin edit3.text:=edit1.text; ld2:=minutesbetween(0,strtotime(edit1.text)) end
...
else if edit7.text = '00:00' then begin edit7.text:=edit1.text; ld6:=minutesbetween(0,strtotime(edit1.text)) end;
edit8.Text:=inttostr(ld1+ld2+ld3+ld4+ld5+ld6);
|