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


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

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

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 には暦年を指定します