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

Comments

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

Public Function FirstOfMonth (dDate As Date) As Date

    FirstOfMonth = DateSerial(Year(dDate), Month(dDate), 1)
End Function

Copying, Return to index