• Home
 · 
• VB function enhancement
 · 
• Leap Year Check

Leap Year Check

Checks to see if a year is a leap-year.
Originally from https://www.kather.net/VisualBasicSource/vbLeapYear.txt

Rate Leap Year Check

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Function IsLeapYear(strYear As String) As Boolean
    Dim strDatum As String
    If strYear = "" Then Exit Function
    strDatum = ("29-2-" & strYear)
    If IsDate(strDatum) Then IsLeapYear = True _
        Else IsLeapYear = False
End Function