1.  时间转换DatePart、Choose函数

Sub aa()
Dim x%, aa$, Myday, Myr%
Myr = [a65536].End(xlUp).Row
For x = 2 To Myr
    Myday = Day(Cells(x, 1))
    Cells(x, 2) = Format(VBA.DatePart("ww", Cells(x, 1)), "00")
    Cells(x, 3) = DatePart("q", Cells(x, 1))
Cells(x, 4) = Application.Choose(Myday \ 10 + 1, "上旬", "中旬", "下旬")
Next x
End Sub