公历农历(公历农历怎么区分)

公历、阴历、农历都是怎么回事？哪个更准确？

现在大家都知道，我们用的日历是公历，比如2019年4月3日，但对于生日老人一般喜欢说阴历，比如是八月十五出生的，还有一些传统节日也是按阴历说的。还有大家常说的农历。

但是这三种历法来历是什么、哪个比较准什么的大家可能有些不清楚了。

咱们平常说话的时候往往把公历说是阳历。这个说法其实很准确，公历就是以太阳为基准确定的历法，一天就是地球黑夜白天更替一个循环，之所以有这个循环变化是因为太阳照耀下地球自转的结果。还有，一年则是地球绕太阳公转一圈的结果，春夏秋冬等季节的变化则是由于太阳照射角度不同产生的。从这里看出来，称呼公历为阳历是恰如其分的。

阴历则是以月亮为基准确定的。月球围绕地球转动，有阴晴圆缺、大小不一、形状不同的月相变化，这种变化就是朔望，从一个新月到下个新月之间这叫一个朔望月。

另外还有一种历法叫农历，比如立春、雨水、惊蛰、春分、清明、谷雨、立夏、小满、芒种、小大暑、秋分、冬至等等，这种历法其实是以地球绕太阳一个回归年而制定的，其实也是一种阳历，不过它的主要用途是指导大家从事农业耕种和表现物候用，而不是用来记年。

我国历史上一直采用的是阴历和农历共同使用的阴阳合历，平常记事、交流用阴历，由于一直是农耕社会，农历也是极为重要的，是安排农业生产的最重要的依据。记载国家大事用的是某某皇帝的年号加阴历的体系，不过这种方法有弊端，因为皇帝使用年号可不用等到某年的整数再记载，换皇帝了、甚至某个皇帝执政期间换好几个年号，给纪年和记事带来很大不便。直到1949年新中国成立才确立我们的纪年方式采用公历纪年。

采用公历纪年对于一些传统思想比较严重的人来说可能无法接受，特别是那些当时看不起西方社会、视西方为蛮夷的人更是如此。可实话实说，在纪年方面，公历由于是采用太阳的运行周期进行计算的，更为科学和准确。而阴历和农历结合的使用，归根结底也是太阳在起作用，特别是农历的各个节气的变化，更是地球绕太阳直接作用的结果，这一点跟公历的记时方式没什么两样。

上世纪一枚既有公元纪年又有农历纪年的邮戳

其实还有一种方法可以看出来哪个准确不准确，就看这个历法针对运行期间跟地球和太阳之间实际变化的调整的频率多寡来确定，比如地球绕太阳365.2242天一圈，按一年365天算，实际用时要多一点，这多出来的时间每四年换算成增加一天，为的是让时间回到365天的轨道上，多出一天的这年叫闰年。而阴历则零散的多，它是按照月相29.5306天为一个循环变化的，按一年365天算，还要保证是12个月，那么怎么安排月数呢，于是每年就要有大月、小月还有闰月。大家是不是感觉出闰月的时候要比闰年多的多呢，也给生活带来了不便。所以以方便生活和纪年说，哪个简单哪个就准确。您说是不是这个理儿呢？

农历转公历

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

阴历和阳历怎么区分？一篇图文，让你完全搞明白

我们平常说的阴历，其实指的就是农历，是我国一种传统的历法。而阳历则指的是公历，是从西方引进的一种纪年方法，因此也称为西历。

那么这两者之间，都有哪些区别呢？

下面我为大家详细分析一下。

阴历平年是12个月，平均天数为354或355天，闰年是13个月，平均天数为383或384天。阳历只有12个月，平年是365天，闰年是366天。

阴历大月为30天，小月为29天。而阳历大月是31天，小月是30天，还有个特殊的二月，平年是28天，闰年是29天。

阴历，也叫太阴历，而太阴指的就是月亮。因此阴历的月份，实际是根据月相的变化来计算的，也就是把月亮圆缺一次的时间，计算为一个月。而月亮的圆缺，又会引起潮汐的变化，因此能指导海事活动。但是阳历的月份中，“月”只是一个单位符号，没有这方面的功能。

在阴历中，一年又划分为24个节气，而阳历中是没有节气的。这是因为我国是农业大国，古人为了让历法，可以更好的指导农事活动，便创造性的发明了24节气。

