Datum letzter Samstag?

[Stevie]

Zitat von baumina:

dass so eine süße kleine Frage so viel Grundlage bietet, dass ich hier 29 Beiträge dazu lesen durfte.

Sommerloch

[Dejan Vu]

Zitat von Zoot:

Diese Version ist aber doch genauso abhängig davon, wie die Wochentage kodiert sind, da du nunmal DayOfWeek verwendest.

Mist, das kommt davon, wenn man die Konstante 'DaySaturday' selbst definiert. Die ursprüngliche Version ging natürlich davon aus, das das in den Utilities deklariert ist (was sie zu meinem Erstaunen aber nicht ist). Daher auch die Anmerkung 'egal ob string, enum oder integer'.

Es sollte auch Unittests zu Posts geben.

Zitat von Stevie:

Sommerloch

Prust.

[AlexII]

Wow... das ist ja fast wie die Relativitätstheorie.

Und letzter Sonntag wäre dann?
 result := Date - DayOfWeek(Date) + 1;

[Sir Rufo]

Zitat von AlexII:

Wow... das ist ja fast wie die Relativitätstheorie.

Und letzter Sonntag wäre dann?
 result := Date - DayOfWeek(Date) + 1;

Nur, wenn der aktuelle Tag kein Sonntag ist

[Sir Rufo]

Zitat von Zoot:

Noch ein Vorschlag ohne Schleife.

Delphi-Quellcode:

Function LastDow (const DateToMatch : TDateTime; const DowToMatch : Byte) : TDateTime;
begin
   result := DateToMatch - ((7 - DowToMatch + DayOfTheWeek(DateToMatch)) mod 7);
   if result = DateToMatch then
      result := result - 7;
end;

LastDow(Date, DayFriday) sollte dann den 18.7. ergeben.

Kleine Verbesserung

Delphi-Quellcode:

Function LastDow (const DateToMatch : TDateTime; const DowToMatch : Byte) : TDateTime;
begin
  result := ( DateToMatch - 1 ) - ((DaysPerWeek - DowToMatch + DayOfTheWeek( DateToMatch - 1 )) mod DaysPerWeek);
end;

[Zoot]

Zitat von Sir Rufo:

Kleine Verbesserung

Delphi-Quellcode:

Function LastDow (const DateToMatch : TDateTime; const DowToMatch : Byte) : TDateTime;
begin
  result := ( DateToMatch - 1 ) - ((DaysPerWeek - DowToMatch + DayOfTheWeek( DateToMatch - 1 )) mod DaysPerWeek);
end;

ok, das gefällt

[himitsu]

Zitat von Alex_ITA01:

  call [B]DayOfWeek[/B] //DayOfTheWeek gibts nicht

Zitat von DeddyH:

DayOfTheWeek gibt es sehr wohl:

Jupp, man muß nur mal in die OH schauen und bemerken, daß DayOfTheWeek sich in einer anderen (neuen) Unit befindet, welche man natürlich auch einbinden sollte.

Delphi-Quellcode:

function LastDow(DowToMatch: Word{selber Typ wie DayOfTheWeek ... k.A. warum es eventuell mehr als 255 Wochentage geben könnte}; DateToMatch: TDate=0; Weeks: Integer=-1): TDateTime;
begin
  if DateToMatch = 0 then
    DateToMatch = Date;
  Result := (DateToMatch - 1) - ((DaysPerWeek - DowToMatch + DayOfTheWeek(DateToMatch - 1)) mod DaysPerWeek) + (Weeks + 1) * DaysPerWeek;
end; 

function NextDow(DowToMatch: Word; DateToMatch: TDate=0; Weeks: Integer=+1): 
... // NextDow ist ja nicht einfach nur (LastDow + DaysPerWeek), jedenfalls nicht, falls das DateToMatch zufällig bereits der DowToMatch wäre.

Und schon würde es bestimmt gut ins DateUtils rein passen.

[Der schöne Günther]

Möchte jemand die Behandlung jetzt noch auf verschiedene Zeitzonen erweitern?

[AlexII]

Zitat von Der schöne Günther:

Möchte jemand die Behandlung jetzt noch auf verschiedene Zeitzonen erweitern?

Und gleich für alle Tage der Woche oder wenigstens noch für den Sonntag!

[p80286]

Zitat von Der schöne Günther:

Möchte jemand die Behandlung jetzt noch auf verschiedene Zeitzonen erweitern?

Das ist wohl nicht notwendig, da die Fragestellung sich vordergründig auf den Standort des Fragenden bezieht. Auch wenn man an den Datumsübergang denkt ist es überflüssig, da der Wochentag und das Datum streng aneinander gebunden sind. Wenn sich der Wochentag ändert, dann ändert sich auch das Datum.
Aber wie wär es hier mit:
London 7.00 Sonntag Vormittag welcher Wochentag ist in Wellington

Gruß
K-H