Datum für die nächsten 2 Wochen ausgeben?

[quakergod]

hi, ich würde gerne das datum des heutigen Tages ausgeben (im Stil von 22.12.2004) und das der daruaffolgenden 13 Tage (insgesamt 2 wochen also)

Im Memo sollte dann Beispielsweise das stehen:

Delphi-Quellcode:

22.12.2004
23.12.2004
24.12.2004
25.12.2004
26.12.2004
27.12.2004
28.12.2004
29.12.2004
30.12.2004
31.12.2004
01.01.2005
02.01.2005
03.01.2005
04.01.2005

kann mir da jemand helfen? :)

[Steve]

Hi,

Die Funktionen Now und FormatDateTime sollten helfen. Der Ganzzahlanteil von TDateTime entspricht dem Tag, kannst also normal mit +1 bzw. inc() hochzählen...

Gruß
Stephan :dance: :xmas:

[BluesKid]

Moin moin

Delphi-Quellcode:

type ZeigListe = ^TStrings;

procedure incDate(Datum : TDatetime; aCount : Integer; aList : ZeigListe);
//Addiert zu "Datum" die anzahl Tage in "aCount" und gibt alles in "aList" aus
var i : Integer;
begin
  for i := 0 to aCount do aList.Add(datetostr(Datum + i));
end;

Der Aufruf (Bsplw.)

Delphi-Quellcode:

  incDate(now, 13, @Memo1.lines)

schönen Gruß
Sam

[quakergod]

vielen, vielen dank euch beiden!

@ BluesKid, genau das was ich gesucht habe! :hello: danke!! :hi: