I need to change the below logic to take into consideration what quarter the current date is
here is the logic i need
the below is just by months and needs to be by quarters with the above table as reference
' lvmain1 date is mmddyyyy ie 01202020
For zzz = LVMain1.ListItems.Count To 1 Step -1
DDate = LVMain1.ListItems(zzz).SubItems(10)
CDDate = Left(DDate, 2) & "-" & Mid(DDate, 3, 2) & "-" & Right(DDate, 4)
If (Year(Now) * 12 + Month(Now)) - (Year(CDDate) * 12 + Month(CDDate)) > 11 Then
LVMain1.ListItems.Remove (zzz)
End If
Next zzz