DayOfWeek richtig ausgeben?

[AlexII]

Versuche als vergebens den Wochentag richtig auszugeben. Drehe bald durch, irgendwie spinnt mein Delphi total.
Hab schon mehrere Versuche unternommen, z.B. so, aber bekomme nir die Zahl von 1 bis 7 Wer weiß wieso?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Date: TDate;
begin
showmessage(datetostr(DayOfWeek(Date)));
end;

[mirage228]

Wie wärs mit IntToStr statt DateToStr?

[Wolfgang Mix]

... und teste 'mal DayOfTheWeek (Montag = 1);

Gruß

Wolfgang

[himitsu]

Date an diese Funktion übergeben und nur den Wochentag als Formatstring definieren
FormatDateTime


oder DayOfWeek(Date) plus eines der Arrays
ShortDayNames
LongDayNames

[Chris.R]

Hallo,

der Rückgabewert der Funktion DayOfWeek ist vom Typ Integer und nicht vom Typ TDateTime, daher ist die Funktion DateToStr nicht wirklich hilfreich.
Außerdem solltest du der Variable Date einen Wert zuweisen, bevor du DayOfWeek aufruftst, da Date sonst nicht initialisiert ist und
irgendeinen Wert enthält. Es sei denn, du willst die Funktion Date aus der Unit SysUtils benutzen, dann mußt du die Variable Date entfernen.

Versuchs doch mal so:

Delphi-Quellcode:

procedure TestButtonClick(Sender: TObject);
var
  ADate: TDateTime;
begin
  ADate := StrToDateTime('26.10.2009');
  ShowMessage(IntToStr(DayOfWeek(ADate)); // Sollte 2 (= Montag) zurückgeben
end;

Ciao Chris

[Sharky]

BTW:

Welchen Wert soll die Variable Date denn haben?

Zitat von AlexII:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Date: TDate;
begin
showmessage(datetostr(DayOfWeek(Date)));
end;

[AlexII]

Wer kann mir sagen ist der Rückgabewert von DayOfWeek auf anderssprachigen Windowsen gleich? Also 1 für Sonntag, 2 für Montag usw. oder nicht?
Danke!

[DeddyH]

DayOfWeek

Zitat:

DayOfWeek returns the day of the week of the specified date as an integer between 1 and 7, where Sunday is the first day of the week and Saturday is the seventh.
Note: DayOfWeek is not compliant with the ISO 8601 standard, which defines Monday as the first day of the week. For an ISO 8601 compliant version, use the DayOfTheWeek function instead.

[himitsu]

Gegenfrage: Wieso sollte eine mathematische Berechnung von der Systemsprache abhängen?

[AlexII]

Zitat von himitsu:

Gegenfrage: Wieso sollte eine mathematische Berechnung von der Systemsprache abhängen?

Weil Sonntag nicht überall der erste Tag der Woche ist. Deswegen die Frage.