模仿IE历史纪录按时间将条目分类，分为昨天，一周前，两周前等等？

Question

模仿IE历史纪录按时间将条目分类，分为昨天，一周前，两周前等等？
比如有一个Date数据类型的数组，按照时间分类。

Answer 1

'添加Command1,List1Option ExplicitPrivate Sub Command1_Click()
    Dim mDate(10) As Date
    Dim mStr$
    Dim i&
    
    For i = 0 To 10
        mDate(i) = "2007-12-" & i + 5
    Next i
    
    For i = 10 To 0 Step -1
        Select Case CDate(mDate(i)) - Date
        Case 0
            mStr$ = "今天"
        Case Else
            mStr$ = WeekdayName(Weekday(CDate(mDate(i))))
        End Select
        If mStr$ = "星期日" Then
            List1.AddItem "上周"
            Exit For
        Else
            List1.AddItem mStr$
        End If
    Next iEnd Sub如题，如上分类。
如需达到IE那种效果，请自行改动！

Answer 2

稍微修改了一下：'添加Command1,List1Option ExplicitPrivate Sub Command1_Click()
    Dim mDate(10) As Date
    Dim mStr$
    Dim i&
    
    For i = 0 To 10
        mDate(i) = "2007-12-" & Day(Now) - i
    Next i
    
    For i = 0 To 10
        Select Case CDate(mDate(i)) - Date
        Case 0
            List1.AddItem "今天" & "  " & mDate(i)
        Case Else
            mStr$ = WeekdayName(Weekday(CDate(mDate(i))))
            If mStr$ = "星期日" Then
                List1.AddItem "上周" & "  " & mDate(i), 0
                Exit For
            Else
                List1.AddItem mStr$ & "  " & mDate(i), 0
            End If
        End Select
    Next iEnd Sub