wochentag berechnen

[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.

[tobiasw]

es war wirklich so das die edit felder zwischen tag und Jahr vertauscht waren. Meine Frage wieso macht den das soviel aus?

[jfheins]

Welcher Wochentag ist am 2004. Dezember des Jahres 4 ???
(Kein Monat hat 2004 Tage ...)

[tobiasw]

genau das mal wieder total doofer Fehler

[stina]

Hey das is keine Antwort sondern ne Frage!
Also ich soll mit vcl ein programm erstellen in das man name und Geburtsdatum einträgt und wenn man auf den button klickt soll son Satz erscheinen wie: Sie wurden an einem.......geboren oder Der Name und dannSie wurden an einem Sonntag geboren.
Meine Frage ist wie mach ich das???
Beispiel:
Name: Stina Geburtsdatum 6.7.1998
Stina sie wurden an einem Montag geboren.
oder so ähnlich.
Danke im Vorraus:-D
Ps: Die Rechtschreibfehler sind gratis :lol: