公历转换农历转换器 公历转换农历公式

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

EXCEL公历转农历公式?

excel内置函数是无法完美实现的，至少闰月的情况会有问题。

只能考虑用VBA编程的方式，自定义一个函数。

图一：效果展示图：

效果展示图

图二：步骤示意思图：

步骤示意图

图三：完整代码图：

【步骤】：

1、如果文件是.xlsx格式，须另存为 .xlsm格式 即启用宏的工作簿。

2、按Alt+F11打开代码编辑器，

3、点“插入”--“模块”，

4、在左侧栏中双击模块，

5、在右侧的编辑区中粘贴代码，

6、检查代码是否报错变红，

7、关闭代码编辑器。

【重要说明】：

说明1、从这里复制的代码，行与行之间会被百度额外插入空白行，如果导致代码报错变红，你就把行与行之间的空白行删掉即可。

说明2、此代码也不是万能的，它有日期范围的限制，只能转化 1921年的正月初一 至 2100年的腊月三十 这个范围，对应的公历范围是 1921/2/8 至 2100/2/8

说明3、在表格中使用公式时，可以直接在公式中写明一个日期，也可以引用某单元格中的日期。

例1，转化具体的日期：

=iNlStr(DATE(2023,8,18))

例2，永远转化今天当天的日期：

=iNlStr(TODAY())

例3，从单元格引用日期进行侍则转化：

=iNlStr(A1)

Option Explicit

Public tf As Boolean '

Public sZhouJ As Variant '星期数组

Public sTiGan As Variant '十个天干数组

Public sDiZhi As Variant '十二地支数组

Public sSXiao As Variant '十二生肖数组

Public sNlMon As Variant '农历月份数组

Public sNlDay As Variant '农历日份数组

Public sNlShu As Variant '农历数据数组

Sub 加载数组们()

sZhouJ = Split("*/一/二/三/四/五/六/日", "/") '星期数组

sTiGan = Split("甲/乙/丙/丁/戊/己/庚/辛/壬/癸", "/") '天干数组

sDiZhi = Split("子/丑/寅/卯/辰/巳/午/未/申/酉/戌/亥", "/") '地支数组

sSXiao = Split("鼠或谈含/牛/虎/兔/龙/蛇/马/羊/猴/鸡/狗/猪", "/") '生肖数组

sNlMon = Split("*/正月/二月/三月/四月/五月/六月/七月/八月/九月/十月/冬月/腊月", "/") '月份数组

sNlDay = Split( _

"*/初一/初二/初三/初四/初五/初六/初七/初八/初九/初十" _

衫笑 & "/十一/十二/十三/十四/十五/十六/十七/十八/十九/二十" _

& "/廿一/廿二/廿三/廿四/廿五/廿六/廿七/廿八/廿九/三十", "/") '日份数组

sNlShu = Split( _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"//////////" & _

"////////", "/") '农历数据

tf = True '打标记,数组已加载

End Sub

Function iNlStr(iDate As Date) As String '公历转农历

If Not tf Then Call 加载数组们

Dim i%, t&, k%, m%, n%, ext%, bit&

'计算从1921-2-8(即1921年的正月初一)至目标日期的总天数

t = iDate - #2/8/1921# + 1

'计算农历年月日的数值

Do

If Val(sNlShu(m)) < 4095 Then k = 11 Else k = 12

n = k

Do

'获取sNlShu(m)的第n个二进制位的值

bit = Val(sNlShu(m))

For i = 1 To n

bit = bit \ 2

Next

bit = bit Mod 2

'计算农历天的数值

If t <= 29 + bit Then

ext = 1

Exit Do

End If

t = t - 29 - bit

n = n - 1

Loop Until n < 0

If ext Then Exit Do

m = m + 1

Loop Until False

'计算农历叁个数值

Dim cy%, cm%, cd%

cy = 1921 + m '农历年的数值

cm = k - n + 1 '农历月的数值

cd = t '农历日的数值

If k = 12 Then

Select Case Val(sNlShu(m)) \ 65536 + 1 '修正cm的数值

Case Is = cm

cm = 1 - cm

Case Is < cm

cm = cm - 1

End Select

End If

'计算汉化文本

Dim ar(1 To 5) As String

m = ((cy - 4) Mod 60) Mod 10 '天干索引值

n = ((cy - 4) Mod 60) Mod 12 '地支和生肖索引值

