Ich möcht über eine Funktion "Test" die Wochentage einiger Neujahrdaten bestimmen.
Delphi-Quellcode:
// Fehler in Datumsfunktion
function test(year:integer):word;
var mydate: TDate;
begin
mydate:= (EncodeDate(year,1,1));
result:= DayOfTheWeek(mydate);
// 5 erwartet, aber bekomme 04.01.1900 zurueck
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=DateToStr(test(2010)); // 5 = Freitag erwartet
end;
Neujahr 2010 wird ein Freitag sein, ich bekomme als Ergebis 04.01.1900 zurueck.
Was ist hier falsch?