Lag beregning på måned og år istedet for hele dato

Hej,

Jeg har følgende kode:

Private Sub Form_Current()
   
    If IsNull(DLookup("[bcaMonth]", "[tblBonusCalculation]", "[bcaPeriod] = 'DENNE MÅNED OG DETTE ÅR' AND date() > '16:E hver måned'")) Then
        Me.txtTest = "Det er ikke tid til at køre rapporten endnu"
    Else
        Me.txtTest = "Rapporten ER kørt for marts måned"
    End If

End Sub

Er der nogen som kan hjælpe mig med at få 'DENNE MÅNED OG DETTE ÅR' til '0803' OG den '16:E hver måned' til '16' [DAG]