Cacher is the code snippet organizer for pro developers

Public Function BeginCurrentYear() As Date
    
    BeginCurrentYear = DateSerial(DatePart("yyyy", Now()), 1, 1)
    
End Function

Public Function BeginCurrentQuarter() As Date
    
    'returns the start of the quarter
    'calcs current quarter,
    'calcs first month,
    'assembles date
    
    Dim intQtr As Integer
    Dim intYr As Integer
    Dim intMo As Integer
    Dim intDy As Integer
    
    intYr = DatePart("yyyy", Now())
    intDy = 1
    intQtr = DatePart("q", Now())
    
    'calc first month in quarter
    Select Case intQtr
        Case 1
            intMo = 1
        Case 2
            intMo = 4
        Case 3
            intMo = 7
        Case 4
            intMo = 10
    End Select
    
    BeginCurrentQuarter = DateSerial(intYr, intMo, intDy)
    
End Function