Datum letzter Samstag?

[Uwe Raabe]

Um das nochmal zu verdeutlichen: Mein Einzeiler funktioniert nur deswegen, weil DayOfWeek für Sonntag 1 und Samstag 7 zurückgibt und weil nach dem letzten Samstag gefragt wurde. Bei Verwendung von DayOfTheWeek oder der Frage nach einem anderen Wochentag wird es ein klein wenig komplizierter.

Aber andererseits: Genau das war die Frage!

[Namenloser]

Man könnte auch einfach das Datum eines Referenzsamstags nehmen, die Differenz zum aktuellen Datum in Tagen bilden, durch 7 teilen, abrunden, und das Ergebnis wieder mit 7 multiplizieren.

Könnte höchstens mit Floating-Point-Ungenauigkeiten Probleme geben.

[Stevie]

Zitat:

Zitat von Uwe Raabe (Beitrag 1266480)

Funktioniert leider beides nicht an einem Sonntag...

Haha, das passiert, wenn die eigtl richtige Antwort direkt am Anfang gegeben wird, irgendwer dran rummäkelt und man sich davon einfach blenden lässt und man das denken einstellt. :wall:

Tjo in dem Fall ist es wirklich eine glückliche Fügung, dass der Tag nach dem gewünschten eine 1 zurückliefert bei DayOfWeek :)

[Zoot]

Zitat:

Zitat von Dejan Vu (Beitrag 1266447)

Eine schöne Lösung, die aber stillschweigend davon ausgeht, das der Samstag mit 7 kodiert wird. Ändert sich das irgendwann, funktioniert die Lösung nicht mehr. Das ist zwar unwahrscheinlich (das sich das ändert), aber denkbar. Zudem wird eine Portierung in eine andere Sprache hier vermutlich nicht funktionieren.

So schön, minimalistisch und elegant Uwes Lösung auch ist, ich würde vielleicht doch eine Schleife bevorzugen:

Delphi-Quellcode:

Function LastSaturday(Date : TDateTime) : TDateTime;
Const
  DaySaturday = 7;

Begin
  Result := Date - 1;
  While DayOfWeek(Result) <> DaySaturday do Result := Result - 1;
End;

Hier ist es vollkommen egal, was DayOfWeek liefert (enum, integer, string etc.) Die Version läuft immer und überall (solange es Samstage gibt).

Diese Version ist aber doch genauso abhängig davon, wie die Wochentage kodiert sind, da du nunmal DayOfWeek verwendest.
Liefert dieses für Samstag plötzlich 6 zurück, hast du ein Problem. Liefert es einen String, dann erst recht, dann meckert der Compiler.
Immer und Überall läuft das also nicht...

[Sir Rufo]

@Zoot

:thumb: Gut gemerkt.

So wäre es richtig(er), da es sich auf ein dokumentiertes zugesichertes Verhalten verlässt, wo die zurückgelieferten Werte selber egal sind. System.DateUtils.DayOfTheWeek

Egal welcher Wert für Samstag zurückgegeben wird, dieser Wert ist gleich dem Wert der Konstanten

Delphi-Quellcode:

DaySaturday

.

Delphi-Quellcode:

uses DateUtils;

Function LastSaturday(Date : TDateTime) : TDateTime;
Begin
  Result := Date - 1;
  While DayOfTheWeek(Result) <> DaySaturday do Result := Result - 1;
End;

Ich halte es aber für sehr unwahrscheinlich, dass sich die eine oder andere Funktion ändern wird :)

[himitsu]

Zitat:

Zitat von Sir Rufo (Beitrag 1266491)

Egal welcher Wert für Samstag zurückgegeben wird, dieser Wert ist gleich dem Wert der Konstanten

Delphi-Quellcode:

DaySaturday

.

Wobei man das, wie bereits erwähnt, dennoch mathematisch lösen kann.

Und gleichzeitig wird die Formel dann für alle Wochentage funktionieren. (wenn man nicht die speziell, für den Samstag, gekürzte Version verwendet)

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

[Sir Rufo]

Zitat:

Zitat von himitsu (Beitrag 1266495)

Zitat:

Zitat von Sir Rufo (Beitrag 1266491)

Egal welcher Wert für Samstag zurückgegeben wird, dieser Wert ist gleich dem Wert der Konstanten

Delphi-Quellcode:

DaySaturday

.

Wobei man das, wie bereits erwähnt, dennoch mathematisch lösen kann.

Und gleichzeitig wird die Formel dann für alle Wochentage funktionieren. (wenn man nicht die speziell, für den Samstag, gekürzte Version verwendet)

Ja, aber da wollte ich nicht weiter drauf eingehen ;)

[Uwe Raabe]

Zitat:

Zitat von Sir Rufo (Beitrag 1266491)

Ich halte es aber für sehr unwahrscheinlich, dass sich die eine oder andere Funktion ändern wird :)

Gerade Delphi ist in Bezug auf Abwärtskompatibilität ziemlich konservativ. Die Einführung von DayOfTheWeek als ISO-konformes Pendant zu DayOfWeek unterstreicht das nochmal.

Ich habe erst einmal erlebt, daß die RTL bei einem Delphi-Wechsel ein anderes Ergebnis lieferte: In Delphi 1 war TDate als die Anzahl der Tage seit dem 1.1.0001 definiert, später wurde das auf den 31.12.1899 geändert.

[baumina]

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