Ähm, dieser Workaround ist noch schlimmer als der Bug im Original-Code.
Diese Änderungen reichen (einfaches Auskommentieren)
Delphi-Quellcode:
// WeekOfTheYear doesn't consider a current Locale. So for 01.01.2017 returns 52.
// if MonthOf(FDateTime) = MonthJanuary then
// FirstWeekOfMonth := 1
// else
FirstWeekOfMonth := WeekOfTheYear(RecodeDay(FDateTime, 1));
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)