有关日期区间的设置问题.

Question

现在我需要在登录窗口时设置这样一个会计期间的选择下拉框,在1-12月中,有三种情况1月1-25日算第一期,从1月26日到11月25日,每月的26日到此月的25日均为下期,11月26日到12月31日为第12期,这个语句该怎么写啊?
谢谢

Answer 1

不明白你的意思，规则你已经分的很清楚了，加一个combobox控件用其additem方法添加就是？cbo1.add "第1期 1月1日至1月25日"
cbo1.add "第2期 1月26日至2月25日"
......
cbo1.add "第12期 11月26日至12月31日"

Answer 2

cbo1.additem "第1期 1月1日至1月25日"

Answer 3

Function GetTrem(ByVal d As Date) As Integer
    
    Dim tmp As Date
    Dim n As Integer    tmp = CDate(Format(d, "mm-dd"))
    n = Switch( _
            tmp <= CDate("01-25"), 1, _
            tmp <= CDate("02-25"), 2, _
            tmp <= CDate("03-25"), 3, _
            tmp <= CDate("04-25"), 4, _
            tmp <= CDate("05-25"), 5, _
            tmp <= CDate("06-25"), 6, _
            tmp <= CDate("07-25"), 7, _
            tmp <= CDate("08-25"), 8, _
            tmp <= CDate("09-25"), 9, _
            tmp <= CDate("10-25"), 10, _
            tmp <= CDate("11-25"), 11, _
            tmp <= CDate("12-31"), 12)
    GetTrem = n
    
End Function