主题：[求助]测试周历，提示索引超出范围

    d = (CDate(str) - _表首).Days   '和表首的日期差
   
    If  周历开个 =  0 Then
        r = (d \ 7) * 2 + 3             '取整数(行),跨行
    Else
        If d >= 7 Then
            Continue For
        Else
            r =   3
        End If
    End If

    c = (d Mod 7) + 1               '取列位置