Datum letzter Samstag?

[AlexII]

Hallo,

wie finde ich das Datum vom letzten Samstag? Gibt's da vllt eine Funktion oder muss ich da selber rechnen?

Thx

[Aphton]

Delphi-Quellcode:

function LastSaturday(const AVAlue: TDateTime): TDateTime;
asm
  add esp,-$14
  push dword ptr [ebp+$0c]
  push dword ptr [ebp+$08]
  call DayOfTheWeek
  movzx eax,ax
  inc eax
  neg eax
  mov [ebp-$14],eax
  fild dword ptr [ebp-$14]
  fadd qword ptr [ebp+$08]
  fstp qword ptr [ebp-$10]
  wait
  mov eax,[ebp-$10]
  mov [ebp-$08],eax
  mov eax,[ebp-$0c]
  mov [ebp-$04],eax
  fld qword ptr [ebp-$08]
  mov esp,ebp
  pop ebp
  ret $0008
end;

[Uwe Raabe]

result := Date - DayOfWeek(Date);

[AlexII]

Zitat von Uwe Raabe:

result := Date - DayOfWeek(Date);

Danke!

[himitsu]

Delphi-Quellcode:

while dayIterator.DayOfWeek <> DaySaturday do
      dayIterator := dayIterator.AddDays(-1);

Das kann man auch mathematisch lösen.

DayOfWeek oder DayOfTheWeek geben den aktuellen Wochentag zurück.
Und nun braucht man nur noch die nötige Differenz zum gewünschten Samstag berechnen, also anhand dessen Wert für DayOfWeek/DayOfTheWeek.

Ergibt dann (glaub ich) Result := Date - (DayOfWeek(Date) + 0{DayOfWeek für Samstag} + DaysOfWeek) mod DaysOfWeek; , bzw. gekürzt das bereits erwähnte Result := Date - DayOfWeek(Date); .

[Aphton]

Ich find meine Lösung am besten.. Ist ein "Einzeiler" (keine Schleife notwendig)

[Alex_ITA01]

Delphi-Quellcode:

function LastSaturday(const AVAlue: TDateTime): TDateTime;
asm
  add esp,-$14
  push dword ptr [ebp+$0c]
  push dword ptr [ebp+$08]
  call [B]DayOfWeek[/B] //DayOfTheWeek gibts nicht
  movzx eax,ax
  inc eax
  neg eax
  mov [ebp-$14],eax
  fild dword ptr [ebp-$14]
  fadd qword ptr [ebp+$08]
  fstp qword ptr [ebp-$10]
  wait
  mov eax,[ebp-$10]
  mov [ebp-$08],eax
  mov eax,[ebp-$0c]
  mov [ebp-$04],eax
  fld qword ptr [ebp-$08]
  mov esp,ebp
  pop ebp
  ret $0008
end;

procedure TForm7.FormCreate(Sender: TObject);
begin
  ShowMessage(DateToStr(LastSaturday(Date)));
end;

liefert den 18.07.2014...

ShowMessage(DateToStr(Date-DayOfWeek(Date))); liefert den 19.07.2014...

Jetzt kann sich jeder überlegen was stimmt

[p80286]

Aus der OH:

Zitat:

DayOfWeek gibt den Wochentag zum angegebenen Datum als Integer zwischen 1 und 7 zurück. Dabei ist Sonntag Tag 1 und Samstag Tag 7.
Hinweis:
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.

Kommt drauf an wie man es sieht

Gruß
K-H

[Dejan Vu]

Zitat von Uwe Raabe:

result := Date - DayOfWeek(Date);

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

Alternative: ISO-8601-Routine verwenden;

Delphi-Quellcode:

function LastSaturday (aDate : TDateTime) : TDateTime;
Var
  LastSunday : TDateTime;
Begin
  LastSunday := EndOfTheWeek(aDate-7);
  Result := LastSunday - 1;
End;

Laut ISO ist der letzte Tag der Woche der Sonntag. Und die ISO ändert sich nicht, außer bei Übernahme durch Außerirdische/Nordkorea.

[Zoot]

Zitat von Dejan Vu:

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