Datum als integer speichern

[MTB1Leo]

Hallo,

Ich möchte innerhalb eines Programms das aktuelle Datum als integer speichern, um es an späterer Stelle wieder ausgeben zu können.

Nun habe ich folgenden Code:

Code: Alles auswählen

 
// NEUER EINGANG
procedure TForm1.A_EIN_SPEClick(Sender: TObject);
 
var
GNd:TDate;
 
begin
 
GNd:=now;
 
EIN_DAT_LIST.Items.Add((datetostr(now)));
M[mo].Eein_D :=DateToStrGNd;
 

M ist ein Feld aus 12 Verbunden, welcher von mo angesteuert wird.

Der Compiler stoppt in der letzten Zeile mit den Worten "unit1.pas(551,16) Error: Incompatible types: got "TDate" expected "LongInt""

Gibt es einen Befehl dr sinngemäß DateToStr gleichkommt?


Danke im Voraus!

MTB1Leo

[Scotty]

Datumswerte werden zusammen mit der Zeit in einem TDateTime als double verarbeitet. Es gibt unzählige Hilfsfunktionen zur Umwandlung. DateToStr() ist zum Beispiel in der unit sysutils deklariert.

http://www.freepascal.org/docs-html/rtl ... tines.html
http://www.freepascal.org/docs-html/rtl ... dex-5.html
http://www.delphibasics.co.uk/RTL.asp?N ... atDateTime

[MTB1Leo]

Vielen Dank!

[m.fuchs]

Wenn du einen Integer als Speicher verwenden willst, empfiehlt sich die Speicherung als Unixzeit.

Entsprechende Konvertierungsfunktionen liegen in der Unit DateUtils: DateTimeToUnix und UnixToDateTime.

[BeniBela]

Code: Alles auswählen

trunc(now)

wenn die Uhrzeit nicht gespeichert werden soll