wochentag berechnen

[Pr0g]

Bei mir geht der Code ohne Probleme:

Delphi-Quellcode:

function WochenTag(AYear, AMonth, ADay: Integer): Integer;
begin
  Result := DayOfWeek(EncodeDate(AYear, AMonth, ADay)) - 1;
  if Result = 0 then
    Result := 7;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := FloatToStr(WochenTag(2004, 12, 4));
end;

Aber warum nutzt du FoatToStr bei einem Integer? Ist doch AFAIK nur langsamer.

MfG Pr0g