Entwickler-Ecke

Sonstiges (Delphi) - Datum vergleichen


91KEY8 - Sa 03.06.06 14:02
Titel: Datum vergleichen
Hallo!

Ich möchte, dass mein Programm das Systemdatum mit einem anderen Datum vergleicht. Leider weiß ich nicht, wie ich das realisieren könnte :cry:

Danke für jede Hilfe :D

mfg 91KEY8


EbbiDos - Sa 03.06.06 21:06

Die Zeit nutzt den Datentyp TDateTime und ist nicht anderes als eine 64-bit Fließkommazahl (identisch mit Double).
Die Abfrage der aktuellen Systemzeit (Datum + Uhrzeit) macht man mit "Now".
Wenn du nur das aktuelle Systemdatum abfragen willst, dann "Date" nutzen.


Beispiel
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
procedure TForm1.Button1Click(Sender: TObject);
const c = 38871.9// "gespeicherter" Zeitwert
var n: Double;
    d: Double;
begin
  n := Now;  // aktuelle Systemzeit
  d := Date; // aktuelles Systemdatum
  if n < c then Caption := 'c ist größer';
  if n = c then Caption := 'c ist gleich';
  if n > c then Caption := 'c ist kleiner';
end;