If cm < 1 Then ar(1) = "闰"

ar(1) = ar(1) & sNlMon(Abs(cm)) '农历月份

ar(2) = sNlDay(cd) '农历日份

ar(3) = sTiGan(m) & sDiZhi(n) '农历干支

ar(4) = sSXiao(n) '农历生肖

ar(5) = sZhouJ(Weekday(iDate, 2)) '星期汉字

'搭配输出结果(提示:数组ar(1 to 5)共5个元素，可根据需要自由搭配输出结果)

iNlStr = ar(3) & "年 生肖" & ar(4) & " " & ar(1) & ar(2) & " 周" & ar(5) '输出结果

End Function

农历转公历

Excel 中阳历日期如何转换成阴历日期？ 2023版的excel可用下面公式转换：

=TEXT(A1,[$-]yyyy年m月&IF(LEN(--TEXT(A1,[$-]dd))=1,初,)&d)

Excel里面农历转公历的函数公式应该是怎么样的呢 单元格输入公式：=TEXT(A1,[$-]yyyy年m月&IF(LEN(--TEXT(A1,[$-]dd))=1,初,)&d)，下拉完成公历转农历。

能帮到你的话希望能采纳一下，谢谢

农历转换公历对照表 是公历1945年4月29日 星期日

如何将农历转换为公历 是公肆运历11月13日。这日历上有，要问怎么换的，当然公历是固定的，1、3、5、7、8、10、12月都是31天，2月28天（每4年润一次月，像2023年够4整除，润2月29天），其余的都是30天。

对于农历，它实质是阴历，沿用的是太阴历，这是一门很复杂的天文学知识。它包括24节气。

记住阳历是：1、3、5、7、8、10、腊，31天都不差，其余都是30天，除了2月28.

若是闰月2月29天，只多一天。

农历转换成公历的计算公式？ 因为公历（现在用的是格里历，以前还曾用儒列历）和中国农历都不是严格按一个公式计算得到的，所以两个历法没有直接的公式。

试图用一个简单的公式，而不利用许多像万年历一样的数据（尽管可以简化），就达到公农历转换的目的，这是不可能的。我们能见到的所有公农历转换的软件，都存有多少不等的一些年份的历法数据。

这些数据之中，最重要的是农历的每月天数。因为农历是阴阳历，阴历部分（按月相编的部分）决定月日，阳历部分（按太阳高度编的部分）就是节气。节气基本上是与公历直接对应的，可以较容易的推算；但月相周期与地球公转的关系相对复杂，一般都需要天文观测数据授时，所以农历每月是大月还是小月没有简单的公式。

至于公历和农历的置闰，倒都有一定的方式推算，并不困难。

如果只是天文数据，其实都还是可以算的――因为天文周期十分稳定，我们只要严格地按天文周期推算就可以了。可是还有更为麻烦的一点，就是公历和农历这些历法，并不是完全严格地按照天文上的实际周期进行的，还有许多人为的因素。最著名的就是罗马皇帝几次修改2、8等月份长短，以及儒列历中因计算不准确而人为地去掉了十天等事。中国农历也有因为古代天文观测不准确造成卜凯的 *** 颁布的历法与天象不吻合的（我们不能苛求古人观测的精度）。所以这两部历法都是与一个时期社会有关的东西，也就没有一定的规律可循了。

公历农历转换 公历，它是国际通用的。阳历 以地球绕太阳转一圈的时间定做一年，共3 65天5小时48分46秒。平年只计365天这个 整数，不计尾数;一年分做12个月，大月31 天，小月30天，二月只有28天。四年的尾 数积累起来共1天光景，加在第四年的二月 里，这一年叫做闰年。所以闰年的二月有2 9天。阴历以月亮圆缺一次的时间定做一个 月，共29天半。为了算起来方便，大月定 做30天，小月29天，一年12个月中，大小 月大体上交替排列。阴历一年只有354天左 右，也没有平年闰年的差别。 阴历不考虑地球绕太阳的运行，因此使得 四季的变化在阴历上就没有固定的时间， 它不能反映季节，这是一个很大的缺点。 为了克服这个缺点，后来人们定了一个折 衷的历，就是所谓阴阳合历。现在我国还 在使用的夏历(也有人叫它农历或阴历)，就 是这种阴阳合历。它跟阴历一样，也以月 亮圆缺一次的时间定做一个月，也是大月3 0天，小月29天，可是它又用加闰月的办法 ，使得平均每年的天数跟阳历全年的天数 相接近，来调整四季。夏历约每过二、三 年型雹唤多一个闰月。“阴历”又名“太阴历”，系以 月球绕行地球一周为一月，再配合地球绕 日一周之时数为一年，实际上等于阴阳合 历，我国在民国元年前采用此历，为与现 行之历相对称，故名之曰“旧历”。一般人以 为阴历适合于农家，而名之日“农历”。

