wochentag berechnen

[tobiasw]

@Pr0g der Source geht ja ich will aber an der Stelle Edit1.Text := FloatToStr(WochenTag(2004, 12, 4)); aber 2005, 12, 4 meine Edit felder berücksichtigen

[jfheins]

Schreib halt

Delphi-Quellcode:

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

[mh166]

Dann mach halt:

Edit1.Text := FloatToStr(WochenTag(IntToStr(JahresEdit.Text), IntToStr(MonatsEdit.Text), IntToStr(TagesEdit.Text))); Ein bisschen Eigeninitiative sollte man doch erwarten können...

mfg, mh166

[tobiasw]

ja toll so hatte ich das ja
edit1.text:=(IntToStr(WochenTag(Strtoint(edit2.text), strtoint(edit3.text), strtoint(edit4.text)))); dann tritt dort ja der Fehler wie oben beschrieben auf

[jfheins]

Zeig mal deinen Quellcode, wie du ihn jetzt hast, und was genau nicht geht bzw. welcher Fehler genau kommt ...

[tobiasw]

@mh116 dabei tritt auch ein Fehler auf das es keine überladenen Version von IntToStr mit diesen Argumenten gibt

[tobiasw]

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;



procedure TForm1.Button1Click(Sender: TObject);
begin
//edit1.text:=(IntToStr(WochenTag(Strtoint(edit2.text), strtoint(edit3.text), strtoint(edit4.text)))); // dort kommt ein Fehler


Edit1.Text := FloatToStr(WochenTag(IntToStr(edit2.Text), IntToStr(Edit3.Text), IntToStr(Edit4.Text))); // dort genau so
end;


end.

So sieht es jetzt aus

[tobiasw]

invalid arguments so heißt der Fehler

[jfheins]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
//edit1.text:=(IntToStr(WochenTag(Strtoint(edit2.text), strtoint(edit3.text), strtoint(edit4.text)))); // dort kommt kein Fehler 


Edit1.Text := FloatToStr(WochenTag(IntToStr(edit2.Text), IntToStr(Edit3.Text), IntToStr(Edit4.Text))); // dort muss man ein bisschen mehr nachdenken, damit auch keiner kommt ... 
end;

So ist's zumindest bei meinem D7 ...

[Pr0g]

Hast du auch die Reihenfolge der Parameter beachtet, also das Jahr in Edit2, Monat in 3 und Tag in 4? Bei mir klappts.