农历公历换算公式(农历公历换算)

周润健/新华社

天文科普专家介绍，公历2023年为平年，2月有28天，全年共有365天。即将到来的农历癸卯兔年为闰年，全年共有384天。

中国天文学会会员、天津市天文学会理事赵之珩介绍，公历和农历各有不同的历史渊源和历法规制。公历每4年设一闰年。通常情况下，凡公历年数能被4除尽的年份为闰年，2月有29天；除不尽的年份为平年，2月有28天。2023年不能被4除尽，所以是平年，共有365天。

农历是以月亮圆缺变化的周期为依据，一个朔望月为一个月，约29.53天，全年一般是354天或355天，比公历年（也称回归年、太阳年）的365天或366天少了11天。

为了使农历年的长度和公历年的长度接近，古人采用增加闰月的方法，即在19个农历年中加入7个闰月；有闰月的那一年有13个月，全年一般是384天或385天，叫作闰年。这样一来，19个农历年和19个公历年的长度几乎相等。

至于闰月具体安置在哪一个月，这和二十四节气的“中气”有关。二十四节气由12个节气和12个中气组成，月首叫“节气”，月中叫“中气”，两者相间排列。加闰月的规则是每个月中，凡含有中气的算正常月份，不含中气的就算上一个月的闰月。农历癸卯兔年的“闰二月”没有中气，所以就是上一个月二月的闰月。

记者在天文年历上看到，由于被安排了一个“闰二月”，农历癸卯兔年全年共有384天，从2023年1月22日开始，至2024年2月9日结束。

农历癸卯兔年天数较多，还使得这个农历年出现了两个立春的历法现象，即“一年两头春”，也称“双春年”。统计发现，19个农历年中有7个年头是“双春年”，有7个年头是“无春年”，其余的5个年头是正常的“单春年”。

“‘双春年’和‘无春年’都只是正常的历法现象，与吉凶祸福无关。”赵之珩强调。

今年共有384天！

关于农历和公历生日

前段时间，趁十一假期回了一趟老家，刚好赶上老家续修族谱，上一次撰修族谱还是29年前，印象中我还是个小学生，而现在的我早已经研究生毕业多年，也已经是两个娃的父亲了。

第一次看族谱，发现一个问题就是上面记载的出生日期都是默认的农历日期，印象中我们小时候，过生日也都是按农历的日子，至少农村和小城镇都是这样的。而我们的下一代，出生在城市里面，随着时代的变迁，他们的生日都登记的是公历的日期。想了想，这个变化还得在族谱上备注清楚才行，于是我和我老婆还是按之前的惯例，上报的农历的出生日期；而小孩们则按照公历的日期来登记，特意在族谱的日期后面分别备注了农历和公历。

今天其实算是我农历的生日，但本着一年只庆祝一次，前段时间已经庆祝了我公历的生日，所以今天也就没有庆祝，平平淡淡地过了一天。前几年，我们还真是农历生日和阳历生日混着庆祝，确实有点混乱。我小时候其实是只过农历生日的，父母和周边的亲戚也都只记得我农历的出生日期，农历的生日对我来说，其实更有纪念意义。公历的生日是考上大学和工作以后才开始过的，也许那个时候为了赶时髦，想着跟城市融合，所以中间也就慢慢地过起了公历的生日。

这次看到自己登记在族谱的农历日期，我才恍然明白，这个农历的生日才是我最该庆祝的日子，也代表了我出生的那个年代和环境。咱们中国所有重要的节日，如春节，中秋也都是只看农历，其实没必要去赶那个公历的时髦，农历和农村的烙印也没啥不好。今天跟老婆聊天，觉得有必要明确一下我们家过生日的规则，于是商定：我们俩今后还是过回农历的生日，公历生日不庆祝；而我们的小孩们，则按照公历来过生日，农历生日不庆祝。这一切都代表了时代的发展和变迁，我们既应该有所保留，也要适应新的形势。

2021年农历九月二十

双倍爱你！山东15市开放2月2日婚姻登记！快约起来

2020年2月2日被称为“千年一遇的对称日”，寓意双倍的“爱你”，当天还是农历初九，有“长久”的好寓意，不少想领证的网友心动了

虽然2月2日是周六但是为了大家的美好心愿山东济南、青岛、烟台等14个城市都可以在2月2日办理婚姻登记！

想领证的新人们快麻溜儿预约起来吧！

济南市

定于2月2日领证的新人，可提前打电话预约，济南市各婚姻登记处会为提前预约登记的当事人办理登记。

青岛市

