Datum / Zeit Vergleichen

[marabu]

Oder so:

Delphi-Quellcode:

uses
  DateUtils;

var
  fn: TFileName;
  dt: TDateTime;
begin
  fn := ParamStr(0);
  dt := FileDateToDateTime(FileAge(fn));
  if CompareDateTime(dt - Now, 2 * OneMinute) = GreaterThanValue then
    ShowMessage('Datei ist älter als 2 Minuten');
end;

Grüße vom marabu