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

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

     deltaDays := Today - NextChristmas;

最佳答案

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

var
  Christmas: TDate;
begin

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

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

关于delphi - 计算直到圣诞节的天数，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/20130927/