急，如何按日期来排序

Question

Form1上有DTPicker1控件和Text1控件，在DTPicker1上选择日期后，按照 A → A → B → B → C → C → D → D 来循环排序，再在Text1上显示排序结果。
例如：
已定义2006-9-1为第一个A
选2006-9-1，Text1为A；
选2006-9-2，Text1为A；
选2006-9-3，Text1为B；
选2006-9-4，Text1为B；
......

Answer 1

打个比方：
已经设定日期2006-9-1时，为第一个A。
按照 A → A → B → B → C → C → D → D 来循环排序
选择2006-9-8时，text1应为D；
选择2006-9-9时，text1应为A；

Answer 2

我想我可能明白你的意思了，你试一下下面的代码是不是你要的：
Private Sub DTPicker1_Change()
    Dim s() As String, n As Long
    s() = Split("A A B B C C D D")
    n = Abs(DTPicker1.Value - #9/1/2006#)
    Text1.Text = s(n Mod 8)
End Sub