Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
24. Jul 2014
Ja, die Version ist doch schon da ... oder liest du dir die Beiträge nicht durch? :gruebel:
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
24. Jul 2014
Kleine Verbesserung :)
Function LastDow (const DateToMatch : TDateTime; const DowToMatch : Byte) : TDateTime;
begin
result := ( DateToMatch - 1 ) - ((DaysPerWeek - DowToMatch + DayOfTheWeek( DateToMatch - 1 )) mod DaysPerWeek);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
24. Jul 2014
Nur, wenn der aktuelle Tag kein Sonntag ist :warn:
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
24. Jul 2014
Ja, aber da wollte ich nicht weiter drauf eingehen ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
24. Jul 2014
@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 DaySaturday.
uses DateUtils;