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