Skip to content

Instantly share code, notes, and snippets.

@hatena19

hatena19/gist:1708095

Created January 31, 2012 01:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save hatena19/1708095 to your computer and use it in GitHub Desktop.
Save hatena19/1708095 to your computer and use it in GitHub Desktop.
Download ZIP
閏年判定関数
Raw
gistfile1.vb
'引数　西暦年　返値 閏年ならTrue　
Public Function IsLeapYear(aYear As Long) As Boolean
' IsLeapYear = Month(DateSerial(aYear, 2, 29)) = Month(DateSerial(aYear, 2, 28))
IsLeapYear = IsDate(aYear & "/2/29")
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment