VB6閏年 (うるう年) かどうか判断する

スポンサーリンク

VB6 では、該当する関数はありませんので、閏年 (うるう年) かどうかを判別する関数を自作します。

閏年 (うるう年) とは 4 の倍数の年数でかつ、400 の倍数を除いた 100 の倍数でない年を指します。これを関数で表現すれば良いのです。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
' -------------------------------------------------------------------------------
'       閏年 (うるう年) かどうかを判断します。
'
' @Param    iYear   判断対象となる年。
' @Return           指定した年が閏年 (うるう年) である場合は True。
' -------------------------------------------------------------------------------
Public Function IsLeapYear(ByVal iYear As Integer) As Boolean
    If iYear Mod 4 = 0 Then
        If iYear Mod 100 <> 0 Then
            IsLeapYear = True
        ElseIf iYear Mod 400 = 0 Then
            IsLeapYear = True
        End If
    End If
End Function

使用例は以下のようになります。

VB6.0 以前
    ' 閏年 (うるう年) かどうか判断する
    If IsLeapYear(2008) Then
        Call MsgBox("閏年 (うるう年) です")
    End If

関連するリファレンス

準備中です。

スポンサーリンク