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

【PR】 Delphi (amazon) *見つからない場合があります

【PR】 Delphi (楽天市場) *見つからない場合があります




ほかの Delphi の記事

[Delphi]ループ処理 for, repeat, while

[Delphi]日付に変換 VarToDateTime

[Delphi]日付チェック SysUtils.TryEncodeDate

[Delphi] FormatDateTime関数 日付時刻を文字列に変換

[Delphi] Copy関数 文字列の切り出し