< Public Function FirstOfYear (dDate As Date) As Date (?)

Comments

    
    '--------------------------------------------------------------
    'Returns first day in a given year
    '--------------------------------------------------------------

Public Function FirstOfYear (dDate As Date) As Date

    FirstOfYear = DateSerial(Year(dDate), 1, 1)
End Function

Copying, Return to index