time - 获取当前月份作为帕斯卡中的数字

Question

我有一个任务要做，其中包括看看这个月是否有生日。我不是要你“做我的功课”，但我要问的是：有没有办法将当前月份作为帕斯卡（特别是拉撒路帕斯卡）中 1-12 的数字？然后我可以拿这个号码并将其与文件中的记录进行比较。

谢谢你的帮助，

詹姆士

Answer 1

您可以使用以下代码：

DecodeDate(Date:TDateTime, Year, Month, Day: word);

我建议您检查 dateutils 单元。它为所有“日期”或“时间”问题提供全面支持。

Answer 2

我不知道 Lazarus，但大多数 Pascal 实现都提供：

procedure GetDate(var Year, Month, Day, DayofWeek: Word); 

Answer 3

曼尼是对的。我刚刚在 Lazarus 中尝试过，通过编写以下程序：

procedure Dates;
var y, m, d: word;
begin
  DecodeDate(Date, y, m, d);
end;

Date 是 SysUtils (datih.inc) 中的一个函数，它返回当前的本地日期。DecodeDate 是一个过程，它采用 TDateTime 并将年份的日历值返回给 var 参数。月日。当然，您需要全部 3 个，但只需使用您需要的一个。