Datum letzter Samstag?

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

Datum letzter Samstag?

AW: Datum letzter Samstag?

AW: Datum letzter Samstag?

AW: Datum letzter Samstag?

Forumregeln

AlexII Registriert seit: 28. Apr 2008 1.717 Beiträge FreePascal / Lazarus	#2 AW: Datum letzter Samstag? 24. Jul 2014, 09:46 Wow... das ist ja fast wie die Relativitätstheorie. Und letzter Sonntag wäre dann? result := Date - DayOfWeek(Date) + 1; Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
	Zitat

Sir Rufo Registriert seit: 5. Jan 2005 Ort: Stadthagen 9.454 Beiträge Delphi 10 Seattle Enterprise	#3 AW: Datum letzter Samstag? 24. Jul 2014, 09:48 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 Kaum macht man's richtig - schon funktioniert's Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
	Zitat