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

chenwm1973

[:28] [:28]

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 编辑 ]

wskwsk1

收藏
[:50]

chenwm1973

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

FM123

回复,学习中

tanhong

Jonathan.K 一来就给大家一个见面礼,收下了

tmtony

好东东, 我记得有个版主改装成Access版, 原来Excel也早有流传. 收藏了