DELPHI5D: Uhrzeiten addieren

[nelly]

Hallo Delphianer,
ich bin gerade dabei, einen Taschenrechner (ähnlich wie CALC.EXE von Windows) zu programmieren, der aber mit Uhrzeiten rechnet (die Nachkommastelle kann nicht größer 59 sein). Aus diesem Grunde suche ich Routinen, die sich mit diesem Thema befassen (Addition, Subtraktion, Division, Multiplikation etc.). Ich habe auch schon nach Komponenten gesucht, aber nichts gefunden.

Hast Du einen Hinweis für mich, wo ich weitere Informationen, Beispiele oder Routinen finden kann ?

Gruß
Uwe

[Mario.Noack]

Wenn Du die Uhrzeiten im Delphi TDateTime-Format addierst etc., wirst Du keine Probleme haben, da die auf 1,0 geeicht sind. Schau mal nach <b>EncodeTime</b>.<p>
Grüße, Mario Noac

[Klaus-Peter Fitzner]

Hallo Uwe,

hier mal ein paar kleine Beispiel zum Umgang mit der Zeit:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
Zeit1, Zeit2, Gesamtzeit: TDateTime;
Std, Min, Sec, MilliSec: Word;
stdStr, MinStr: String;
begin
Zeit1 := EncodeTime(0,30,0,0); //30 Minuten
Zeit2 := EncodeTime(0,40,0,0); //40 Minuten
Gesamtzeit := Zeit1 + Zeit2;
DecodeTime(Gesamtzeit,Std,Min,Sec,MilliSec);
if Std = 1 then stdStr := 'Stunde' else stdStr := 'Stunden';
if Min = 1 then MinStr := 'Minute' else MinStr := 'Minuten';
Label1.Caption := FormatDateTime('h ',(Gesamtzeit))+stdStr+
FormatDateTime('m ',(Gesamtzeit))+MinStr;
end;
</pre>

mfg Klaus-Pete