Einzelnen Beitrag anzeigen

N30N

Registriert seit: 7. Aug 2007
78 Beiträge
 
#5

Re: Datum in Integer umwandeln

  Alt 17. Okt 2007, 15:28
Okay, mittlerweile hab iche s hinbekommen zwei Uhrzeiten voneinander abzuziehen.

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text := timeToStr( time() );
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Zeit : tdatetime;
Zeit2 : tdatetime;
Ergebniss :tdatetime;
begin
Zeit := strtotime(edit2.Text);
Zeit2 := strtotime(edit1.Text);
Ergebniss := Zeit - Zeit2;
edit3.Text := timetostr(Ergebniss)
end;

Eventuell etwas umständlich, aber es funktioniert ^^




So, nun müsst ich mein Ergebniss nur noch ordentlich umwandeln können, so dass ich zum Beispiel Stunden, Minuten und Sekunden in Variablen speichern kann. Ich will als Endergebniss die Zeit die verbleibt als Sekunden haben. Wie stell ich das jetzt an?
  Mit Zitat antworten Zitat