Odejmowanie czasu

0

Chodzi mi o coś takiego :
a : 14:05:10
b : 15:10:20
c=b-a : 1:05:10

0

Ja bym zrobił rekord, wktórym byłyby trzy pola integer (godz,min,sek) i funkcja obliczania różnicy czas wyglądałaby mniej więcej tak.
var temp : czas;
function odejmij(czas pierwszy, czas drugi)
{
temp.sek:=pierwszy.sek-drugi.sek;
if(temp.sek&lt0)
{
temp.sek:=temp.sek+60;
temp.min:=temp.min-1;
}
temp.min:=pierwszy.min-drugi.min;
if(temp.min&lt0)
{
temp.min:=temp.min+60;
temp.godz:=temp.godz-1;
}
temp.godz:=pierwszy.godz-drugi.godz;
if(temp.godz&lt0)
{
temp.godz:=temp.godz * (-1);
}

To był pseudopascalowy kod, w którym będą błędy ale po przeróbce powinien działać.

--

0

na razie przyszlo mi do glowy tylko jedno rozwiazanie :)

var
TimeA,TimeB: TDateTime;
begin
TimeA := StrToTime('14:05:10');
TimeB := StrToTime('15:10:20');
Edit1.Text := TimeToStr(TimeB-TimeA);
end;

jak wymysle albo znajde cos lepszego to dam znac :)

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Metoda LKS-a jest wystarczająca.
LKS dzięki.
{brawo} {brawo} {brawo} {brawo}

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0