BFLIsLeapYear (lyear As Long) As Long

概要

lyearで指定した年がうるう年であるかを判断します。

戻り値はうるう年である場合は1、そうでない場合は0を返します。

VBでの宣言

[Public | Private] Declare Function BFLIsLeapYear Lib "BFL.dll" (lyear As Long) As Long

VBでの使用例

Dim ret As Long

ret = BFLIsLeapYear 2000

If ret = 1 Then
Debug.Print "2000年はうるう年です。"
Else
Debug.Print "2000年はうるう年ではありません。"
End If

戻る