wochentag berechnen

[tobiasw]

hi

mein Prog hat 3 Eingaben: Tag, Monat, Jahr. Ausgabe ist: Wochentag. Ich möchte also wenn ich bei tag z.b. 1 eingeb, Monat 2 und Jahr 1990 das er mir den Wochen tag ausgibt. Das ganze möchte ich über eine Funktion realisieren.

Delphi-Quellcode:

function wochentag (tag, monat, jahr:double):double;
var
wo_tag:integer;
begin

wo_tag=(jahr div 4 +jahrhundert div 4+(13*monat-1)div 5+tag+jahr-2*jahrhundert)mod7;
result:=wo_tag

Nur das ganze funktioniert nicht so wirklich. Ich hoffe jemand hat einen Idee wie ich es lösen könnte

[Nikolas]

Das wird dir helfen: dayoftheweek.

[Sharky]

Hai tobiasw,

wenn Du es nicht selber machen möchtest ;-) -> DayOfTheWeek()

[tobiasw]

mmh

das sieht dann jetzt so aus

Delphi-Quellcode:

function DayOfTheWeek(const AValue: TDateTime): Word;

aber was für parameter muss ich dort denn noch reinschreiben????

[Keldorn]

einen Tdatetime-wert vielleicht? Wie der aufgebaut ist, verrät dir die OH.

Du kannst mit encode-date einen Tdatetime-wert aus Tag,monat, jahr erstellen.

Mfg Frank

[tobiasw]

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));

[jfheins]

Zitat:

Zitat von tobiasw

Wenn ich jetzt aber die Funktion aufrufe bekomm ich nen Fehler

Ach. Ist ja interessant. Und, was sagt er?

[tobiasw]

undefinierter Bezeichner obwohl ich ihn doch in meiner Funktion hab

[fkerber]

Hi!

Und was sagt er, wäre der undefinierte Bezeichner?


Ciao Frederic

[jfheins]

Wenn du

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.text:=FloatTostr(WochenTag(AYear, AMonth, ADay));

schreibst, und AYear, AMonth und ADay vorher nicht definiert hast, woher soll er dann wissen, welchen tag du haben möchtest ?
Probiers mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.text:=FloatTostr(WochenTag(2004, 12, 4));

P.S. Geändert, aber delphi ist nicht case-Sensitive ... :roll:

[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

Delphi-Quellcode:

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:

Delphi-Quellcode:

Edit1.Text := FloatToStr(WochenTag(IntToStr(JahresEdit.Text), IntToStr(MonatsEdit.Text), IntToStr(TagesEdit.Text)));

Ein bisschen Eigeninitiative sollte man doch erwarten können... :roll:

mfg, mh166

[tobiasw]

ja toll so hatte ich das ja

Delphi-Quellcode:

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.

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

[mkinzler]

Und in den Antworten vorher sind genügend Hinweise für die Lösung!

[p80286]

So einen thread nach 8 Jahren ausbuddeln...

Du hast es schon einmal mit DayoftheWeek versucht?

Wo klemmt es denn genau?

Gruß
K-H

[Blup]

Für die ganz Faulen: http://www.delphibasics.co.uk/RTL.asp?Name=DayOfWeek