阴历的通常叫法，是日期后面不带“日”字，当日期在一到十之间，叫做几月初几，如三月初八、六月初十等；当日期大于十时，叫做几月几，如五月十七、十一月十六。而阳历的通常叫法，是日期后面带“日”字，叫做某月某日，如八月十五日、十二月二十三日等。

以上，就是我们平常所说的，阴历和阳历的区别。二者比较起来，阴历更实用一些，尤其是对从事农事活动、海事活动的人群。而阳历则更方便计算，还有人们的日常记忆。

本文为“索彦聊诗词”根据相关资料，原创写作而成，喜欢的朋友欢迎关注、点赞、评论。

大多数人的农历公历生日每隔19年可重合在同一天

记得我在十几岁时父亲说过：中国绝大多数人的阴历生日和阳历生日每隔19年是重合在同一天的（那个时候的农村人习惯上把农历叫阴历、把公历叫阳历）。我问他为什么这样，他也说不上来。后来我高中毕业留校任教，在学校图书馆查看了很多书籍，才大致搞清楚。

实际上，这是由我国采取公历和农历两种纪年方法所决定的。例如今天，公历就是公元2022年9月3日，农历就是壬寅年八月初八。大家知道，公历年是世界普遍使用的纪年方法，它是根据地球围绕太阳公转一圈（公转一圈是一年，约365.2天）确定的；农历则是我国特有的纪年方法，它是根据月亮围绕地球公转一圈（公转一圈是一个月，约29.5天，一年为354天）确定的。这样一算，农历年比公历年一年中少了11天，19年中少了约210天，将近7个月，近乎一个整数。

为了不让农历年和公历年的时间相差太多，人们便采取在农历年设置“闰月”的办法，即19年中有12个平年（一年12个月）、7个闰年（一年13个月）。就这么一就乎，使得19个农历年与19个公历年的天数几乎相等。因此，绝大多数的人，在19周岁和19周岁倍数的那一年，农历生日和公历生日正好重合在同一天。极少数在夜里24时前后出生的人，由于19年当中“两种年历”之间存在的一些时间误差而重合不上同一天，但也只能或前或后相差1天。

有兴趣的朋友，可以在网上搜一搜自己在19×1、19×2、19×3……周岁那一年的年历或黄历，查看一下是否这样。

长知识：阴历、阳历、农历到底有什么区别？

每当身边有朋友过生日时，许多人都会问一句：“这是阳历生日还是阴历？”

除了这两种对日期的说法，我们还常听到一种叫做“农历”的日期，那么这三种说法到底有什么区别？

辛亥革命之后，中国开始采用西方的公历，俗称“新历”，与中国旧有的历法相对。1949年后则正式采用公元纪年。

而阴历也叫太阴历，是以月亮围绕地球转动的规律制定的。

阴历的一个月叫做“朔望月”。每月初一为朔日，十五为望日，“朔望月”是月相盈亏的平均周期。所谓“月有阴晴圆缺”，说的就是这个意思。

那么，旧有的历法是阴历还是阳历呢？其实都不算。

中国自古的历法是一种阴阳合历，一般称为“农历”。

很多人认为农历就是阴历，其实二者还是有差别的。阴历的时间和阳历相比，每年大约差十一天。

如果完全按照阴历来，可能不出五年，我们就要在夏天过春节了。

然而这种情况并没有发生，因为中国的历法中有一项伟大的发明叫“置闰法”。

每19年中设置7个闰月，有闰月的年份一年383天或384天，称为闰年。比如2016年、2020年都是闰年。

陆游的诗《蜗舍》中有：

“麦因多雨损，

蚕遇闰年迟”。

农历又根据太阳的位置，把一年分为二十四个节气，便于安排农业生产。所以二十四节气来自农历，而非阴历。

但是，除了清明节之外，中国的其他传统节日都是根据阴历设置的。

如今，属于汉文化圈的人们每年仍要庆祝春节、端午节、中秋节等节日。

所以说，中国传统的历法是结合了阳历和阴历的一种阴阳历。

它用置闰法填补了阴、阳历的时间差，又用阳历的规律制定了安排农事的二十四节气。

在农历的时序中，人们的生活更加和谐一致，春耕秋收也得到了有条不紊的规划。日月相合的农历，其实用价值远远超过了其他历法。

它不仅仅是一种历法，更是上下求索的炎黄子孙们，千百年来生活经验与智慧的化身。