wochentag berechnen

[tobiasw]

AYear

[tobiasw]

so das Problem wäre gelöst hatte doch tatsächlich vergessen das als Variable zu deklarieren. Wenn ich jetzt aber Tag 1, Monat 2, Jahr 2004 schreibe bekomm ich einen Fehler der heißt invalid argument to date encode

[Lantis]

Hi, vielleicht hilft Dir das hier ein wenig.

Delphi-Quellcode:

function Wochentag(Datum:TDateTime):string;
var
  days: array[1..7] of string;
begin
  days[1] := 'Sonntag';
  days[2] := 'Montag';
  days[3] := 'Dienstag';
  days[4] := 'Mittwoch';
  days[5] := 'Donnerstag';
  days[6] := 'Freitag';
  days[7] := 'Samstag';
  Result:=(days[DayOfWeek(Datum)]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Wochentag(Date));  //gibt den Wochentag von Heute aus
end;

Gruß Lantis

[tobiasw]

@lantis danke das ist aus der Delphi Hilfe da bin ich auch schon drübergestolpert aber ich soll ja den Wochentag von einem belibigen tag,monat und Jahr ausgeben lasssen

[Nikolas]

Hast du die passende Unit eingebunden?

[Pr0g]

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

[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