jetzt würde es so aussehen
Delphi-Quellcode:
function WochenTag(AYear, AMonth, ADay: integer): integer;
var
i : integer;
begin
i:=DayOfWeek(EncodeDate(AYear,AMonth,ADay))-1;
if i=0 then i:=7;
Result:=i;
end;
Wenn ich jetzt aber die Funktion aufrufe bekomm ich nen Fehler
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=FloatTostr(WochenTag(AYear, AMonth, ADay));