Bagaimana menemukan tahun kabisat dengan delphi

Dalam program ini akan membantu Anda menemukan tahun kabisat, sehingga Anda tidak harus menghitung secara manual, dengan kode sederhana di bawah ini Anda akan menemukan tahun kabisat atau tidak.

kita dapat membuat fungsi baru berdasarkan komponen Tdate

ok langsung saja kita buat program.
function KabisatByDate(const DT: TDate): Boolean;<br /> var<br /> d, m, y: Word;<br /> begin<br /> DecodeDate(DT, y, m, d);<br /> Result:= isLeapYear(y);<br /> end;

Kemudian masukkan kode di bawah ini untuk button
procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br /> if KabisatByDate(DateTimePicker1.Date) then ShowMessage('Yes') else<br /> ShowMessage('Not');<br /> end;

Source koding -Tahun Kabisat

 

Download

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck