Datum letzter Samstag?

[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

[DeddyH]

DayOfTheWeek gibt es sehr wohl:

Zitat:

Hinweis: DayOfTheWeek ist ISO 8601-konform (Montag ist der erste Wochentag). Die Funktion DayOfWeek basiert dagegen auf dem Sonntag als erstem Wochentag.

Und schon ist das erklärt.

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

[Sir Rufo]

Zitat von AlexII:

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

Ja, die Version ist doch schon da ... oder liest du dir die Beiträge nicht durch?

[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

[Uwe Raabe]

Zitat von p80286:

London 7.00 Sonntag Vormittag welcher Wochentag ist in Wellington

Hauptsache, die Frisur sitzt...

[Aphton]

Zitat von Der schöne Günther:

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

Lieber nicht

[Der schöne Günther]

Zitat von Aphton:

Lieber nicht

Oh ja, madness indeed
Herrlich.