去年开始，青岛市民政局已开展“5+2”登记服务，登记双方既可以在正常的工作日到婚姻登记处办理登记，亦可以在周末办理登记，周末执行预约登记。婚姻登记服务全周无休、“即来即办”。新人可拨打12349—2号键进行登记咨询。

青岛民政局提出倡议：温馨办婚礼，节俭过日子，抵制天价彩礼，拒绝恶俗婚闹，婚车少一点，日子长一点，酒席小一点，日子甜一点。

青岛市涉外婚姻登记处：0532-83862830

市南婚姻登记处：0532-68896198

市北婚姻登记处：0532-88759599

李沧婚姻登记处：0532-84634260

崂山婚姻登记处：0532-88896990

西海岸婚姻登记处(东区)：0532-86975312

西海岸婚姻登记处(西区)：0532-85166022

城阳婚姻登记处：0532-87868075

即墨婚姻登记处：0532-87556167

胶州婚姻登记处：0532-82206502

莱西婚姻登记处：0532-88400682

平度婚姻登记处：0532-84389230

淄博市

全市婚姻登记机关启动2020年2月2日婚姻登记预约机制。即日起，市民可拨打各区县婚姻登记处电话进行预约。

预约电话：

张店区婚姻登记处：0533-2150381

淄川区婚姻登记处：0533-5282036

博山区婚姻登记处：0533-4116099

周村区婚姻登记处：0533-6423175

临淄区婚姻登记处：0533-7217949

桓台县婚姻登记处：0533-8183619

高青县婚姻登记处：0533-6961242

沂源县婚姻登记处：0533-3240573

高新区婚姻登记处：0533-2326166

枣庄市

全市婚姻登记机关于2020年2月2日办理预约婚姻登记。

滕州市民政局婚姻登记处：0632-5825067

薛城区婚姻登记中心：0632-4445766

山亭区婚姻登记服务中心：0632-8020521

市中区婚姻登记中心：0632-3355138

峄城区民政局婚姻登记处：0632-7721393

台儿庄区婚姻登记中心：0632-6631650

高新区民政局婚姻登记处：0632-8064956

东营市

东营市各县区婚姻登记机关通过预约服务的方式为有需求的新人办理结婚登记。想在2月2日领证的新人，可通过电话预约和现场预约等方式做好提前预约。

烟台市

烟台市芝罘区民政局婚姻登记处、莱山区民政局婚姻登记处、牟平区民政局婚姻登记处 、开发区民政局婚姻登记处，均表示2020年2月2日，采用结婚登记预约受理的方式，为预约的当事人办理结婚登记。 想要这天办理结婚登记的当事人可以通过网上预约、电话预约、现场预约的方式提出办理登记申请。福山区民政局婚 姻登记处工作人员表示目前还没有接到通知，想要在2020年2月2日登记结婚的当事人，可在2月1日当天致电福山区民政局婚姻登记处咨询。

芝罘区民政局婚姻登记处：0535-6276370

莱山区民政局婚姻登记处：0535-6716016

牟平区民政局婚姻登记处：0535-3397651

开发区民政局婚姻登记处：0535-6113159

福山区民政局婚姻登记处：0535-6325409

潍坊市

全市准新人有意愿在2020年2月2日登记结婚的，可向男女任一方户口所在地的县级婚姻登记处申明登记意愿。

奎文区婚姻登记服务中心：0536-8262789

潍城区婚姻登记服务中心：0536-8339565

坊子区婚姻登记服务中心：0536-7667027

寒亭区婚姻登记服务中心：0536-7263327

青州市婚姻登记服务中心：0536-3889853

诸城市民政局婚姻登记处：0536-6565336

寿光市民政局婚姻登记处：0536-5258300

安丘市婚姻登记中心： 0536-4229717

昌邑市民政局婚姻登记中心： 0536-7119282

高密市民政局婚姻登记服务中心： 0536-5609325

临朐县民政局婚姻登记中心： 0536-3219130

昌乐县婚姻登记中心： 0536-6223129

潍坊高新区民政局婚姻登记处： 0536-8893907

潍坊峡山生态经济开发区公共事业局婚姻登记处： 0536-7737911

济宁市

济宁全市范围内的婚姻登记处均可在2月2日为提前预约登记的准新人办理婚姻登记业务。新人需提前通过网上预约、电话预约、现场预约等方式进行预约登记。如果选择电话预约或者现场预约，准新人们要在1月31日前预约户口所在地的婚姻登记处。

济宁市婚姻登记机关咨询电话

涉外：0537-2253869

