DAYSINAYEAR

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

REMARKS
* The equivalent Excel formula is Number of days in a particular year
Public Function DAYSINAYEAR( _

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

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

For instructions on how to add this function to a workbook refer to the page under Inserting Functions