Fehler in Kalenderfunktion

[Wolfgang Mix]

Ich möcht über eine Funktion "Test" die Wochentage einiger Neujahrdaten bestimmen.

Delphi-Quellcode:

// Fehler in Datumsfunktion

function test(year:integer):word;
var mydate: TDate;
begin
  mydate:= (EncodeDate(year,1,1));
  result:=  DayOfTheWeek(mydate);
  // 5 erwartet, aber bekomme 04.01.1900 zurueck
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Label1.Caption:=DateToStr(test(2010)); // 5 = Freitag erwartet
end;

Neujahr 2010 wird ein Freitag sein, ich bekomme als Ergebis 04.01.1900 zurueck.

Was ist hier falsch?

[DeddyH]

Test gibt doch eine Word zurück und kein TDate.

[Wolfgang Mix]

Rückgabewert TDate liefert das gleiche Ergebnis, das hatte ich schon vorher ausprobiert

mfg

Wolfgang

[DeddyH]

So klappt das bei mir:

Delphi-Quellcode:

function test(year:integer):word;
var mydate: TDate;
begin
  mydate:= (EncodeDate(year,1,1));
  result:=  DayOfTheWeek(mydate);
end;

procedure TForm1.Button1Click(Sender: TObject);
const Tage: array[1..7] of string = ('Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag','Sonntag');
begin
   Label1.Caption:=Tage[test(2010)]; // 5 = Freitag erwartet
end;

[Mithrandir]

DateToStr ist in diesem Fall fehl am Platze, ein einfaches IntToStr liefert dir die gewollte 5. Um dann den Wochentag zu bekommen, siehe DeddyHs Lösung.

[Wolfgang Mix]

Das war es. Ihr seid gut und schnell!

Respekt

Wolfgang