Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - fileage zwischen heute und vor 28 Tagen?


D. Annies - Di 26.12.06 10:48
Titel: fileage zwischen heute und vor 28 Tagen?
Hi, Delpher,

ich möchte alle Dateien sichern, deren FileAge nicht älter ist als 28 Tage.

Wenn das Dateidatum zwischen heute und gestern liegt, mache ich es so:


Delphi-Quelltext
1:
2:
3:
if (filedatetodatetime(fileage(findrec.name)) = heute) or
   (incday(filedatetodatetime(fileage(findrec.name))) = heute) then
sichern(self);


Aber wie bekomme ich den gewünschten Zeitraum eingepackt?


Danke für Hilfe, Detlef


GTA-Place - Di 26.12.06 10:52


Delphi-Quelltext
1:
2:
if DaysBetween(FileDateToDateTime(FileAge(FindRec.Name)), Now) < 28 then
  Sichern(Self);

Oder auf pseudo-codisch:

Quelltext
1:
2:
Wenn weniger als 28 Tage zwischen Heute und dem Erstellungsdatum der Datei liegen, dann
  Sichere(Datei);


D. Annies - Di 26.12.06 10:59

Hi, Fabi,

war das jetzt ein neuer Thread-Lösezeit-Rekord?

Danke für deine seehr schnelle Antwort!

Detlef


GTA-Place - Di 26.12.06 11:01

War nur zufällig grad hier ;-).

Wenn du den 28. Tag noch mit einschließen willst, musst du natürlich <= statts < schreiben. Aber das weißte bestimmt :-).


D. Annies - Di 26.12.06 11:11

Hab ich schon gesetzt, dat wusste ick...


BenBE - Di 26.12.06 14:10

Thread-Lösezeit von 4 Minuten ist noch recht langsam ... Glaube der Rekord liegt bei knapp ner Minute oder so ... Hatte gestern erst nen Thread, wo der entscheidende Post innerhalb von 210 Sekunden kam ...


D. Annies - Di 26.12.06 21:01

Hi, Benni,

wir arbeiten dran ... übrigens, die Antwort war nach <= 2 Minuten da, mit meiner Antwort waren es 4 Minuten!
(Detlef)