Fehler in Kalenderfunktion

[DeddyH]

So klappt das bei mir:

Delphi-Quellcode:

function test(year:integer):word;
var mydate: TDate;
begin
  mydate:= (EncodeDate(year,1,1));
  result:=  DayOfTheWeek(mydate);
end;

procedure TForm1.Button1Click(Sender: TObject);
const Tage: array[1..7] of string = ('Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag','Sonntag');
begin
   Label1.Caption:=Tage[test(2010)]; // 5 = Freitag erwartet
end;