使用 Embarcadero Delphi，我需要用周數和周年填充一個表。問題出現在 12 月底和 1 月開始。
第一種情況：日期“29/12/2024”：在 2024 年，指的是 2024 年的 52° 周。所以我將插入一條記錄，如：WEEK NUMBER = 52 WEEK YEAR = 2024
第二種情況：日期“30/12/2024”：在 2024 年，但指的是 2025 年的 1° 周。所以我需要插入一條記錄，如：WEEK NUMBER = 1 WEEK YEAR = 2025
如何動態計算？星期一是一周的第一個日期
uj5u.com熱心網友回復：
您可以使用此程序：
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;
它將回傳儒略歷中任何給定日期的周和相應的年份。
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/433790.html
上一篇：如何將位圖從VCL.Graphics.TBitmap更改為FMX.Graphics.TBitmap
下一篇：應用程式行為的工程外部實作