农历公里转换器 农历公里转换

一篇好的文章需要好好的打磨，你现在浏览的文章是一篇关于农历公里转换器 农历公里转换的文章，本文对文章农历公里转换器 农历公里转换好好的分析和解答，希望你能喜欢，只有你喜欢的内容存在，只有你来光临，我们才能继续前行。

在表格中实现公里转换农历的VB程序应该如何做?

用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公里 庙会：农历三月十五至十七日

以上内容是小编精心整理的关于农历公里转换器 农历公里转换的精彩内容，好的文章需要你的分享，喜欢农历公里转换器 农历公里转换这篇精彩文章的，请您经常光顾吧！