农历算法－－只求解决，分不够好说！

我使用了以下农历算法，但只能计算到2021.2.11日，谁能告诉我如何加到2040或者更长（就是加NongliData）？解决了将给100分。注意：我已经使用了这个代码，无法再使用别的。Option ExplicitDim WeekName(7) As String, MonthAdd(11) As Long, NongliData(99) As Long, ShuXiang(11) As String, DayName(30) As String, MonName(12) As String, JQName(24) As String, sTermInfo(1 To 24) As DoubleDim tg(10) As String, dz(12) As String '天干地支
'初始化数据
Public Sub initNLData()
Dim i As Long
    '星期名
    WeekName(0) = " * "
    WeekName(1) = "星期日"
    WeekName(2) = "星期一"
    WeekName(3) = "星期二"
    WeekName(4) = "星期三"
    WeekName(5) = "星期四"
    WeekName(6) = "星期五"
    WeekName(7) = "星期六"
    '天干名称
    tg(1) = "庚": tg(2) = "辛": tg(3) = "壬": tg(4) = "癸": tg(5) = "甲": tg(6) = "乙"
    tg(7) = "丙": tg(8) = "丁": tg(9) = "戊": tg(10) = "己"
    '地支名称
    dz(1) = "申": dz(2) = "酉": dz(3) = "戌": dz(4) = "亥": dz(5) = "子": dz(6) = "丑"
    dz(7) = "寅": dz(8) = "卯"
    dz(9) = "辰": dz(10) = "巳": dz(11) = "午": dz(12) = "未"
    '属相名称
    ShuXiang(5) = "鼠"
    ShuXiang(6) = "牛"
    ShuXiang(7) = "虎"
    ShuXiang(8) = "兔"
    ShuXiang(9) = "龙"
    ShuXiang(10) = "蛇"
    ShuXiang(11) = "马"
    ShuXiang(0) = "羊"
    ShuXiang(1) = "猴"
    ShuXiang(2) = "鸡"
    ShuXiang(3) = "狗"
    ShuXiang(4) = "猪"
    '节气码
    sTermInfo(1) = 0
    sTermInfo(2) = 21208
    sTermInfo(3) = 42467
    sTermInfo(4) = 63836
    sTermInfo(5) = 85337
    sTermInfo(6) = 107014
    sTermInfo(7) = 128867
    sTermInfo(8) = 150921
    sTermInfo(9) = 173149
    sTermInfo(10) = 195551
    sTermInfo(11) = 218072
    sTermInfo(12) = 240693
    sTermInfo(13) = 263343
    sTermInfo(14) = 285989
    sTermInfo(15) = 308563
    sTermInfo(16) = 331033
    sTermInfo(17) = 353350
    sTermInfo(18) = 375494
    sTermInfo(19) = 397447
    sTermInfo(20) = 419210
    sTermInfo(21) = 440795
    sTermInfo(22) = 462224
    sTermInfo(23) = 483532
    sTermInfo(24) = 504758
    '节气名称
    JQName(1) = "小寒"
    JQName(2) = "大寒"
    JQName(3) = "立春"
    JQName(4) = "雨水"
    JQName(5) = "惊蛰"
    JQName(6) = "春分"
    JQName(7) = "清明"
    JQName(8) = "谷雨"
    JQName(9) = "立夏"
    JQName(10) = "小满"
    JQName(11) = "芒种"
    JQName(12) = "夏至"
    JQName(13) = "小暑"
    JQName(14) = "大暑"
    JQName(15) = "立秋"
    JQName(16) = "处暑"
    JQName(17) = "白露"
    JQName(18) = "秋分"
    JQName(19) = "寒露"
    JQName(20) = "霜降"
    JQName(21) = "立冬"
    JQName(22) = "小雪"
    JQName(23) = "大雪"
    JQName(24) = "冬至"
    '农历日期名
    DayName(0) = "*"
    DayName(1) = "初一"
    DayName(2) = "初二"
    DayName(3) = "初三"
    DayName(4) = "初四"
    DayName(5) = "初五"
    DayName(6) = "初六"
    DayName(7) = "初七"
    DayName(8) = "初八"
    DayName(9) = "初九"
    DayName(10) = "初十"
    DayName(11) = "十一"
    DayName(12) = "十二"
    DayName(13) = "十三"
    DayName(14) = "十四"
    DayName(15) = "十五"
    DayName(16) = "十六"
    DayName(17) = "十七"
    DayName(18) = "十八"
    DayName(19) = "十九"
    DayName(20) = "二十"
    DayName(21) = "廿一"
    DayName(22) = "廿二"
    DayName(23) = "廿三"
    DayName(24) = "廿四"
    DayName(25) = "廿五"
    DayName(26) = "廿六"
    DayName(27) = "廿七"
    DayName(28) = "廿八"
    DayName(29) = "廿九"
    DayName(30) = "三十"
    '农历月份名
    MonName(0) = "*"
    MonName(1) = "正"
    MonName(2) = "二"
    MonName(3) = "三"
    MonName(4) = "四"
    MonName(5) = "五"
    MonName(6) = "六"
    MonName(7) = "七"
    MonName(8) = "八"
    MonName(9) = "九"
    MonName(10) = "十"
    MonName(11) = "十一"
    MonName(12) = "腊"
    '公历每月前面的天数
    MonthAdd(0) = 0
    MonthAdd(1) = 31
    MonthAdd(2) = 59
    MonthAdd(3) = 90
    MonthAdd(4) = 120
    MonthAdd(5) = 151
    MonthAdd(6) = 181
    MonthAdd(7) = 212
    MonthAdd(8) = 243
    MonthAdd(9) = 273
    MonthAdd(10) = 304
    MonthAdd(11) = 334
    '农历数据
    NongliData(0) = 2635
    NongliData(1) = 333387
    NongliData(2) = 1701
    NongliData(3) = 1748
    NongliData(4) = 267701
    NongliData(5) = 694
    NongliData(6) = 2391
    NongliData(7) = 133423
    NongliData(8) = 1175
    NongliData(9) = 396438
    NongliData(10) = 3402
    NongliData(11) = 3749
    NongliData(12) = 331177
    NongliData(13) = 1453
    NongliData(14) = 694
    NongliData(15) = 201326
    NongliData(16) = 2350
    NongliData(17) = 465197
    NongliData(18) = 3221
    NongliData(19) = 3402
    NongliData(20) = 400202
    NongliData(21) = 2901
    NongliData(22) = 1386
    NongliData(23) = 267611
    NongliData(24) = 605
    NongliData(25) = 2349
    NongliData(26) = 137515
    NongliData(27) = 2709
    NongliData(28) = 464533
    NongliData(29) = 1738
    NongliData(30) = 2901
    NongliData(31) = 330421
    NongliData(32) = 1242
    NongliData(33) = 2651
    NongliData(34) = 199255
    NongliData(35) = 1323
    NongliData(36) = 529706
    NongliData(37) = 3733
    NongliData(38) = 1706
    NongliData(39) = 398762
    NongliData(40) = 2741
    NongliData(41) = 1206
    NongliData(42) = 267438
    NongliData(43) = 2647
    NongliData(44) = 1318
    NongliData(45) = 204070
    NongliData(46) = 3477
    NongliData(47) = 461653
    NongliData(48) = 1386
    NongliData(49) = 2413
    NongliData(50) = 330077
    NongliData(51) = 1197
    NongliData(52) = 2637
    NongliData(53) = 268877
    NongliData(54) = 3365
    NongliData(55) = 531109
    NongliData(56) = 2900
    NongliData(57) = 2922
    NongliData(58) = 398042
    NongliData(59) = 2395
    NongliData(60) = 1179
    NongliData(61) = 267415
    NongliData(62) = 2635
    NongliData(63) = 661067
    NongliData(64) = 1701
    NongliData(65) = 1748
    NongliData(66) = 398772
    NongliData(67) = 2742
    NongliData(68) = 2391
    NongliData(69) = 330031
    NongliData(70) = 1175
    NongliData(71) = 1611
    NongliData(72) = 200010
    NongliData(73) = 3749
    NongliData(74) = 527717
    NongliData(75) = 1452
    NongliData(76) = 2742
    NongliData(77) = 332397
    NongliData(78) = 2350
    NongliData(79) = 3222
    NongliData(80) = 268949
    NongliData(81) = 3402
    NongliData(82) = 3493
    NongliData(83) = 133973
    NongliData(84) = 1386
    NongliData(85) = 464219
    NongliData(86) = 605
    NongliData(87) = 2349
    NongliData(88) = 334123
    NongliData(89) = 2709
    NongliData(90) = 2890
    NongliData(91) = 267946
    NongliData(92) = 2773
    NongliData(93) = 592565
    NongliData(94) = 1210
    NongliData(95) = 2651
    NongliData(96) = 395863
    NongliData(97) = 1323
    NongliData(98) = 2707
    NongliData(99) = 265877
End Sub
－－－－后面省略