农历转公历
Public Function LTG(Optional xx_date As Date, Optional irow As Integer) '农历转公历
Dim LunarYear, LunarMonth, LunarDay
Dim NongliData(100)
'农历数据
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
NongliData(100) = 1706
Dim m, monthCount, toCurMonthCnt, LeapMonth, theDate, curTime
Dim i1, i2, i3, bit
'获取当前变量日期
curTime = xx_date
'LunarYear = Year(curTime)
LunarYear = Year(Now())
LunarMonth = Month(curTime)
LunarDay = Day(curTime)
m = LunarYear - 1921
monthCount = 0
toCurMonthCnt = 0
LeapMonth = -1
theDate = LunarDay - 1
For i1 = 0 To m - 1 Step 1
If (NongliData(i1) < 4095) Then
monthCount = 11
Else
monthCount = 12
End If
For i2 = 0 To monthCount Step 1
bit = NongliData(i1)
For i3 = 1 To i2 Step 1
bit = Int(bit / 2)
Next
bit = bit Mod 2
theDate = theDate + 29 + bit
Next
Next
If (NongliData(m) < 4095) Then
monthCount = 11
toCurMonthCnt = monthCount - LunarMonth + 2
Else
monthCount = 12
toCurMonthCnt = monthCount - LunarMonth + 1
LeapMonth = Int(NongliData(m) / 65536)
If LunarMonth <= LeapMonth Then toCurMonthCnt = toCurMonthCnt + 1
End If
For i2 = monthCount To toCurMonthCnt Step -1
bit = NongliData(m)
For i3 = 1 To i2 Step 1
bit = Int(bit / 2)
Next
bit = bit Mod 2
theDate = theDate + 29 + bit
Next
LTG = DateAdd("d", theDate, "1921/2/8")
If irow = 1 Then
Sheet1.Cells(1, 10) = "'" & LTG
Else
Sheet1.Cells(irow, 4) = "'" & LTG
End If
End Function
Private Sub CommandButton1_Click()
If IsDate(Sheet1.Cells(1, 9)) = True And IsNull(Sheet1.Cells(1, 9)) = False And Sheet1.Cells(1, 9) <> "" Then
aaa = LTG(Sheet1.Cells(1, 9), 1)
End If
Dim i As Integer
For i = 2 To 100
Sheet1.Cells(i, 4) = ""
If Sheet1.Cells(i, 2) <> "" And IsNull(Sheet1.Cells(i, 2)) = False And IsDate(Sheet1.Cells(i, 2)) = True Then
If Sheet1.Cells(i, 3) = "Y" Then
bbb = LTG(Sheet1.Cells(i, 2), i)
Else
Sheet1.Cells(i, 4) = "'" & Sheet1.Cells(i, 2)
End If
Else
Application.DisplayAlerts = False
Application.Quit
End If
Next i
End Sub
公历农历如何转换？教你一个小技巧
2021年是牛年。那么牛年是从哪一天开始呢？我们当然都知道，从正月初一，春节这天正式开始。所以，今天公元2021年1月29日，在日历上或者万年历上显示的是庚子鼠年十二月十七。公元2020年1月29日，是公历纪年；庚子鼠年十二月十七就是农历纪年。
公历纪年和农历纪年是怎么回事，又该如何换算呢？那么需要我们简单的来了解一下公历和农历的问题。
公历即公元纪历，也就是我们常说的公元年。它的标准名称叫作格里高利历，是现在国际通用的历法，也是一种阳历。阳历是太阳历的简称，这种历法与地球环绕太阳的周年运动有关，与月相无关。
格里高利历是先由意大利医生、天文学家、哲学家、年代学家阿洛伊修斯·里利乌斯和克拉乌等学者在儒略历的基础上加以改革，后由教皇格里高利十三世于1582年颁布，所以被称为格里高利历。又因为这一种源自于西方社会的历法而被称为"西元"，与中国历法相对而言。
农历是中国传统的纪年法，与公历的阳历不同，中国的农历是阴阳合历。那么阴阳合历中就出现了大家熟悉的另外一个词——“阴历”。所以我们需要区分一下“阴历”和“阳历”。
古人最为熟悉的天象就是太阳的出没和月亮的盈亏，所以以昼夜的交替周期为一“日”，以月相变化的周期为一“月”。至于“年”的概念，最初大约是以庄稼成熟的物候为标准的，《说文解字》说：“年，谷熟也。”谷物成熟的周期意味着寒来暑往的周期，那就是地球绕太阳一周的时间，现代叫作太阳年。以月相为单位的历法是阴历，以太阳年为单位的历法就是阳历。
我国古代的历法不是纯阳历，也不是纯阴历，而是阴阳合历。这样，以阴历而言就出现了初一、十五；以阳历而言就出现了四季和节气。
从辛亥革命后，即自民国元年我国正式采用格里高利历，故又名曰"国历"。为与中国旧有之历法相对称，故又名曰"新历"。1949年9月27日，经过中国人民政治协商会议第一届全体会议通过，中华人民共和国使用国际社会多数国家通用的西历和西元作为历法和纪年。此后，在官方或者正式场合，我国采用的是公元纪年。但是在民间，农历纪年依然流行。这就出现了我国的日历上往往标示的是两种纪年法。而且，几乎全世界所有华人及朝鲜、韩国和越南及早期的日本等国家，民间依然使用农历来推算传统节日和24节气，以利于农业种植等活动。
那么，书归正传，公历和农历怎么转换呢？当然最简单的就是查看万年历，或者手机、电脑在线转换。但是，如果手边没有工具，又如何高效转换呢？可告诉大家一个简单的转换公式。在掌握转换公式前，大家首先要了解十大天干和十二地支，因为我国古代是用天干地支来计算时间的。
然后，我们来看转化公式：
这个转换公式中，前两句话对应天干，后两句话对应地支。
以2021年（农历）为例，那么：
第一句话的意思是在公元年数减去三，即2021-3=2018；
第二句的意思是说用第一句的得数除以十，2018 ÷ 10=201余8。
余数8对应查找天干顺序，我们可以找到“辛”。
第三句话的意思是用第一句得到的“基数”除以十二，2018 ÷ 12=168余2；
第四句话的意思是按照余数2查找地支得到“丑”。
然后将天干地支合在一起，2021年就是农历“辛丑”年。
公历和农历的转换，就是这么简单！你学会了吗？
今年农历二月有59天？一图看懂闰月来龙去脉
你知道吗？今年癸卯兔年不止一个农历二月，还多了一个“闰二月”。今天是闰二月第一天，你知道农历的闰月是怎么回事吗？一图看懂
来源： 中国新闻网
