Delphi簡單判斷閏年-使用日期選擇器選擇年份

Delphi簡單判斷閏年，覺得代碼中更實用的是日期選擇器的使用，用來選擇年份的，直接調用Windows系統的日歷控件顯示日期，顯示後可通過按鈕控制閏年的判斷檢查。

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls, ComCtrls; 06 type 07   TForm1 = class(TForm) 08     DateTimePicker1: TDateTimePicker; 09     Button1: TButton; 10     procedure Button1Click(Sender: TObject); 11   private 12     { Private declarations } 13   public 14     { Public declarations } 15   end; 16 var 17   Form1: TForm1; 18 implementation 19 {$R *.dfm} 20 procedure TForm1.Button1Click(Sender: TObject); 21 var 22   year,m,d : Word; 23 begin 24   decodedate(DateTimePicker1.Date,year,m,d); 25   if (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)) then 26     showmessage('所選年份是閏年！') 27   else 28     showmessage('所選年份不是閏年！'); 29 end; 30 end.