[分享]crdotlin的Excel版超级农历

chenwm1973

[:50] [:50] [:50]

chenwm1973

模块CalendarM中：
'复活节只出现在3或4月
If m = 2 Or m = 3 Then
    Dim estDay As easterType
    estDay = easter(Y)
    If m = estDay.m Then myThis(estDay.d - 1).solarFestival = myThis(estDay.d - 1).solarFestival & " 复活节"
End If

当点击“年”增加到2017-2018年时出现错误：下标越界。
myThis(estDay.d - 1).solarFestival = myThis(estDay.d - 1).solarFestival & " 复活节"

还有2029、2040年
不知是何原因。

[ 本帖最后由 chenwm1973 于 2008-4-11 23:49 编辑 ]

chenwm1973

[:28] [:28]