asked on
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
here is the logic i need
| Month | Time frame to keep | Months |
| Jan 2021 | Apr 2020 to Jan 2021 | 10 |
| Feb 2021 | Apr 2020 to Feb 2021 | 11 |
| Mar 2021 | Apr 2020 to Mar 2021 | 12 |
| Apr 2021 | Jul 2020 to Apr 2021 | 10 |
| May 2021 | Jul 2020 to May 2021 | 11 |
| Jun 2021 | Jul 2020 to Jun 2021 | 12 |
| Jul 2021 | Oct 2020 to Jul 2021 | 10 |
| Aug 2021 | Oct 2020 to Aug 2021 | 11 |
| Sep 2021 | Oct 2020 to Sep 2021 | 12 |
| Oct 2021 | Jan 2021 to Oct 2021 | 10 |
| Nov 2021 | Jan 2021 to Nov 2021 | 11 |
| Dec 2021 | Jan 2021 to Dec 2021 | 12 |
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
Learn from the best
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 27 Comments.
Try for 7 days”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.
The Most Valuable Expert award recognizes technology experts who passionately share their knowledge with the community, demonstrate the core values of this platform, and go the extra mile in all aspects of their contributions. This award is based off of nominations by EE users and experts. Multiple MVEs may be awarded each year.
The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.