Datum in Sekunden umrechnen

[IrfanDüzgün]

Hallo
Gibts eine Möglichkeit dieses Datumsformat 01.02.2000 19:56:34 in Sekunden
umzurechnen?. Z.B. Wieviel Sekunden es seit Jahresanfang sind.<br>
Wohlgemerkt Ich möcht wissen ob es so einen Befehl gibt. Ansonsten muß Ich die Zeichen einzeln einlesen und auswerten. Was Ich im Augenblick versuche zu vermeiden.

Irfan Düzgün

[Wolfgang Wendefeuer]

Hallo,<br>
schaum mal unter http://www.esbconsult.com.au/ --- auf der Homepage nach unter scrollen. Dort gibt es eine große Sammung von Datums/Zeit Routinen vielleicht findest Du da was.<br>
Wolfgan

[Thomas Sparenberg]

Hallo!

Versuche mal:

procedure TForm1.Button1Click(Sender: TObject);

var t1, t2, t : TDateTime;

const Faktor = 24 * 60 * 60;

begin

t1 := StrToDateTime(Edit1.Text);
t2 := StrToDateTime(Edit2.Text);

t := t2 - t1;

label1.caption := inttostr(trunc(t* Faktor));

end;

Siehe auch Hilfe zu TDateTime.

mfg Thoma