【 kt閏年判定 】

指定した「年」が閏年かどうかを判定します。

【 構 文 】

kt閏年判定(

年 )

返却値	‥‥‥	Boolean型
年（西暦）	‥‥‥	Integer 型

【 返 却 値 】

True    ‥‥‥  閏年
False   ‥‥‥  閏年以外

【 解 説 】

下記でも同様の結果が得られます。
    If (Day(DateSerial(年, 3, 0)) = 29) Then
        ' 閏年
    Else
        ' 通常年
    End If

=IF(DAY(DATE(A1, 3, 0))=29, "閏年", "通常年")