unit FMX.Calendar.Style;
Zeile 584f
Man beachte den Kommentar in Zeile 583:
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));
Da hat also ein Programmierer von Emba einen (angeblichen) Fehler in der Funktion
WeekOfTheYear
festgestellt. Aber anstatt diesen Fehler einmal intern an das
System.DateUtils
-Team zu melden (ja, dafür hätte er wohl 4 Wochen Kaffee für alle holen müssen) denkt er sich eine ganz tolle Methode aus:
Jedes Jahr startet mit der Woche 1
Aber seine wir froh, dass er nicht einfach die
WeekOfTheYear
-Routine "gefixt" hat
@Harry
Melde doch mal diesen
WeekOfTheYear
"Fehler" und verweise stumpf und vor allem erbost auf den Kommentar. Die stellen selber Fehler fest und korrigieren die nicht. Mal sehen was passiert ... ob wir das Geschrei bis hier hören können?