Hallo zusammen,
Ich bin gerade dabei ein Projekt zuschreiben. Dabei möchte ich eine Zeit mit TTime ausgeben, die größer wie 24h ist. Ich habe hier im Forum schon bestimmte Artikel gelsesen, die mir aber entweder bei der Lösungsfindung nicht weiter geholfen haben oder ich verstehe die angebotene Lösung nicht. Ihr müsst wissen, dass ich ein blutiger Anfänger bin.
Hier erstmal der betreffende Programmteil
Delphi-Quellcode:
if StrToTime(Edit1.Text) < StrToTime(Edit5.Text) then
begin
Flugzeit := StrToTime(Edit1.Text) - StrToTime(Edit5.Text);
Listbox8.Items.add(TimeToStr(Flugzeit));
Gesamtflugzeit:= Gesamtflugzeit + Flugzeit;
Listbox22.Items.clear;
Listbox22.Items.Add(timetostr(Gesamtflugzeit));
end;
if StrToTime(Edit1.Text) > StrToTime(Edit5.Text) then
begin
Flugzeit:= 24 - (StrToTime(Edit1.Text) - StrToTime(Edit5.Text));
Listbox8.Items.add(TimeToStr(Flugzeit));
Gesamtflugzeit:= Gesamtflugzeit + Flugzeit;
Listbox22.Items.clear;
Listbox22.Items.Add(timetostr(Gesamtflugzeit));
end;
end;
Bei dem Programm geht es darum Gesamtflugzeiten eines Flugtages auszurechnen. Da aber mehrere Flugzuge gleichzeitig fliegen können, kann diese >24h werden. =)
Ich bitte nun also um konkrete Hilfe (bezogen auf unser Programm), wie die Zeit bieliebig weit weiter gezählt wird und nicht bei 24:00 wieder auf 0:00 springt.
Danke im Vorraus.
Gruß
Chaosritter