unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses DateUtils; procedure TForm1.FormCreate(Sender: TObject); var b: Boolean; begin b := IsLeapYear(2009); //False b := IsLeapYear(2012); //True b := IsInLeapYear(StrToDateTime('2009-1-1')); //False b := IsInLeapYear(StrToDateTime('2012-1-1')); //True // ShowMessage(BoolToStr(b, True)); end; end.
IsLeapYear、IsInLeapYear - 是否是闰年
最新推荐文章于 2024-06-26 11:58:29 发布