[Delphi]うるう年チェック　IsLeapYear関数

※全てのDelphi(楽天市場で探す ・ amazonで探す)で動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル　※説明に必要な部分しか記述していません

IsLeapYearを使ったサンプル結果は、2016年はうるう年です、2015年はうるう年ではありませんと表示されます

var
    w_yyyy: Integer;
begin

//    w_yyyy := 2015;
    w_yyyy := 2016;

    if IsLeapYear(w_yyyy) then begin
        MessageDlg(IntToStr(w_yyyy) +'年は閏年です', mtInformation, [mbOK], 0);
 

    end
    else begin
        MessageDlg(IntToStr(w_yyyy) +'年は閏年ではありません', mtInformation, [mbOK], 0);

    end;

下記はヘルプからの引用です
構文

function IsLeapYear(Year: Word): Boolean;

IsLeapYear 関数を呼び出すと，Year パラメータで指定された年がうるう年かどうかわかります。Year には暦年を指定します