Excel自定义求农历函数——nongli(公历日期,显示序号).doc

Option Base 1Dim rq As Integer 日期Dim y As Date 农历正月月初一的阳历日期Dim yts As Variant 农历每月的天数Dim yy(2) As Integer 农历闰月数、阳历闰年数（闰年为1，不闰年为0）Dim nl(3, 385) As String 阳历日期字符串、农历日期字符串、农历闰月字符串Function NONGLI(glrq As Date, nlr As Integer)Dim X As Integer, i As Integer, k As Integer, n1 As Integer, n2 As IntegerX = Year(glrq)If X #1/28/2101# ThenNONGLI = ？Exit FunctionEnd If 1、将X年的阴阳历等，通过运行程序2，装入数组If X 2020 Then Call Array2(X, n1, glrq)2、查找阳历日期所在数组的序号rqdi2bu: rq = 0If X = 1899 Thenrq = Day(glrq)ElseFor i = 1 To n1If nl(1, i) = glrq Then rq = i: Exit ForNext iEnd If3、填写农历日期(包括节日、纪念日)Dim nongli1$, yr$, yuefen$, yf$, rizi$, rz$Dim jr1 As String, jr2 As String, jr3 As Stringnongli1 = nl(2, rq) 农历日期以2014-2-1或2014-闰9-1的形式表示yr = Strings.Right(nongli1, Strings.Len(nongli1) - 5) 农历日期以2-1或闰9-1形式表示yuefen = Strings.Left(yr, Strings.InStrRev(yr, -) - 1) 农历的月份以2或闰9形式表示rizi = Strings.Right(yr, Strings.Len(yr) - Strings.InStrRev(yr, -) 农历的日子以2形式表示Dim yuefenB As Variant, yfB As VariantyuefenB = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 闰2, 闰3, 闰4, 闰5, 闰6, 闰7, 闰8, 闰9, 闰10, 闰11, 闰12)yfB = Array(正月, 二月, 三月, 四月, 五月, 六月, 七月, 八月, 九月, 十月, 冬月, 腊月, 闰二月, 闰三月, 闰四月, 闰五月, 闰六月, 闰七月, 闰八月, 闰九月, 闰十月, 闰冬月, 闰腊月)For i = 1 To 23 农历的月份以汉字形式表示 If yuefen = yuefenB(i) Then yf = yfB(i): Exit ForNext iDim rzB As VariantrzB = Array(初一, 初二, 初三, 初四, 初五, 初六, 初七, 初八, 初九, 初十, 十一, 十二, 十三, 十四, 十五, 十六, 十七, 十八, 十九, 二十, 廿一, 廿二, 廿三, 廿四, 廿五, 廿六, 廿七, 廿八, 廿九, 三十)For i = 1 To 30If rizi = i Then rz = rzB(i): Exit For 农历的日子以汉字形式表示Next i农历节日-jr1If nlr = 3 Then Call nljr(rizi, yuefen, yuefenB, yfB, yr, yts, jr1)24节气-ji2Dim xiaohan As Datexiaohan = Int(365.242646137797 * Year(glrq) - 693953.924646684)If glrq = xiaohan Then jr2 = 小寒Dim dahan As Datedahan = Int(365.242629416257 * Year(glrq) - 693939.16865395)If Year(glrq) = 2082 Then dahan = dahan + 1If glrq = dahan Then jr2 = 大寒Dim lichun As Datelichun = Int(365.24259976737 * Year(glrq) - 693924.346732722)If glrq = lichun Then jr2 = 立春Dim yushui As Dateyushui = Int(365.242502247697 * Year(glrq) - 693909.331831532)If Year(glrq) = 2059 Or Year(glrq) = 2092 Then yushui = yushui + 1If glrq = yushui Then jr2 = 雨水Dim jingzhe As Datejingzhe = Int(365.242419549484 * Year(glrq) - 693894.233446856)If Year(glrq) = 2047 Then jingzhe = jingzhe + 1If glrq = jingzhe Then jr2 = 惊蛰Dim chunfen As Datechunfen = Int(365.242305278251 * Year(glrq) - 693878.966116765)If Year(glrq) = 2051 Then chunfen = chunfen - 1If glrq = chunfen Then jr2 = 春分Dim qingming As Dateqingming = Int(365.242254377632 * Year(glrq) - 693863.694715595)If glrq = qingming Then jr2 = 清明Dim guyu As Dateguyu = Int(365.242150678344 * Year(glrq) - 693848.193860396)If Year(glrq) = 2045 Then guyu = guyu - 1If glrq = guyu Then jr2 = 谷雨Dim lixia As Datelixia = Int(365.242041986455 * Year(glrq) - 693832.541539829)If Year(glrq) = 1973 Or Year(glrq) = 2035 Then lixia = lixia - 1If glrq = lixia Then jr2 = 立夏Dim xiaoman As Datexiaoman = Int(365.241895042148 * Year(glrq) - 693816.712806842)If Year(glrq) = 2070 Then xiaoman = xiaoman - 1If glrq = xiaoman Then jr2 = 小满Dim mangzhong As Datemangzhong = Int(365.241908822174 * Year(glrq) - 693801.095841903)If Year(glrq) = 2026 Or Year(glrq) = 2055 Or Year(glrq) = 2088 Then mangzhong = mangzhong - 1If glrq = mangzhong Then jr2 = 芒种Dim xiazhi As Datexiazhi = Int(365.242316100823 * Year(glrq) - 693786.181888162)If Year(glrq) = 2019 Or Year(glrq) = 2023 Or Year(glrq) = 2048 Or Year(glrq) = 2052 Or Year(glrq) = 2056 Or Year(glrq) = 2081 Or Year(glrq) = 2085 Or Year(glrq) = 2089 Then xiazhi = xiazhi - 1If glrq = xiazhi Then jr2 = 夏至Dim xiaoshu As Datexiaoshu = Int(365.241837274251 * Year(glrq) - 693769.530669936)If Year(glrq) = 2078 Then xiaoshu = xiaoshu - 1If glrq = xiaoshu Then jr2 = 小暑Dim dashu As Datedashu = Int(365.241703595146 * Year(glrq) - 693753.549346385)If glrq = dashu Then jr2 = 大暑Dim liqiu As Dateliqiu = Int(365.241890113665 * Year(glrq) - 693738.222492901)If Year(glrq) = 2035 Or Year(glrq) = 2068 Or Year(glrq) = 2097 Then liqiu = liqiu - 1If glrq = liqiu Then jr2 = 立秋Dim chushu As Datechushu = Int(365.242316100823 * Year(glrq) - 693723.45493336)If Year(glrq) = 2020 Or Year(glrq) = 2049 Or Year(glrq) = 2053 Then chushu = chushu - 1If glrq = chushu Then jr2 = 处暑Dim bailu As Datebailu = Int(365.242316100823 * Year(glrq) - 693707.939588367)If glrq = bailu Then jr2 = 白露Dim qiufen As Dateqiufen = Int(365.242085926645 * Year(glrq) - 693692.119710911)If glrq = qiufen Then jr2 = 秋分Dim hanlu As Datehanlu = Int(365.242316100823 * Year(glrq) - 693677.304821888)If Year(glrq) = 2073 Then hanlu = hanlu - 1If glrq = hanlu Then jr2 = 寒露Dim shuangjiang As Dateshuangjiang = Int(365.242316100823 * Year(glrq) - 693662.177281271)If glrq = shuangjiang Then jr2 = 霜降Dim lidong As Datelidong = Int(365.242316100823 * Year(glrq) - 693647.185448183)If glrq = lidong Then jr2 = 立冬Dim xiaoxue As Datexiaoxue = Int(365.242316100823 * Year(glrq) - 693632.293388525)If Year(glrq) = 1912 Then xiaoxue = xiaoxue - 1If glrq = xiaoxue Then jr2 = 小雪Dim daxue As Datedaxue = Int(365.242199074074 * Year(glrq) - 693617.264427083)If Year(glrq) = 2020 Or Year(glrq) = 2053 Or Year(glrq) = 2082 Then daxue = daxue + 1If glrq = daxue Then jr2 = 大雪Dim dongzhi As Datedongzhi = Int(365.242615913523 * Year(glrq) - 693603.343641496)If Year(glrq) = 2054 Or Year(glrq) = 2087 Then dongzhi = dongzhi + 1If glrq = dongzhi Then jr2 = 冬至一九第一天For i = 10 To 73 Step 9If Month(glrq) 12 Then dongzhi = Int(365.242615913523 * (Year(glrq) - 1) - 693603.343641496): If Year(glrq) - 1 = 2054 Or Year(glrq) - 1 = 2087 Then dongzhi = dongzhi + 1If i = glrq - dongzhi + 1 ThenIf i = 10 Then jr2 = jr2 & 二九第一天: Exit ForIf i = 19 Then jr2 = jr2 & 三九第一天: Exit ForIf i = 28 Then jr2 = jr2 & 四九第一天: Exit ForIf i = 37 Then jr2 = jr2 & 五九第一天: Exit ForIf i = 46 Then jr2 = jr2 & 六九第一天: Exit ForIf i = 55 Then jr2 = jr2 & 七九第一天: Exit ForIf i = 64 Then jr2 = jr2 & 八九第一天: Exit ForIf i = 73 Then jr2 = jr2 & 九九第一天: Exit ForEnd IfNext i公历节日-jr3 If nlr = 3 Then Call gljr(glrq, jr3)4、日期的天干地支di4bu: If nlr 5 Then GoTo di5buDim ganzhiB As VariantganzhiB = Array(甲子, 乙丑, 丙寅, 丁卯, 戊辰, 己巳, 庚午, 辛未, 壬申, 癸酉, 甲戌, 乙亥, 丙子, 丁丑, 戊寅, 己卯, 庚辰, 辛巳, 壬午, 癸未, 甲申, 乙酉, 丙戌, 丁亥, 戊子, 己丑, 庚寅, 辛卯, 壬辰, 癸巳, 甲午, 乙未, 丙申, 丁酉, 戊戌, 己亥, 庚子, 辛丑, 壬寅, 癸卯, 甲辰, 乙巳, 丙午, 丁未, 戊申, 己酉, 庚戌, 辛亥, 壬子, 癸丑, 甲寅, 乙卯, 丙辰, 丁巳, 戊午, 己未, 庚申, 辛酉, 壬戌, 癸亥)(1)把农历年份的天干地支赋值于 ngz，农历1984年是： 甲子年Dim ns%, ngz$If X = Year(glrq) And glrq = lichun Then ns = X + 1 - 1983 春节前立春时，大于等于立春的日子为下一年：X+1Elsens = X - 1983 其他日子为当年：XEnd Ifns = ns Mod 60If ns = 0 Then ns = ns + 60 年干支数ngz = ganzhiB(ns) 年干支(2)把农历月份的天干地支赋值于 ygzDim yfs%, ntgs%, ytgs%, ydzs%, ygzs%, ygz$If glrq xiaohan Then 农历月份数 小寒yfs = 11ElseIf glrq lichun Then yfs = 12 立春ElseIf glrq jingzhe Then yfs = 1 惊蛰ElseIf glrq qingming Then yfs = 2 清明ElseIf glrq lixia Then yfs = 3 立夏ElseIf glrq mangzhong Then yfs = 4 芒种ElseIf glrq xiaoshu Then yfs = 5 小暑ElseIf glrq liqiu Then yfs = 6 立秋ElseIf glrq bailu Then yfs = 7 白露ElseIf glrq hanlu Then yfs = 8 寒露ElseIf glrq lidong Then yfs = 9 立冬ElseIf glrq 12 Then ydzs = ydzs - 12 月地支数(口诀：月份之数加上二，超出十二减十二。）ygzs = (ytgs - ydzs + 12) Mod 12) * 5 + ytgs 月干支数（口诀：天干减地支，不够借十二；其差乘以五，再加天干补。）ygz = ganzhiB(ygzs) 月干支 (3)把农历日的天干地支赋值于 rgz ，1984-1-31是： 甲子日Dim rs%, rgz$rs = glrq - #1/30/1984#: rs = rs Mod 60: If rs = 0 Then rs = rs + 60 日干支数rgz = ganzhiB(rs) 日干支5、定义农历函数-NONGLIdi5bu: Select Case nlr 判断 nlr 的值。Case 1NONGLI = nongli1 nlr=1时，函数NONGLI为yyyy-mm-dd的形式Case 2NONGLI = yr nlr=1时，函数NONGLI为mm-dd的形式Case 3If jr1 & jr2 & jr3 Then NONGLI = jr1 & jr2 & jr3 Else NONGLI = rz nlr=3时，函数NONGLI是节日时为节日形式，否则为初十的形式Case 4NONGLI = rz nlr=4时，函数NONGLI为初十的形式Case 5NONGLI = ngz & & ygz & & rgz nlr=时，函数NONGLI为甲子 丙寅 丙寅的形式Case ElseNONGLI = yf & rz nlr15的整数时，函数NONGLI的形式，同nlr=1时End SelectExit Functionzichengxu2:End FunctionSub Array1(X As Integer, n1 As Integer, glrq As Date)* 装数组程序：（1900-2020），返回农历年份-a（即原X）和此年总天数-b *zichengxu2:1899: If X = 1899 Then y = #1/1/1899#: yts = Array(30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0): GoTo zuihou1900: If X = 1900 Then y = #1/31/1900#: If glrq 2020 Then Exit Sub Else If X = 2000 Then GoTo 2000 Else If X = 1980 Then GoTo 1980 Else If X = 1960 Then GoTo 1960 Else If X = 1940 Then GoTo 19401901: If X = 1901 Then y = #2/19/1901#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 29, 29, 30, 29, 30, 29, 30, 30, 30, 29, 0, 0): GoTo zuihou1902: If X = 1902 Then y = #2/8/1902#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 30, 29, 29, 30, 29, 30, 29, 30, 30, 30, 0, 0): GoTo zuihou1903: If X = 1903 Then y = #1/29/1903#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 29, 30, 29, 29, 30, 29, 29, 30, 30, 29, 30, 5): GoTo zuihou1904: If X = 1904 Then y = #2/16/1904#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 30, 29, 30, 29, 29, 30, 29, 29, 30, 30, 29, 0, 0): GoTo zuihou1905: If X = 1905 Then y = #2/4/1905#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 30, 29, 30, 30, 29, 29, 30, 29, 30, 29, 30, 0, 0): GoTo zuihou1906: If X = 1906 Then y = #1/25/1906#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 30, 29, 30, 29, 30, 29, 30, 29, 30, 29, 30, 4): GoTo zuihou1907: If X = 1907 Then y = #2/13/1907#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 29, 30, 29, 30, 30, 29, 30, 29, 30, 29, 0, 0): GoTo zuihou1908: If X = 1908 Then y = #2/2/1908#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 29, 30, 30, 29, 30, 29, 30, 30, 29, 30, 0, 0): GoTo zuihou1909: If X = 1909 Then y = #1/22/1909#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 29, 29, 30, 29, 30, 29, 30, 30, 30, 29, 30, 2): GoTo zuihou1910: If X = 1910 Then y = #2/10/1910#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 29, 29, 30, 29, 30, 29, 30, 30, 30, 29, 0, 0): GoTo zuihou1911: If X = 1911 Then y = #1/30/1911#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 30, 29, 29, 30, 29, 29, 30, 30, 29, 30, 30, 6): GoTo zuihou1912: If X = 1912 Then y = #2/18/1912#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 30, 29, 29, 30, 29, 29, 30, 30, 29, 30, 0, 0): GoTo zuihou1913: If X = 1913 Then y = #2/6/1913#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 30, 29, 30, 29, 29, 30, 29, 29, 30, 29, 30, 0, 0): GoTo zuihou1914: If X = 1914 Then y = #1/26/1914#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 30, 29, 30, 29, 30, 29, 30, 29, 29, 30, 29, 30, 5): GoTo zuihou1915: If X = 1915 Then y = #2/14/1915#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 30, 30, 29, 30, 29, 30, 29, 30, 29, 29, 0, 0): GoTo zuihou1916: If X = 1916 Then y = #2/3/1916#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 30, 29, 30, 29, 30, 30, 29, 30, 29, 30, 29, 0, 0): GoTo zuihou1917: If X = 1917 Then y = #1/23/1917#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 29, 30, 29, 30, 30, 29, 30, 30, 29, 30, 29, 2): GoTo zuihou1918: If X = 1918 Then y = #2/11/1918#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 29, 30, 29, 30, 29, 30, 30, 29, 30, 30, 0, 0): GoTo zuihou1919: If X = 1919 Then y = #2/1/1919#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 29, 29, 30, 29, 29, 30, 30, 29, 30, 30, 30, 7): GoTo zuihou1920: If X = 1920 Then y = #2/20/1920#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 30, 0, 0): GoTo zuihou1921: If X = 1921 Then y = #2/8/1921#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 0, 0): GoTo zuihou1922: If X = 1922 Then y = #1/28/1922#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 30, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 5): GoTo zuihou1923: If X = 1923 Then y = #2/16/1923#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 30, 29, 30, 29, 30, 29, 29, 30, 29, 30, 0, 0): GoTo zuihou1924: If X = 1924 Then y = #2/5/1924#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 30, 29, 30, 30, 29, 30, 29, 30, 29, 29, 0, 0): GoTo zuihou1925: If X = 1925 Then y = #1/24/1925#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 30, 29, 30, 30, 29, 30, 30, 29, 30, 29, 30, 4): GoTo zuihou1926: If X = 1926 Then y = #2/13/1926#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 29, 30, 29, 30, 29, 30, 30, 29, 30, 30, 29, 0, 0): GoTo zuihou1927: If X = 1927 Then y = #2/2/1927#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 29, 30, 29, 30, 29, 30, 29, 30, 30, 30, 0, 0): GoTo zuihou1928: If X = 1928 Then y = #1/23/1928#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 30, 30, 2): GoTo zuihou1929: If X = 1929 Then y = #2/10/1929#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 30, 0, 0): GoTo zuihou1930: If X = 1930 Then y = #1/30/1930#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 29, 6): GoTo zuihou1931: If X = 1931 Then y = #2/17/1931#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 30, 29, 30, 29, 30, 29, 29, 30, 29, 30, 29, 0, 0): GoTo zuihou1932: If X = 1932 Then y = #2/6/1932#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 30, 30, 29, 30, 29, 30, 29, 29, 30, 29, 30, 0, 0): GoTo zuihou1933: If X = 1933 Then y = #1/26/1933#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 30, 29, 30, 30, 29, 30, 29, 30, 29, 29, 30, 5): GoTo zuihou1934: If X = 1934 Then y = #2/14/1934#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 29, 30, 30, 29, 30, 29, 30, 30, 29, 30, 0, 0): GoTo zuihou1935: If X = 1935 Then y = #2/4/1935#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 29, 30, 29, 30, 29, 30, 30, 29, 30, 30, 29, 0, 0): GoTo zuihou1936: If X = 1936 Then y = #1/24/1936#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 29, 30, 29, 29, 30, 30, 29, 30, 30, 30, 29, 3): GoTo zuihou1937: If X = 1937 Then y = #2/11/1937#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 30, 29, 0, 0): GoTo zuihou1938: If X = 1938 Then y = #1/31/1938#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 29, 30, 7): GoTo zuihou1939: If X = 1939 Then y = #2/19/1939#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 30, 29, 29, 30, 29, 29, 30, 29, 30, 29, 30, 0, 0): GoTo zuihou1940: If X = 1940 Then y = #2/8/1940#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 30, 29, 30, 29, 30, 29, 29, 30, 29, 30, 29, 0, 0): GoTo zuihou1941: If X = 1941 Then y = #1/27/1941#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 30, 29, 30, 30, 29, 30, 29, 29, 30, 29, 30, 29, 6): GoTo zuihou1942: If X = 1942 Then y = #2/15/1942#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 30, 30, 29, 30, 29, 30, 29, 30, 29, 30, 0, 0): GoTo zuihou1943: If X = 1943 Then y = #2/5/1943#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 30, 29, 30, 29, 30, 30, 29, 30, 29, 30, 29, 0, 0): GoTo zuihou1944: If X = 1944 Then y = #1/25/1944#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 30, 29, 30, 29, 30, 29, 30, 30, 29, 30, 30, 4): GoTo zuihou1945: If X = 1945 Then y = #2/13/1945#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(29, 29, 30, 29, 29, 30, 29, 30, 30, 30, 29, 30, 0, 0): GoTo zuihou1946: If X = 1946 Then y = #2/2/1946#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 29, 30, 0, 0): GoTo zuihou1947: If X = 1947 Then y = #1/22/1947#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 30, 29, 29, 30, 29, 29, 30, 29, 30, 29, 30, 30, 2): GoTo zuihou1948: If X = 1948 Then y = #2/10/1948#: If glrq y Then X = X - 1: GoTo zichengxu2 Else yts = Array(30, 29, 30, 29, 30, 29, 29, 30, 29, 30, 29, 30, 0, 0): GoTo zuihou1949: If X = 1949 Then y = #1/29/1949#: If glrq y Then X =