一篇好的文章需要好好的打磨，你现在浏览的文章是一篇关于农历公里转换器 农历公里转换的文章，本文对文章农历公里转换器 农历公里转换好好的分析和解答，希望你能喜欢，只有你喜欢的内容存在，只有你来光临，我们才能继续前行。
用VBA。插入模块，将下面的代码放进去。这个就是公历转农历的函数。调用时就是：
用这个函数NongLi()。
比方说输出到text1.text上就是Text1.text=NongLi("2023-11-7")。
经测试准确无误。
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) = "寅"
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) = "初九"
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) =
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) =
NongliData(13) = 1453
NongliData(14) = 694
NongliData(15) =
NongliData(16) = 2350
NongliData(17) =
NongliData(18) = 3221
NongliData(19) = 3402
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) =
NongliData(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) =
'生成当前公历年、月、日 ==>GongliStr
curYear = Year(curTime)
curMonth = Month(curTime)
curDay = Day(curTime)
GongliStr = curYear & "年"
If (curMonth < 10) Then
GongliStr = GongliStr & "0" & curMonth & "月"
Else
GongliStr = GongliStr & curMonth & "月"
End If
If (curDay < 10) Then
GongliStr = GongliStr & "0" & curDay & "日"
Else
GongliStr = GongliStr & curDay & "日"
End If
'计算到初始时间1921年2月8日的天数：1921-2-8(正月初一)
TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) / 4) + curDay + MonthAdd(curMonth - 1) - 38
If ((curYear Mod 4) = 0 And curMonth > 2) Then
TheDate = TheDate + 1
End If
'计算农历天干、地支、月、日
isEnd = 0
m = 0
Do
If (NongliData(m) < 4095) Then
k = 11
Else
k = 12
End If
n = k
Do
If (n < 0) Then
Exit Do
End If
'获取NongliData(m)的第n个二进制位的值
bit = NongliData(m)
For i = 1 To n Step 1
bit = Int(bit / 2)
Next
bit = bit Mod 2
If (TheDate <= 29 + bit) Then
isEnd = 1
Exit Do
End If
TheDate = TheDate - 29 - bit
n = n - 1
Loop
If (isEnd = 1) Then
Exit Do
End If
m = m + 1
Loop
curYear = 1921 + m
curMonth = k - n + 1
curDay = TheDate
If (k = 12) Then
If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then
curMonth = 1 - curMonth
End If
Else
If (curMonth > (Int(NongliData(m) / 65536) + 1)) Then
curMonth = curMonth - 1
End If
End If
'生成农历天干、地支、属相 ==>NongliStr
NongliStr = "农历" & TianGan(((curYear - 4) Mod 60) Mod 10) & DiZhi(((curYear - 4) Mod 60) Mod 12) & "年"
NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod 60) Mod 12) & ")"
'生成农历月、日 ==> NongliDayStr
If (curMonth < 1) Then
NongliDayStr = "闰" & MonName(-1 * curMonth)
Else
NongliDayStr = MonName(curMonth)
End If
NongliDayStr = NongliDayStr & "月"
NongliDayStr = NongliDayStr & DayName(curDay)
NongLi = NongliStr & NongliDayStr
End Function
藁城城关 石家庄市东35公里农历一、六、四、九集，
庙会 农历四月二十八至五月初一日、五月十五至十九日、九月十四至十九日，
丘头 县城西南15公里 有集，
赵庄 县城西北20公里 农历一、六集
庙判毕会：农历十月十一至十六日，
南孟 县城北偏西25公里 农历二、七集 庙会：农历四月十七至二十一日，
贾市庄 县城瞎拿东南25公里 农历三、八集，
梅花 县城南20公里 农历二、七集，
南董 县城西北10公里 农历三、八集 庙会：农历十日二十三至二十八日，
岗上 县城西13.5公里 农历一、六集， 丽阳 县城西南12.5公里 农历逢五、十集，
小果庄 县城西北28.5公里 农历逢五、十集 庙会：农历十月初三磨冲搭至十八日 ，
耿村 县城东偏南13公里 农历一、六集，马庄 县城西南13公里 有集，
小常安 县城东南10.5公里 有集，
黄庄 县城西北18公里 有集 庙会：农历七月初七至十二日，
张村 县城东10.5公里 有集，
角中 县城东南7.5公里 有集，
故献 县城西9公里 有集，
贤庄 县城西北13公里 有集，
九门 县城西北12公里 有集，只都 县城西北20公里 有集，
前西关 县城北35公里 有集，
大慈邑 县城西北24公里 有集，
石家庄集市，庙会时间表
石家庄市
西三庄 农历逢四、九为集 庙会为正月二十三至二十六
赵陵铺 农历逢五、十为集
振头 农历逢二、七为集
于底 农历逢三、八为集
辛集
旧城 辛集镇东北18.9公里 农历双日为集
新城 辛集镇东南10公里 农历逢五、十集 庙会：农历三月十五至十九日
位伯 辛集镇北13．8公里 农历逢五、十集
南智丘 辛集镇南17．4公里 农历三、八集
张古庄 辛集镇东北18公里 农历一、六集 庙会：农历十一月五日至十一日
范家庄 辛集镇东北9．4公里 农历二、七集
新垒头 辛集镇北7．4公里
和睦井 辛集镇东11．1公里 农历一、六集 庙会：农历四月初八至十二日
木丘 辛集镇西南9公里 农历二、七集
孟家庄 辛集镇东南23．8公里 农历四、九集
中里厢 辛集镇东北22．5公里 农历四、九集
王口 辛集镇南偏东27．9公里 农历逢五、十集 庙会：农历七月十五至十九日
杜林 辛集镇东北21公里 农历二、七集
王山口 辛集镇北22．8公里 农历三、八集
小章 辛集镇北23．4公里 农历逢五、十集
西王封 辛集镇东北15公里 庙会：农历正月初六至二十一日
晋州
城关 石家庄市东50公里 农历二、七、四、九集 庙会：九日初九至十月初四日
总十庄 县城南21公里 农历四、九集
小樵 县城东9．5公里 农历一、六集
周头 县城南14公里 农历逢五、十集
槐树 县城北6公里 农历二、七集
东里庄 县城东南12公里 农历一、六集
东卓宿 县城东北9．5公里 农历三、八集
营里 县城东南27公里 农历逢五、十集
马于 县城东南10公里 有集
周家庄 县城东4公里 有集
侯城 县城东北9．5公里 有集
赵魏 县城西南4公里 唐宰相魏征故里
相邱 县城北偏东6公里 北齐宰相魏收卒葬地
管洽 县城北IO公里 有集
田村 县城东北14公里 有集
祁底 县城北9公里 有集
大尚村 县城南25公里 有集
平乡 县城东南23公里 有集
南捏盘 县城东南8．5公里 有集
深泽县
深泽城关 石家庄市东北76公里 农族悉升历二、七集
庙会：兆老四月二十七至五月初二日、农历九月二十七至十月初二日
铁杆 县城东南15公里 农历三、八集 庙会：农历九月二十八至十月初三日
西固罗 县城北偏东10公里 农历三、八集
西河 县城东南6公里 农历一、六集
北赵八 县城西4公里 农历四、九集
宋家庄 县城北偏东7．5公里 抗日战争时期宋家庄战斗发生地
无极县
无极城关 石家庄市东北54公里农历一、六集
庙会：农历四月十一至十六日、五月十六至二十一日、十月十一至十六日
郭庄 县城西北10公里 农历三、八集 庙会：农历十一月初八至十三日
北苏 县城西14公里 农历逢五、十集 庙会：农历四月二十五至三十日
张段固 县城西南5．5公里 农历逢五、十集
大陈 县城东北9公里 农历一、六集
南流 县城东北11．5公里 农历三、八集
中郝庄 县城西南16公里 农历三、八集
高头 县城西南10．5公里 农历二、七集
七汲 县城东6公里 农历四、九集
谈下 县城西南15公里 农历四，九集
东汉 县城东8公里 农历二、七集 庙会时间：清明节
东丈 县城西北11公里 农历二、七集
东河流 县城东南5．5公里 农历四、九集
西两河 县城南8．5公里 农历三、八集
藁城
藁城城关 石家庄市东35公里农历一、六、四、九集
庙会：农历四月二十八至五月初一日、五月十五至十九日、九月十四至十九日
丘头 县城西南15公里 有集
赵庄 县城西北20公里 农历一、六陆粗集 庙会：农历十月十一至十六日
南孟 县城北偏西25公里 农历二、七集 庙会：农历四月十七至二十一日
贾市庄 县城东南25公里 农历三、八集
梅花 县城南20公里 农历二、七集
南董 县城西北10公里 农历三、八集 庙会：农历十日二十三至二十八日
岗上 县城西13．5公里 农历一、六集
丽阳 县城西南12．5公里 农历逢五、十集
小果庄 县城西北28．5公里 农历逢五、十集 庙会：农历十月初三至十八日
耿村 县城东偏南13公里 农历一、六集
倪家庄 县城东南10公里 农历逢五、十集 唐 倪若水故里
尚书庄 县城西偏北3公里 明 张子麟故里
马庄 县城西南13公里 有集
小常安 县城东南10．5公里 有集
黄庄 县城西北18公里 有集 庙会：农历七月初七至十二日
张村 县城东10．5公里 有集
角中 县城东南7．5公里 有集
故献 县城西9公里 有集
贤庄 县城西北13公里 有集
九门 县城西北12公里 有集
只都 县城西北20公里 有集
前西关 县城北35公里 有集
大慈邑 县城西北24公里 有集
赵县
赵县城关 石家庄市东南45公里 农历一、六、四、九集
庙会：农历二月十六至二十一日、四月二十六日至五月初一日、九月初六至十一日
沙河店 县城南10公里 农历逢五、十集
范庄 县城东20公里 农历逢五、十集
韩村 县城东北7．5公里 农历三、八集 庙会：农历十月二十四至三十日
大石桥 县城南2．5公里 农历二、七集 庙会：农历二月初一至五日
各子 县城东北15公里 农历一、六集
大夫庄 县城东25公里 农历三、八集
杨家郭 县城东南8公里 农历三、八集
新寨店 县城西北9公里 农历一、六集
西封斯 县城西南15公里 农历一、六集
杨扈 县城东南18公里 农历二、七集
双庙 县城北10公里 农历三、八集
沟岸 县城西偏北15公里 农历三、八集
四德 县城东北15公里 农历逢五十集
栾城县
栾城城关 石家庄市东南22公里 农历一六三八集
方村 县城西北15公里 农历一、六集
南郄马 县城北11公里 农历二、七集 庙会：农历九月十七至二十二日
冶河 县城西北10公里 农历四、九集
柳林屯 县城东7公里 农历逢五、十集
窦妪 县城西偏北12．5公里农历二、七集 庙会；农历九月十七至二十二日
西营 县城西南10公里
韩家庄 县城西0．5公里 元末农民起义首领韩山童故里
苏邱 县城西北9公里 唐 宰相苏味道卒葬地
南柴村 县城东2公里 汉 棘蒲侯柴武故里
东羊市 县城北10．5公里 庙会：农历四月十八至二十三日
邵家庄 县城西此13公里 庙会：农历十月二十五日
南屯 县城东南10．5公里 庙会：农历十月二十七日
赵庄 县城西偏南10．5公里 庙会：农历三月十五至十七日
以上内容是小编精心整理的关于农历公里转换器 农历公里转换的精彩内容，好的文章需要你的分享，喜欢农历公里转换器 农历公里转换这篇精彩文章的，请您经常光顾吧！
上一篇：农历有生肖吗 农历生肖相冲查询
下一篇：更多运程