wochentag berechnen

[jfheins]

Schreib halt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage (IntToStr(WochenTag(Strtoint(e1.text), strtoint(e2.text), strtoint(e3.text))));
end;