Solved: How many days in year

[Cass]

Hei.

How to calculate how many days is in the year. 365 or 366 ?!
:doh:

[Tommy]

Private Function GiveNumDaysInYear(Year As Long) As Integer
GiveNumDaysInYear = IIf(Year Mod 4, 365, 366)
End Function

[TonyJollans]

Hi Cass,

Tommy's solution isn't quite complete as it doesn't cater for 'century years'. This should give the right answer for all yearsFunction DaysInYear(Year As Long) As Long
DaysInYear = 365 - (Year Mod 4 = 0) + (Year Mod 100 = 0) - (Year Mod 400 = 0)
End Function