IsLeapYear_FS()

引数で指定した年度（西暦４桁）がうるう年かどうか調べる関数です。うるう年のときはTrue､うるう年でないときはFalseが返されます｡

構文

IsLeapYear_FS(intYear As Integer)

引数

指定項目 内容
intYear 西暦の４桁（ｙｙｙｙ）で年度を指定します。


戻り値

True 指定された年度はうるう年です。
False 指定された年度はうるう年ではありません。



使用例

Sub LeapYear_EX()

  Dim strYear As String
  Dim fLeapYear As Boolean

  strYear = InputBox("西暦の４桁で年度を入力してください！")

  fLeapYear = IsLeapYear_FS(CInt(strYear))

  If fLeapYear Then
    MsgBox strYear & "年はうるう年です."
  Else
    MsgBox strYear & "年はうるう年ではありません."
  End If
  
End Sub
 　


注）
使用例をテストするには、ライブラリーデータベース（MyLib.mda）を組み込む必要があります。