Ich hätte da noch eine Verständnisfrage:
Delphi-Quellcode:
var
Jahr :Word;
i,j :Integer;
Jahrtagebegin, Jahrtageende, Z: TDate;
begin
Jahrtagebegin:=StartOfaYear(Jahr);
JahrTageEnde:=EndOfAYear(Jahr);
I:=0;
for Z := JahrtageBegin to JahrTageEnde do begin
if (DayOfTheWeek(z)=6) or (DayOfTheWeek(z)=7)then begin
SG.Cells[0,i+1+j]:=IntToStr(Jahr);
SG.Cells[1,i+1+j]:=DateTimeToStr(z);
SG.Cells[2,i+1+j]:='Wochende';
SG.Cells[3,i+1+j]:=wochentag(DayOfTheWeek(z));
SG.Cells[4,i+1+j]:=IntToStr(WeekOf(z));
SG.Cells[5,i+1+j]:=IntToStr(z);
I:=I+1;
end;
end;
Z ist als TDate deklariert.
Warum kann man den nicht als Schleifenzähler nehmen?
Ich wollte eine Liste aller Wochenenden haben.