如何保护牛仔裤不破洞？如何保护牛仔裤不破洞的方法

访客

2023-03-18 05:45:24 4阅读 0评论

　　说到农历生日转换阳历生日，大家都知道，有人问农历生日与阳历生日在同一天要过多少年，另外，还有人想问生日农历新历怎么算啊，这是怎么回事？其实农历生日如何算，下面就一起来看看生日农历换新历怎么算，希望能够帮助到大家！

　　过生日到底应该过阳历还历？今天可算明白了，以后别再过错了

　　如何在excel表阴历生量转换成阳历？阳历生日阴历农历转换。

　　将下面面这段代码保存在模块中，就可以用公式 =nongli(A1) 调用了。

　　Public Function NongLi(Optional XX_DATE As Date)

　　Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)

　　Dim curTime, curYear, curMonth, curDay

　　Dim GongliStr, NongliStr, NongliDayStr

　　Dim i, m, n, k, isEnd, bit, TheDate

　　‘获取当前

系统时间生日农历和阳历转换。

　　curTime = XX_DATE

　　‘天干名称

　　TianGan(0) = “甲”

　　TianGan(1) = “乙”农历转阳历生日查询。

　　TianGan(2) = “丙”阳历转农历生日查询器。

　　TianGan(3) = “丁”农历阴历转换阳历。

　　TianGan(4) = “戊”

　　TianGan(5) = “己”生日是按农历还是阳历。

　　TianGan(6) = “庚”农历阳历生日同一天。

　　TianGan(7) = “辛”生日农历和阳历怎么看。

　　TianGan(8) = “壬”

　　TianGan(9) = “癸”农历阳历生日重合寓意。

　　‘地支名称

　　DiZhi(0) = “子”生日农历和阳历同一天。

　　DiZhi(1) = “丑”生日农历准还是阳历准。

　　DiZhi(2) = “寅”qq生日是农历还是阳历。

　　DiZhi(3) = “卯”

　　DiZhi(4) = “辰”

　　DiZhi(5) = “巳”

　　DiZhi(6) = “午”

　　DiZhi(7) =

“未”农历和阳历生日重合。

　　DiZhi(8) = “申”生日以农历还是阳历。

　　DiZhi(9) = “酉”生日是看农历还是阳历。

　　DiZhi(10) = “戌”农历阳历转换。

　　DiZhi(11) = “亥”

　　‘属相名称

　　ShuXiang(0) = “鼠”

　　ShuXiang(1) = “牛”农历阳历转换查询。

　　ShuXiang(2) = “虎”

　　ShuXiang(3) = “兔”

　　ShuXiang(4) = “龙”

　　ShuXiang(5) = “蛇”

　　ShuXiang(6) = “马”阳历农历转换计算。

　　ShuXiang(7) = “羊”

　　ShuXiang(8) = “猴”农历生日转换成阳历。

　　ShuXiang(9) = “鸡”农历生日转换阳历。

　　ShuXiang(10) = “狗”

　　ShuXiang(11) = “猪”

　　‘农历日期名

　　DayName(0) = “”

　　DayName(1) = “初一”

　　DayName(2) = “初二”

　　DayName(

3) = “初三”生日按农历还是阳历算。

　　DayName(4) = “初四”生日农历还是阳历。

　　DayName(5) = “初五”

　　DayName(6) = “初六”农历和阳历转换。

　　DayName(7) = “初七”

　　DayName(8) = “初八”

　　DayName(9) = “初8221;

　　DayName(10) = “初十 “

　　DayName(11) = “十一”

　　DayName(12) = “十二”农历阳历转换器。

　　DayName(13) = “十三”

　　DayName(14) = “十四”

　　DayName(15) = “十五”

　　DayName(16) = “十六”

　　DayName(17) = “十七”

　　DayName(18) = “十八”

　　DayName(19) = “十8221;

　　DayName(20) = “二8221;

　　DayName(21) = “廿一”

　　DayName(22) = “廿二”

　　DayName(23) = “廿三”

　　DayNam

e(24) = “廿四”

