delphi - 计算直到圣诞节的天数

Question

我需要计算直到下一个圣诞节日24.12的天数。
我想知道是否有一个函数可以在下个圣诞节那天进行非常简单的计算。

     deltaDays := Today - NextChristmas; 

Answer 1

您可以在DaysBetween中使用DateUtils函数：

var
  Christmas: TDate;
begin

  Christmas := EncodeDate(YearOf(Now), 12, 24);
  ShowMessageFmt('Days to Christmas: %d', [DaysBetween(Now, Christmas)]);

当然，需要特殊的逻辑来处理圣诞节之后但新年之前的日子。