[Delphi] Zeitwert

Guten Morgen zusammen !

Ich sollte für ein Projekt eine Funktion realisieren, welche mir die Zeit seit biespielweise 1980 in Sekunden angibt. Dies soll dazu dienen, eine eindeutige Nummerierung zu gewährleisten.

Weiss jemand, wie ich den Zeitwert seit einem bestimmten Tag rausfinden kann ?

Besten Dank

Christian

var
dtTime: TDateTime;

Trunc(dtTime); ???

schau mal in der Hilfe nach weiteren Details über den TDateTime-Typ nach. Ich denke das wird dir weiterhelfen.

Hi Christian,

bei TDate bzw. TDatetime ist ein Tag genau 1. Um also eine Differenz in Sekunden herauszubekommen:

function Sekunden\_seit\_damals(Zeit:TDatetime):integer;
begin 
 result:=truc((now-Zeit)\*24\*60\*60);
end;

Gruß, Steffen

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]