Różnica godzin

Jak obliczyć różnicę pomiędzy np. godz. 8.30 a godz. 23.32, czy istnieje jakaś funkcja lub czy też trzeba pisać własne funkcje obliczające różnicę?

No coś tam jest...

function ileminut(t1,t2:TTime):string;
var t:TTime;G,m,s:Word;
begin
t:=t1-t2;
decodetime(t,g,m,s,s);
result:=inttostr(g*60+m);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  time1, time2 : TTime;
begin
  time1 := StrToTime(Edit1.Text);  //wpisujemy nową godzinę [_:_:_]
  time2 := StrToTime(edit2.Text);  //aktualna godzina
Edit3.Text:=ileminut(time1,time2)
end;

Stealth ależ ty szybki jesteś:>

Dzięki

Oczywiście, bo to było na forum za jednym kliknięciem na Szukaj :[

Co nie chciało się szukać?

..głupio powiedzieć ale to robiłem, jedyne co zostaje powiedzieć to to iż wyszukiwarka jest tendencyjna [rotfl]

userftp napisał(a)

..głupio powiedzieć ale to robiłem, jedyne co zostaje powiedzieć to to iż wyszukiwarka jest tendencyjna [rotfl]

zapomniałem jest także taka funkcja która oblicza ilość np. minut

d1:= StrToDateTime('12:15');
d2:= StrToDateTime('12:20');
MinutesBetween(d1,d2)

:>