想这样实现一个程序，一年有365天，然后将每月的每旬单独记录出来，这样的话就有36个记录点，即：2008-1-1到2008-1-10属于一年中的第一旬即（10天一个记录）记做1，2008-1-11-2880-1-20是一年中的第2旬……一直到2008-12-21到2008-12-31是属于最后一个记做36.
想写个函数，然后自动的算出这个时间段是属于一年的那个点，就是1-36这个之间的点，我写了一个如下：
function C_Q(C_date)
    X_C=Clng(DatePart("y",C_date)/10)'==运用函数调出天数然后用天数整除10得出特定旬值==
    if X_C>=1 and X_C<=36 then
        C_Q=X_C
    elseif X_C>36 then
        C_Q=36
    elseif X_C<=0 then
        C_Q=1
    end if
end function

但是发现1月份的时候就有问题，到2008-1-12的时候结果不是2。

我还想了另外的办法，实现是可以实现但是很复杂，要判断很多东西，看大家有没有跟简单的方法。谢谢了！

【求助】关于一年中旬的问题?
想这样实现一个程序，一年有365天，然后将每月的每旬单独记录出来，这样的话就有36个记录点，即：2008-1-1到2008-1-10属于一年中的第一旬即（10天一个记录）记做1，2008-1-11-2880-1-20是一年中的第2旬……一直到2008-12-21到2008-12-31是属于最后一个记做36.
想写个函数，然后自动的算出这个时间段是属于一年的那个点，就是1-36这个之间的点，我写了一个如下：
function C_Q(C_date)
    X_C=Clng(DatePart("y",C_date)/10)'==运用函数调出天数然后用天数整除10得出特定旬值==
    if X_C>=1 and X_C<=36 then
        C_Q=X_C
    elseif X_C>36 then
        C_Q=36
    elseif X_C<=0 then
        C_Q=1
    end if
end function

但是发现1月份的时候就有问题，到2008-1-12的时候结果不是2。

我还想了另外的办法，实现是可以实现但是很复杂，要判断很多东西，看大家有没有跟简单的方法。谢谢了！

楼上的代码稍加改动就可以了：

function comp36(DtarDay)
    intM = Cint(month(DtarDay))
    intD = Cint(day(DtarDay))
    select case intM
        case 1
            strB = "1,2,3"
        case 2
            strB = "4,5,6"
        case 3
            strB = "7,8,9"
        case 4
            strB = "10,11,12"
        case 5
            strB = "13,14,15"
        case 6
            strB = "16,17,18"
        case 7
            strB = "19,20,21"
        case 8
            strB = "22,23,24"
        case 9
            strB = "25,26,27"
        case 10
            strB = "28,29,30"
        case 11
            strB = "31,32,33"
        case 12
            strB = "34,35,36"
    end select
    ArrB = split(strB,",")
    if intD>=1 and intD <= 10 then
        comp36 = ArrB(0)
    elseif intD>10 and intD <=20 then
        comp36 = ArrB(1)
    elseif intD >=21 and intD <=31 then
        comp36 = ArrB(2)
    end if
end function

终于实现了！！感谢cslldu

这个不知道还有没有更简单的方法！

就是因为这个方法不行所以就用了其他的方法了！