Prüfung ob Wochentag in der Zeit vorhanden

[loirad]

Ich will alle Freitage ausgeben. Den Rest probiere ich heute Nachmittag aus.

[loirad]

Zitat von loirad:

incDay(Tag);

Das funktioniert nicht. Der Wert ändert sich nicht.

[himitsu]

Ein/zwei Beiträge weiter vorne steht die Lösung.

Außerdem steht sie auch in der OH > IncDay

und wenn man sich die Signatur (Definition) der "Funktion" ansieht, bzw die Parameter, welche einem von der IDE/CodeInsigt aufgelistet werden, sollte einem auch sofort klar werden, daß hier
keine Prozedur mit einem Var-Parameter, sondern eine Funktion mir einem Const-Parameter + Result vorliegt.

[Bjoerk]

Gelegentlich hilft auch ein Blick in die Delphi Hilfe.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ADate: TDateTime;
  days: array [1..7] of string;
begin
  ADate:= StrToDate('1.1.2011');
  days[1]:= 'Sunday';
  days[2]:= 'Monday';
  days[3]:= 'Tuesday';
  days[4]:= 'Wednesday';
  days[5]:= 'Thursday';
  days[6]:= 'Friday';
  days[7]:= 'Saturday';
  while CompareDate (Adate, Now) <= 0  do
  // oder while not IsSameDay (Adate, IncDay(Now)) do
  // oder while not IsToday (IncDay(ADate, -1)) do
  begin
    // ListBox1.Items.Add(DateToStr(ADate) + ' is a ' + days[DayOfWeek(ADate)]);
    if DayOfWeek(ADate) = 6 then
      ListBox1.Items.Add(DateToStr(ADate) + ' ist ein Freitag');
    ADate:= IncDay(ADate);
  end;
end;

[DeddyH]

Jo:

Zitat:

Anmerkung: DayOfWeek ist nicht mit dem ISO 8601-Standard konform, in dem Montag als der erste Tag der Woche definiert wird. Die Funktion DayOfTheWeek stimmt mit dem ISO 8601-Standard überein.

[mkinzler]

Sehr interessant, Wer sich an Regeln hält, verhält sich nicht Regelkonform

[Bjoerk]

Jo, g g geil. Scheint wohl eine falsche Verbesserung der Hilfe zu sein, wo in SysUtils und DateUtils noch unterschiedliche Zählungen waren.

[r2c2]

Das "The" habt ihr entdeckt?

mfg

Christian

[Bjoerk]

Stimmt Christian, wer lesen kann ist klar im Vorteil.

DateUtils.DayOfTheWeek vs. SysUtils.DayOfWeek

Thanx.

[DeddyH]

Ich hätte es vielleicht entsprechend markieren sollen
Also nochmal:
DayOfWeek -> Sonntag = 1, Samstag = 7
DayOfTheWeek -> Montag = 1, Sonntag = 7

Da die letztere Variante ISO-konform ist, sollte man sie bevorzugt verwenden.