高新区：0537-2253917

任城区：0537-2386560

兖州区：0537-3433321

曲阜市：0537-4463178

泗水县：0537-4252459

邹城市：0537-5253570

微山县：0537-8267700

鱼台县：0537-6250060

金乡县：0537-8712384

嘉祥县：0537-6861507

汶上县：0537-7295469

梁山县：0537-7361296

威海市

各婚姻登记处将在2020年2月2日(周日)开放婚姻登记办理工作。想要办理婚姻登记业务的新人即日起至1月23日需要提前到常住户口所在地的婚姻登记机关办理预约登记，由男女双方共同预约办理。需要注意的是，环翠区婚姻登记处预约办理时间为1月13日至1月23日。

日照市

2月2日，日照市各婚姻登记处将增加周日延时服务，为通过预约婚姻登记的新人办理登记服务。有需求的新人可提前一周左右，通过现场预约、电话预约或者网上预约的方式进行服务预约，男女双方应当共同到一方当事人常住户口所在地的婚姻登记机关办理结婚登记。

东港区民政局婚姻登记处：0633-3221994

岚山区民政局婚姻登记处：0633-2628027

莒县民政局婚姻登记处：0633-6231877

五莲县民政局婚姻登记处：0633-5217029

日照经济技术开发区社会事业局婚姻登记处：0633-8351866

临沂市

临沂各县区民政局婚姻登记处在公历2020年2月2日(星期天)为群众办理婚姻登记业务。

各县(市、区)婚姻登记处咨询电话：

兰山济南路与孝河路交会处齐鲁园广场西门七楼 0539-8020517

罗庄湖东路与教育巷交会国防教育中心8楼 0539-7086919

河东东夷大街1号 0539-8381077

沂南历山路26号 0539-7379922

郯城郯西路99号 0539-6800612

沂水沂城街道沂博路693号华信国际大厦二楼C区(沂水县政务服务中心) 0539-2256864

兰陵会宝路与东升路交会处兰陵县政务服务中心三楼 0539-5235735

费县建设路487号 0539-5023715

平邑平邑县政务服务中心一楼 0539-4226806

莒南莒南县县城黄海西路16号 0539-7318800

蒙阴蒙山路123号 0539-5976795

临沭临沭县政务服务中心七楼 0539-6213076

高新区 高新区科技大道与龙湖路交会高新区政务服务中心3楼303室 0539-7109159

德州市

德城区民政局将在2020年2月2日加班登记，届时将提前开门，保证新人及时领证，电话：0534-2329385。

宁津县婚姻登记处2月2日正常上班。

平原县民政局婚姻登记处为广大群众提供预约登记服务。申请结婚登记的当事人可在1月7日—2月1日之间，上班时间提前到登记处进行现场预约，也可以电话预约。

办理时间：2月2日上午(9:00—11:00)时。婚姻登记处电话：0534—4218758。

聊城市

1月6日上午，聊城市民政局当天开放预约办理结婚登记，新人需要在1月31日前预约办理。

滨州市

2020年2月2日，全市婚姻登记机关可为通过预约登记的当事人办理婚姻登记。

预约方式有网上预约、电话预约和现场预约等方式，对于部分搬迁至政务大厅的部分县区婚姻登记处，也将提前与相关部门协调，争取支持配合，保障在这一天婚姻登记处工作的顺利举行。

预约电话：

滨城区民政局婚姻登记处：0543-8330270

沾化区民政局婚姻登记处：0543-7321670

邹平市民政局婚姻登记服务中心：0543-4267508

惠民县民政局婚姻登记服务中心：0543-5321523

阳信县民政局婚姻登记处：0543-8262069

无棣县民政局婚姻登记处：0543-6336589

博兴县民政局婚姻登记处：0543-2260321

开发区婚姻登记处：0543-5080055

高新区婚姻登记巡回点：0543-3160215

菏泽市

菏泽市牡丹区目前确定可以现场办理，无需预约，咨询电话：0530-5070016，工作时间是上午9：00—11：30，提醒新人们早点前去现场。菏泽市其他登记处尚不确定。

据了解，最稳妥便捷的方式是现场预约，计划于2月2日办理结婚登记的双方当事人，持双方有效户口簿、有效身份证原件等相关资料提前在国家法定工作日到婚姻登记处现场进行证件审核。如果选择网上预约，则可以登录山东省民政厅官方网站，点击“为民服务”，进入后选择“婚姻登记网上预约”，根据提示进行操作。

快牵起你爱的人

2020.02.02约起来吧~

农历转公历

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