WeekofTheYear ?

[Delphi.Narium]

Delphi-Quellcode:

   LYearDate := StartOfTheYear(Date); // => 01.01.2020
   Nr := WeekOfTheYear(LYearDate); // => 1 = 1. Woche des Jahres 2020
   WoStart := StartOfTheWeek(Nr); // => Start der Woche in den der 30.12.1899 fällt. 
                                  // (TDateTime = 1 => 30.12.1899)
                                  // und diese Woche begann am 25.12.1899.
   // Probier es doch mal mit dem Beginn der Woche, in die der 01.01.2020 gefallen ist ;-)
   WoStart := StartOfTheWeek(LYearDate); // => Start der ersten Woche des Jahres 2020