Einzelnen Beitrag anzeigen

Benutzerbild von Binärbaum
Binärbaum

Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Dateien älter als X Tage löschen...

  Alt 28. Mär 2005, 03:29
Zitat von wk2001:
Zitat von toms:
Hallo!

Das Dateidatum kannst du so abfragen:

DateiDatum := FileDateToDateTime(FileAge(FileName));
Und wie kann ich zwischen zwei Daten den Unterschied in Tagen bestimmen?
Delphi-Quellcode:
var Datum1, Datum2: TDateTime;
begin
  //hier Datum einlesen z.B.:
  // Datum2:= Now; und dann dateidatum für Datum1
  if (Datum2- Datum1)>7 then ShowMessage('Älter als 7 Tage')
    else ShowMessage('Noch nicht älter als 7 Tage');
end;
MfG
Binärbaum

[Edit]
Mein 555. Beitrag, darauf trink' ich
[/Edit]
There are exactly 10 kinds of people: those who understand binary, and those who don't.
---
"Software reift beim Kunden. Bei Hardware ist es anders: Hardware fault beim Kunden." - Rainer G. Spallek
  Mit Zitat antworten Zitat