Anybody knows if there is a function that lets somebody know if a year is a leap-year in VB?

Thanks in advance.

Hi mvargasp,

No, there isn't a leap year function in VB. I usually use this

Private Function LeapYear(tmpDate As Date) As Boolean
Dim lclYear As Integer
'
' get year from date
'
lclYear = Year(tmpDate)
Select Case lclYear Mod 4
Case 0 ' might be leap year
If lclYear Mod 400 = 0 Then
LeapYear = False
Else
LeapYear = True
End If
Case Else
LeapYear = False
End Select

End Function

Good Luck,

you forgot to divide by 100

1900 was not a leap year

Thanks,

No...there is not a function or "easy" way to get leap years.

Thanks,

No...there is not a function or "easy" way to get leap years.

Actually, there is a bug in that code. the test should be
Case 0 ' might be leap year
If lclYear Mod 400 = 0 Then
LeapYear = True
Else
LeapYear = False
End If

Every century that is NOT divisable by 400 is NOT a leap year.

Does anyone know how to do the leap year in VB...without using the ISdate and showing a message box if they entered the wrong date. For example, if they entered (mm/dd/yy) 02/29/03 a message box will pop up and say "INVALID DATE"

[Does anyone know how to do the leap year in VB...without using the ISdate and showing a message box if they entered the wrong date. For example, if they entered (mm/dd/yy) 02/29/03 a message box will pop up and say "INVALID DATE"]

Essentially, you have to perform the various tests that are already coded into IsDate.

If you work with the _text_ in the field, you can extract the MonthPortion, DayPortiuon, and YearPortion by locating the "/" or "-" characters and doing appropriate substring manipulations. (You can also identify invalid dates because of no separators.) Of course, you may have to allow the user to define the month, day, year field order (e.g. MM/DD/YYYY, YYYY-MM-DD, or DD/MM/YY).

Having performed those extractions, You can validate the YearPortion based upon two or four digit year rules (you'll have to define or allow the user to define the 2 digit year rule).

I would next validate the MonthPortion as being between 1 and 12, inclusive.

Based upon the month, you can validate the DayPortion with the only kink being the handling of Leap Years based upon the YearPortion and a MonthPortion of "2" or "02".

Were you asking for some specific code?

Why do you need to do this?

I can't give a clear answer until I know the application, but I can give you a function that I regularly use to address real-world problems with leap years.
Actually, I have this implemented as a UDF in SQL Server 2k, but this is a working adaptation for use in VB, it's essentially the exact same.:

You could use this to answer your original question like so:
A practical application that I have to use this for on a daily basis is calculating figures based on pro-rated information.

Also, I was thinking, if you want it to return a yes/no for whether the date is in a leap year, that's a fairly straight-forward modification:

[code]Private Function IsLeapYear(d As Date) As Boolean
Dim i As Integer
i = DateDiff("d", "1/1/" & Str(year(d)), "1/1/" & Str(year(d)) + 1)
If i = 366 Then
IsLeapYear = True
Else
IsLeapYear = False
End If
End Function

New Usage:

This really isn't a function of a leap year, this is a function of whether or not the user entered a valid date. Why wouldn't you use the IsDate function?