Datumsvergleich

[SirThornberry]

da du nur den Ganzzahlen Anteil benötigst schneidest du einfach den Nachkommazeil ab. Also so:

Delphi-Quellcode:

var LDatumUndZeit: TDateTime;
    LDatum: Integer;
begin
  LDatumUndZeit := Now();
  LDatum := Trunc(LDatumUndZeit);