Just another method:

Function DaysInYear(Year) As Long
DaysInYear = Format(DateSerial(Year, 12, 31), "y")
End Function

--
Dana DeLouis
Win XP & Office 2003


"XtraNeed" wrote in message
...
I need a macro function that allows me to display the number of days (or
hours) in a given year. Any help will be appreciated.