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

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