农历和公历是怎么转换的？（怎么算的？） 你是要口算还是要用笔算？

告诉你，这样子算不靠谱的，根本算不出来，涉及到的转换不是简单的几个公式能得出，相反，它的转换相当复杂。

如果有兴趣编写程序的，我可以提供转换函数库，调用一个函数就可以实现农历与公历的互转了。

目前我已经完美地实现了转换，如果需要，我可以提供。

电子表格中怎样将农历转换为公历 1、农历转换为公历，首先需要一个农历和公历的对照表

2、假设对照表的格式为：A列为农历，B列为公历。

3、此时可以用VLOOKUP函数进行转换，公式为：=VLO畅KUP(需要转换的农历日期,A:B,2,0)

4、特别注意：需要转换的农历日期必须与对照表中A列格式一致。

阴历转换阳历是 1977.12.10日，星期六

公历转农历公式,在EXCEL中怎样把公历转换成农历

提到公历转农历公式，大家都知道，有人问公历农历转换，另外，还有人想问将公历转换成农历的换算公式公式是什么，你知道这是怎么回事？其实农历转换成公历的计算公式，下面就一起来看看在EXCEL中怎样把公历转换成农历，希望能够帮助到大家！

公历转农历公式

原发布者:谭韬君Gonglizuannongli。

农历转换成公历的计算公式？

公历和农历是如何换算的？农历查询。

公历和农历之间是不能换算的，二者采用的计算方法不同，没有特殊关系可以查询，只能分别计算。excel农历转公历公式。

公历是阳历的一种，阳历就是以地球绕太阳公转的运动周期为基础而制定的历法。公历农历转换公式。

公历别称公元、西历、西元等，是一种源自于的纪年方法，由意大利医生兼哲学家Aloysius Lilius对儒略历加以而制成的亩庆吵一种历法。1582年，时任罗马教皇的格列高利十予以批准颁行，以诞生之年作为纪年的开始。公历转化农历简单公式。

公历是一种平均太阳历，只有回归年，不管朔。地球绕差信太阳一周的时间为365.2422天，因此，平均每4年便会少大约1天的时间。

公历转农历公式：公历农历转换

农历也是“历”，又称为夏历、阴历、旧历，是东亚传统历法之一。农历属于一种历，平均历月等于一个朔，但设置闰月以使平均历年为一个回归年，设置二十四节气以反映季节(太阳直射点的周年运动)的变化特征，所以又有阳历的成分。公历农历月份转换公式。

平年十二个月，大月三十天，小月二十九天，全年354天或355天。由于每年的天数比太阳年约差十一天，所以采用设置闰月的方法使这几年的平均日数尽。农历和公历换算的公式。

和阴历一样，在19年里中设置了7个闰月。不过和阴历不同的是，又根据太阳的位置，把一个太阳年分成二十四个节气，以利于农业种植等活动。纪年用天干地支搭配，六十年周而复始。这种历传创始于夏代，所以又称为夏历。也叫旧历。

这就导致了农历和阴历的起迅侍始月份不一样，阴历是以正月初一为一年的起点，而农历是按24节气来划分的，也就是说立春是农历的起点。公历换算农历公式。

阳历就是太阳历，是以地球绕太阳公转的运动周期为基础而制定的历法。一年12个月，这个“月”实际上与朔无关，月份、日期都与太阳在黄道上的位置较好地合，在一年中可以明显看出四季寒暖变化的情况。公历农历 公式。

阴历，又称太阴历，是以月球绕行地球一周为一个月，即以朔作为确定历月的基础的一种历法。农历转公历转换器。

因朔较之回归年易于观测，远古的历法几乎都历。但是朔的长度(29.5306日)为一个月的平均值，全年12个月，同回归年(365.2422日)相差约10日21时，所以，需要设置闰月，三年闰一个月，五年闰二个月，十九年闰七个月。公历农历转换。

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