Tips Trik Delphi - Tahun Kabisat

Tahun Kabisat

Posted on January 04, 2011, Filed in: Tips Trik Delphi

Fungsi yang dapat digunakan:
function IsLeapYear(Year: Word): Boolean;

Contoh penggunaan:

if isLeapYear(2020) then ShowMessage('Ya') else ShowMessage('Bukan');

Anda dapat membuat fungsi baru untuk mengetahui apakah tahun kabisat berdasarkan TDate.

function KabisatByDate(const DT: TDate): Boolean;
var
d, m, y: Word;
begin
DecodeDate(DT, y, m, d);
Result:= isLeapYear(y);
end;

Contoh implementasi:

procedure TForm1.Button1Click(Sender: TObject);
begin
if KabisatByDate(DateTimePicker1.Date) then ShowMessage('Ya') else
ShowMessage('Bukan');
end;

Download
Source Code Delphi - Tahun Kabisat
File: cek_tahun_kabisat.zip
Hits: 148

Rating: 5.0/5 (3 votes cast)

Rating: 0 (from 0 votes)