从周数中检索年份

Question

使用Embarcadero Delphi，我需要填充一个包含周数和周年的表。问题是在12月底从1月份开始。

第一例:日期"29/12/ 2024 "：为2024年，转至2024年52°周。因此，我将插入这样的记录:周数= 52周年=2024年

第二种情况:日期"30/12/ 2024 "：为2024年，但指2025年的1°周。因此，我需要插入这样的记录:周数=1周年=2025年。

如何动态计算？星期一是一周中的第一天。

Answer 1

您可以使用以下程序：

USES System.DateUtils;

PROCEDURE GetWeek(D : TDate ; OUT Week,Year : Cardinal);
  BEGIN
    Week:=WeekOf(D); Year:=YearOf(D);
    CASE MonthOf(D) OF
       1 : IF Week>50 THEN DEC(Year);
      12 : IF Week<50 THEN INC(Year)
    END
  END;

它将返回朱利安日历中任何给定日期的周和相应的年份。