　　DayName(25) = “廿五”

　　DayName(26) = “廿六”

　　DayName(27) = “廿七”

　　DayName(28) = “廿八”

　　DayName(29) = “廿8221;

　　DayName(30) = “三8221;

　　‘农历月份名

　　MonName(0) = “”

　　MonName(1) = “正”

　　MonName(2) = “二”

　　MonName(3) = “三”

　　MonName(4) = “四”

　　MonName(5) = “五”

　　MonName(6) = “六”

　　MonName(7) = “七”

　　MonName(8) = “八”

　　MonName(9) = “8221;

　　MonName(10) = “8221;

　　MonName(11) = “十一”

　　MonName(12) = “腊”

　　‘公历每月前面的天数

　　MonthAdd(0) = 0

　　MonthAdd(1) = 31

　　MonthAdd(2) =

　　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) =

　　NongliData(2) = 1701

　　NongliData(3) = 1748

　　NongliData(4) =

　　NongliData(5) = 694

　　NongliData(6) = 2391

　　NongliData(7) =

　　NongliData(8) = 1175

　　NongliData(9) =

　　NongliData(10) = 3402

　　NongliData(11) = 3749

　　NongliData(12) =

　　Nongli

Data(13) = 1453

　　NongliData(14) = 694

　　NongliData(15) =

　　NongliData(16) = 2350

　　NongliData(17) =

　　NongliData(18) = 3221

　　NongliData(19) = 3402

　　NongliData(20) =

　　NongliData(21) = 2901

　　NongliData(22) = 1386

　　NongliData(23) =

　　NongliData(24) = 605

　　NongliData(25) = 2349

　　NongliData(26) =

　　NongliData(27) = 2709

　　NongliData(28) =

　　NongliData(29) = 1738

　　NongliData(30) = 2901

　　NongliData(31) =

　　NongliData(32) = 1242

　　NongliData(33) = 2651

　　NongliData(34) =

　　NongliData(35) = 1323

　　NongliData(36) =

　　NongliData(37) = 3733

　　NongliData(38) = 1706

　　NongliData(39) =

　　NongliData(40) = 2741

　　NongliData(41) = 1206

　　NongliData(42) =

　　NongliData(43) = 2647

　　NongliData(44) = 1318

　　NongliData(45) =

　　NongliData(46) = 3477

　　NongliData(47) =

　　NongliData(48) = 1386

　　NongliData(49) = 2413

　　NongliData(50) =

　　NongliData(51) = 1197

　　NongliData(52) = 2637

　　NongliData(53) =

　　NongliData(54) = 3365

　　NongliData(55) =

　　NongliData(56

) = 2900

　　NongliData(57) = 2922

　　NongliData(58) =

　　NongliData(59) = 2395

　　NongliData(60) = 1179

　　NongliData(61) =

　　NongliData(62) = 2635

　　NongliData(63) =

　　NongliData(64) = 1701

　　NongliData(65) = 1748

　　NongliData(66) =

　　NongliData(67) = 2742

　　NongliData(68) = 2391

　　NongliData(69) =

　　NongliData(70) = 1175

　　NongliData(71) = 1611

　　NongliData(72) =

　　NongliData(73) = 3749

　　NongliData(74) =

　　NongliData(75) = 1452

　　NongliData(76) = 2742

　　NongliData(77) =

　　Non

gliData(78) = 2350

　　NongliData(79) = 3222

　　NongliData(80) =

　　NongliData(81) = 3402

　　NongliData(82) = 3493

　　NongliData(83) =

　　NongliData(84) = 1386

　　NongliData(85) =

　　NongliData(86) = 605

　　NongliData(87) = 2349

　　NongliData(88) =

　　NongliData(89) = 2709

　　NongliData(90) = 2890

　　NongliData(91) =

　　NongliData(92) = 2773

　　NongliData(93) =

　　NongliData(94) = 1210

　　NongliData(95) = 2651

　　NongliData(96) =

　　NongliData(97) = 1323

　　NongliData(98) = 2707

　　NongliData(99)