Datumsfunktion in einer for-Schleife

[Ajintaro]

Hallo DP!

Ich habe Dateien mit einem Datum im Dateinamen. Fuer den heutigen Tag sieht sie z.B. so aus: 120213.zip

FormatDateTime('yymmdd',now)+'.zip'
Ich moechte nun die Dateien der letzten 14 Tage auf Anwesenheit pruefen. Vermeiden moechte ich:

Delphi-Quellcode:

if FileExists(FormatDateTime('yymmdd',now)+'.zip') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-1') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-2') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-3') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-4') then //mache dies und das
...

Das kann man bestimmt irgendwie eleganter loesen.

Delphi-Quellcode:

for i := 0 to -13 do
 begin
  if FileExists(FormatDateTime('yymmdd',now[i])+'.zip') then //mache dies und das
  dec(i);
 end;

So gehts auf jeden Fall nicht WIsst ihr Rat?

[DeddyH]

Delphi-Quellcode:

uses DateUtils;

for i := 0 to 13 do
 begin
  if FileExists(FormatDateTime('yymmdd',IncDay(now, -i))+'.zip') then

Ungetestet.

[Ajintaro]

Zitat von DeddyH:

Ungetestet.

Aber funktioniert. Dateutils IncDay(now, -i) ist ja wunderbar! Vielen Dank!

[Furtbichler]

IncDays(Now,-x) <==> Now - x