閏年(うるう年)の判定を行う【DatePart関数応用】【ExcelVBA】

VBAで閏年(うるう年)の判定を行う形です。
今回ご紹介する以外にも方法はありますが、一番シンプルな形で処理が可能です。

閏年(うるう年)の判定を行うサンプルコード

DatePart関数を上手に使用し、年初めから12/31までの日数を把握します。
一年間の日数は、閏年は366日、閏年でなければ365日ですので、そちらの日数で判断をします。

'■閏年(うるう年)を判定する
Public Function call_chk_leap_year(sDate As Date)
    If DatePart("y", sDate) = 366 Then
        call_chk_leap_year = "閏年(うるう年)です"
    Else
        call_chk_leap_year = "閏年(うるう年)ではありません"
    End If
End Function
'■実際の使い方はこちら
Public Sub sample()

    Debug.Print call_chk_leap_year("2021/12/31") '"閏年(うるう年)ではありません"
    Debug.Print call_chk_leap_year("2022/12/31") '"閏年(うるう年)ではありません"
    Debug.Print call_chk_leap_year("2023/12/31") '"閏年(うるう年)ではありません"
    Debug.Print call_chk_leap_year("2024/12/31") '"閏年(うるう年)です"
End Sub

関連記事

• 現在日付・現在時刻を取得する【Date関数/Time関数/Now関数】【ExcelVBA】
• 加算・減算した日付・時刻を取得する【DateAdd関数】【ExcelVBA】
• 年初めからの日付を計算する【DatePart関数】【ExcelVBA】