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

[Uwe Raabe]

Zitat von 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;

wtf?

[Der schöne Günther]

Das nenne ich mal Hardcore


Mein Stil wäre das hier gewesen:

Delphi-Quellcode:

var
   wantedMonth: TDateTime;
   dayIterator: TDateTime;
begin
   wantedMonth := Now(); // Der aktuelle Monat
   dayIterator := wantedMonth.EndOfMonth(); // Letzter Tag von wantedMonth

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

   WriteLn(
      'Der letzte Samstag des Monats von '
      +currentMonth.ToString().QuotedString()
      +' ist '
      +dayIterator.ToString().QuotedString()
   );


  ReadLn;
end.

Mit dem TDateTimeHelper von
https://github.com/colinj/TDateTimeH...TimeHelper.pas

[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

[Stevie]

Zitat von Aphton:

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

Wennde die noch für 64-bit schreibst, dann bekommste auch nen Fleißbienchen in dein Aufgabenheft: