获取当前月份的Pascal数字

Question

我有一项任务，包括查看本月是否有生日。我不是要求你“做我的功课”，但我我要求的是：有没有办法让当前月份为1-12的Pascal数字（具体来说， Lazarus Pascal）？然后我可以将数字与文件中保存的记录进行比较。

感谢您的帮助，

詹姆斯

Answer 1

我不了解Lazarus，但大多数Pascal实现提供：

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

Answer 2

您可以使用此代码：

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

我建议你检查dateutils单位。它为所有“约会”或“时间”问题提供全面支持。

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个，但只需使用你需要的那个。