DAYSINAYEAR

DAYSINAYEAR(year)
Returns the number of days in a year.

REMARKS
* The equivalent Excel formula is Number of days in a particular year

Public Function DAYSINAYEAR( _ 
         ByVal iYear As Integer) _ 
         As Integer 

   DAYSINAYEAR = VBA.DateSerial(iYear + 1, 1, 1) - VBA.DateSerial(iYear, 1, 1) 
End Function