阴历和阳历换算
发布网友
发布时间：2022-12-30 21:27
共1个回答
热心网友
时间：2023-11-22 17:23
公历和农历是如何换算的？ 每月初一叫做朔，最后一日叫做晦。农历十五或十六或十七叫做望，望的后一天叫做既望 所以每年春节的大年三十并不在同一天。农历的基础是「回归年」和「朔望月」。「回归年」是太阳接连两次通过春分点所需的时间，即365.2422日(365日5小时48分46秒)。「朔望月」是月球接连两次朔(新月)或两次望(满月)相隔的时间，即29.5306日(29日12小时44分3秒)。
由于12个「朔望月」只有354.3672日，跟「回归年」的365.2422日相差超过10日，把相差累积起来便成为闰月。早在公元前五、六百年的春秋时代，中国历法便采用十九年七个闰月的安排
但中国的农历和 *** 的农历以及韩国的农历计算方法不一样，一般要相差一二天。
阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月为十六日），以月晦为二十 九日（大月为三十日）。然而目前记时通常用阳历日期表达，如欲将阳历日期换算成阴历日期可以用以下两种方法：其一是查《新编万年历》，如查1984年6月8日是阴历几日？翻开万年历6月10日是阴历十一，则逆推6月8日是阴历初九。其二可以利用公式推算阴历日期：
设：公元年数－1977（或1901）＝4Q＋R
则：阴历日期=14Q+10.6(R+1)+年内日期序数-29.5n
（注:式中Q、R、n均为自然数，R 农历和阳历转换有什么规律啊? 没有。阳历是以地球围绕太阳公转一周的时间(即:365天5小时48分46秒,也就是365.2422天)为一年，为历法方便定为365天(称为平年)，舍去0.2骸22天，舍去的0.2422天，每4年累加为0.9688天，将近一天。因此，每四年加一天，既加在能被4整除的年份上，这一年为366天(称为闰年,即:2月份为29天)，每四百年少3.12天，也就是少三个闰年，所以逢百年时，既要被4整除也要被400整除才为闰年。也就是我们通常所说的： 四年一闰，百年不闰，四百年再闰。
农历则是以月亮围绕地球公转一周的时间(即:平均29天12小时44分)为一个月，12个月算一年，为354天。每三年有一个闰月年，闰月年是383天或384天。19年7个闰月年。一般情况19年阳历和阴历（19被数年）能碰到一起或只差一天。
农历转换成公历的计算公式？ 因为公历（现在用的是格里历，以前还曾用儒列历）和中国农历都不是严格按一个公式计算得到的，所以两个历法没有直接的公式。
试图用一个简单的公式，而不利用许多像万年历一样的数据（尽管可以简化），就达到公农历转换的目的，这是不可能的。我们能见到的所有公农历转换的软件，都存有多少不等的一些年份的历法数据。
这些数据之中，最重要的是农历的每月天数。因为农历是阴阳历，阴历部分（按月相编的部分）决定月日，阳历部分（按太阳高度编的部分）就是节气。节气基本上是与公历直接对应的，可以较容易的推算；但月相周期与地球公转的关系相对复杂，一般都需要天文观测数据授时，所以农历每月是大月还是小月没有简单的公式。
至于公历和农历的置闰，倒都有一定的方式推算，并不困难。
如果只是天文数据，其实都还是可以算的――因为天文周期十分稳定，我们只要严格地按天文周期推算就可以了。可是还有更为麻烦的一点，就是公历和农历这些历法，并不是完全严格地按照天文上的实际周期进行的，还有许多人为的因素。最著名的就是罗马皇帝几次修改2、8等月份长短，以及儒列历中因计算不准确而人为地去掉了十天等事。中国农历也有因为古代天文观测不准确造成的 *** 颁布的历法与天象不吻合的（我们不能苛求古人观测的精度）。所以这两部历法都是与一个时期社会有关的东西，也就没有一定的规律可循了。
阳历19740820转换阴历是多少 (公历)： 1974年 8月 20日
(农历)： 甲寅年 七月 初三
求农历公历转换算法 编程不太懂
传下来 口诀
乘五除四九加日
双月间隔三十天。
一二自加整少一，
三五七八十尾前。
具体的算法你可网上找下资料 百度上很多的 我就不多累赘了的
阴历19970205换算成阳历是多少？ 3.13
excel如何农历转换阳历公式 比如今天是2010年9月2日，用以下公式就可以得出农历七月二十四：
虽然在遇到闰月时，显示结果有点差强人意，如下图中，2010年2月9日的农历应是十二月二十六，但因为那年有个闰五月，就无辜多出来一个月了。不过总比编代码要快捷多了吧，而且闰月也不是天天有。
假如把公式改成：=MID(甲乙丙丁戊己庚辛壬癸,MOD(TEXT(A2,[$-130000]e)-4,10)+1,1)&MID(子丑寅卯辰巳午未申酉戌亥,MOD(TEXT(A2,[$-130000]e)-4,12)+1,1)&年&TEXT(A2,[$-130000][DBNum1]m月)&TEXT(A2,IF(--TEXT(A2,[$-130000]d)=10,初十,IF(--TEXT(A2,[$-130000]d)>10,[$-130000][DBNum1]d,初[$-130000][DBNum1]d)))，那就更像农历表示法了，不过因为农历每年开始日期都不一样，所以函数很难达到十分精确的结果，只能是将就着用。
在EXCEL中怎样把公历转换成农历 Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)
Dim curTime, curYear, curMonth, curDay, curWeekday
Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr
Dim i, m, n, k, isEnd, bit, TheDate
Private Sub Form_Load()
'获取当前系统时间
curTime = Now()
'星期名
WeekName(0) = *
WeekName(1) = 星期日
WeekName(2) = 星期一
WeekName(3) = 星期二
WeekName(4) = 星期三
WeekName(5) = 星期四
WeekName(6) = 星期五
WeekName(7) = 星期六
'天干名称
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) = &q......>>
