农历转换算法 农历转换公式

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

公历转换农历算法

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

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

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

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

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

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

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

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

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

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

日期转换为农历日期的算法是什么 excel公历转农历方法一：使用text函数 A列是公历日期，我们在B1单元格输入公式：=TEXT(A1,[$-]yyyy年m月&IF(LEN(--TEXT(A1,[$-]dd))=1,初,)&d)，下拉完成公历转农历。

excel如何农历转换阳历公式 比如今天是2023年9月2日，用以下公式就可以得出农历七月二十四：

假如把公式改成：=MID(甲乙丙丁戊己庚辛壬癸,MOD(TEXT(A2,[$-]e)-4,10)+1,1)&MID(子丑寅卯辰巳午未申酉戌亥,MOD(TEXT(A2,[$-]e)-4,12)+1,1)&年&TEXT(A2,[$-][DBNum1]m月)&TEXT(A2,IF(--TEXT(A2,[$-]d)=10,初十,IF(--TEXT(A2,[$-]d)>10,[$-][DBNum1]d,初[$-][DBNum1]d)))，那就更像农历表示法了，不过因为农历每年开始日期都不一样，所以函数很难达到十分精确的结果，只能是将就着用。

实现阳历转阴历算法 下面是一个关于VB的农历算法

'前12个字节代表1-12月为大月或是小月，1为大月30天，0为小月29天；

'第13位为闰月的情况，1为大月30天，0为小月29天；

'第14位为闰月的月份，如果不是闰月为0，否则给出月份，10、11、12分别用A、B、C来表示，即使用16进制；

'最后4位为当年家农历新年-即农历1月1日所在公历的日期，如0131代表1月31日。

Function GetChgDate(ByVal vDate As String, ByVal ChgType As 转换方式) As String

Dim vvdate() As String = Split(vDate, -)

If vvdate(0) > 2023 Or vvdate(0) >

农历与阳历如何计算 阴历阳历转换计算公式

1、阳历日期推算阴历日期的方法：

前已述及阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月为十六日），以月晦为二十九日（大月为三十日）。

如要知道1984年6月8日是阴历几日？可以利用公式推算阴历日期： 设：公元年数－1977（或1901）＝4Q＋R

则：阴历日期=14Q+10.6(R+1)+年内日期序数-29.5n （注:式中Q、R、n均为自然数，R>

在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......>>

如何把农历转成阳历，求算法 int lunarInfo[]={/*阴历数据*/

0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x16554,0x056a0,0x09ad0,0x055d2,

0x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977,

0x04970,0x0a4b0,0x0b4b5,0x06a50,0x06d40,0x1ab54,0x02b60,0x09570,0x052f2,0x04970,

0x06566,0x0d4a0,0x0ea50,0x06e95,0x05ad0,0x02b60,0x186e3,0x092e0,0x1c8d7,0x0c950,

0x0d4a0,0x1d8a6,0x0b550,0x056a0,0x1a5b4,0x025d0,0x092d0,0x0d2b2,0x0a950,0x0b557,

0x06ca0,0x0b550,0x15355,0x04da0,0x0a5d0,0x14573,0x052d0,0x0a9a8,0x0e950,0x06aa0,

0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,

0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b5a0,0x195a6,

0x095b0,0x049b0,0x0a974,0x0a4b0,0x0b27a,0x06a50,0x06d40,0x0af46,0x0ab60,0x09570,

0x04af5,0x04970,0x064b0,0x074a3,0x0ea50,0x06b58,0x055c0,0x0ab60,0x096d5,0x092e0,

0x0c960,0x0d954,0x0d4a0,0x0da50,0x07552,0x056a0,0x0abb7,0x025d0,0x092d0,0x0cab5,

0x0a950,0x0b4a0,0x0baa4,0x0ad50,0x055d9,0x04ba0,0x0a5b0,0x15176,0x052b0,0x0a930,

0x07954,0x06aa0,0x0ad50,0x05b52,0x04b60,0x0a6e6,0x0a4e0,0x0d260,0x0ea65,0x0d530,

0x05aa0,0x076a3,0x096d0,0x04bd7,0x04ad0,0x0a4d0,0x1d0b6,0x0d250,0x0d520,0x0dd45,

0x0b5a0,0x056d0,0x055b2,0x049b0,0x0a577,0x0a4b0,0x0aa50,0x1b255,0x06d20,0x0ada0};

int solarMonth[]={31,28,31,30,31,30,31,31,30,31,30,31};

---------------------------------------------------------------------------

int lYearDays(int y) {

int i, sum = 348;

for(i=0x8000; i>0x8; i>>=1) sum += (lunarInfo[y-190......>>

农历国历转换

怎样国历转换农历 方法 每月初一叫做朔，最后一日叫做晦。农历十五或十六或十七叫做望，望的后一天叫做既望 所以每年春节的大年三十并不在同一天。农历的基础是「回归年」和「朔望月」。「回归年」是太阳接连两次通过春分点所需的时间，即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 农历转换公历对照表 是公历1945年4月29日 星期日

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

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

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

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

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

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

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

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

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

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

日期里的农历公历阴历阳历怎么换算？ 百度一下 太复杂了 自己研究

怎样用公历年换算出农历天干地支 我国古代是用天干地支来纪年的，现代社会已很少使用。一来现今社会已经离不开国际化，沿用老的历法已经不现实；二来天干地支在民间多用于算命测字，带用浓重的迷信色彩，实在与科技现代社会格格不入。但一个优秀的民族是不会抛弃她的历史和文化的。历史事件、诗词、字画等中，又出现大量天干地支纪年法，对他的了解、熟悉还是很有必要的。以下，让我们稍微了解一下： 一.天干地支之由来 天干地支简称为“干支” 天干地支相当于树干和树叶。它们是一个互相依存，互相配合的整体。中国古代以天为“主”，以地为“从”。“天”和“干”互联叫做“天干”；“地”和“支”互联叫做“地支”，合起来就是“天干地支”。 天干有十个字， 总称为“十天干”。 地支有十二个字， 总称为“十二地支”。 天干地支原始意义，有这样有趣的说法： 1、天干 （甲）象草林破土而萌，阳在内而被阴包裹。又有认为，甲者铠甲也，把万物冲破其甲而突出了。 （乙）草木初生，枝叶柔软屈曲伸长。乙者轧也。 （丙）丙，炳也，如赫赫太阳，炎炎火光，万物皆炳然著见而明。 （丁）壮也，草木成长壮实，好比人的成丁。 （戊）茂也，象征大地草木茂盛。 （己）起也，纪也，万物仰屈而起，有形可纪。 （庚）更也，秋收而待来春。 （辛）金味辛，物成而后有味。又有认为，辛者新也，万物肃然更改，秀实新成。 （壬）妊也，阳气潜伏地中，万物怀妊。 （癸）揆也，万物闭藏，怀妊地下，揆然明芽。 2、地支 （子）孽也，草木生子，吸土中水分而出，为一阳萌的开始。 （丑）纽也，草木在土中出芽，屈曲着将要冒出地面。 （寅）演也，津也，寒土中屈曲的草木，迎着春阳从地面伸展。 （卯）茂也，日照东方，万物滋茂。 （辰）震也，伸也，万物震起而生，阳气生发已经过半。 （巳）起也，万物盛长而起，阴气消尽，纯阳无阴。 （午）仵也，万物丰满长大，阳起充盛，阴起开始萌生。 （未）味也，果实成熟而有滋味。 （申）身也，物体都已长成。 （酉）老也，犹也，万物到这时都犹缩收敛。 （戌）灭也，草木凋零，生气灭绝。 （亥）劾也，阴气劾杀万物，到此已达极点。 天干地支据说其发明者是四五千年前上古时期的大挠氏。例如唐代刘恕在《通鉴外纪》中就引古书说：“（黄帝）其师大挠......始作甲子。”大挠作甲子虽是传说，但从殷商的帝王名字叫天乙（即成汤），外丙，仲壬，太甲等来看，干支的来历必早于殷代，即在三千五百年之前便已出现了。 起先，我们祖先仅是用天干来记日，因为每月天数是以日进位的；用地支来记月，因为一年十位个月，正好用十位地支来相配。可是随之不久，人们感到单用天干记日，每个月里仍然会有三天同一干，所以，便用一个天干和一个地支分别依次搭配起来的办法来记日期，如《尚书。顾命》就有“惟四月哉生魄。王不择。甲子，王乃洮颂水，相被冕服，凭玉几”的记载，意思是说，四月初，王的身体很不舒服。甲子这一天，王才沐发洗脸，太仆为王穿上礼服，王依在玉几上坐着。后来，干支记日的办法就被渐渐引进了记年，记月和记时了。 六十花甲子 中国农历采取天干地支作为计算年，月，日，时的方法，就是把每一个天干和地支按照一定的顺序而不重复地搭配起来，用来作为纪年，纪月，纪日，纪时的代号。把“天干”中的一个字摆在前面，后面配上“地支”中的一个字，这样就构成一对干支。如果“天干”以“甲”字开始，“地支”以“子”字开始顺序组合，就可以得到： 1.甲子 2.乙丑 3.丙寅 4.丁卯 5. 戊辰 6.已巳 7.庚午 8.辛未 9.壬申 10.癸酉 11. 甲戍 12.乙亥 13.丙子 14.丁丑 15.戊......>>

求农历公历转换算法 编程不太懂

传下来 口诀

乘五除四九加日

双月间隔三十天。

一二自加整少一，

三五七八十尾前。

具体的算法你可网上找下资料 百度上很多的 我就不多累赘了的

公历农历转换 回历、公历、农历的换算

（128 × 365＋31）日÷ 128年＝ 365．日/年

可见共置闰精度远高于现代的公历。

2．换算中一日误差之订正

《历法丛谈》以回历1387年为例，求算合公历之年月日。

解1：1387 × 0．＋621．5774＝1967．年

0．年 × 365．2422日＝101．569日公历累计日数为101．57日可视为4月11日或4月12日。究竟是哪一日，当依两历在公历4月11日或12日间所具有同一的星期序数以订正。

依回历岁首星期序数计算公式：

[（138－1）×131＋164] ÷30＝6057，余20

6057÷7＝865，余 2

故回历1387年元旦为星期2。（表）

按公历自1583年元旦（星期六）至1967年4月11日，共历：

1967－1583＝384年，在这384年中依格列高利历四年一闰，百年不闰，四百年加一闰日的规则共历93个闰日，又1967年元旦后一日起至4月11日又需加 100日，则

（384 × 365＋93＋100＋6）÷ 7＝＋7＝2001，余 2余2即星期2，故回历1387年元旦在公历1967年4月11日。

因公历计算星期日数采用数据较多，计算时难免有所遗漏，现引人公历日期与星期推算表阿），供参考。

先在本表年份表前二位数字栏目中，查到19二字所在的位置；

再在年份表后二位数字栏目中查到67二字所在位置，自19二字处平行右移，67二字处垂直下移，二者在英文大写字母栏目中相交于字母G处；

再自月份表栏目中查到4月，自4月所在位置平行左移，查到G在4月栏目所在位置；

自日期栏目查到11日所在位置，自此位置平行右移，使与4月份栏目G在星期表相交处知为星期二，结果与回历计算所得相同。故知回历 1387年元旦确为公历1967年4月11日，而不是12日。

在换算中所得公历日数常多于31日，甚至常在200―300日或更多，需要将此数化为该年的月日时，可用下列两表。

表3 公历月份及其累计日数

三 公历换算为回历

将回历换算为公历的算式移项，整理，即可得到公历换算为国历的算式

（公历纪年一621．5691）÷0．9702＝回历年月日（儒略历）……………………………………………（5）

（公历纪年一621．5774）÷0．＝回历年月日（格氏历）…………………………………………（6）

无论回历换算为公历或相反，大体都有一日之差，以星期序数订正时，回历换算为公历，以回历的星期序数为准；相反，以公历的星期序数为准。

四 国历或公历换算为中国农历

1．回历换算为农历

仅管中国农历各年在年内月数日数都不是一个相对的稳定值，给回历与公历换算为农历上带来较多的困难，但仍然可以换算。中国农历为阴阳合历，在月份上与回历同属太阴历，惟回历每月以见新月为一月之始，其日约迟于农历合朔（初一日）1―2日乃至3日，因此只要查清二者在月份上关系，便可将回历换算为中国农历。马以愚先生称：“......>>

将公历转换成农历的换算公式公式是什么?

A2输入西历日期

农历公闷孝式：="农历"&TEXT(A2,"[$-]m月d日")

或A2自行罩扰订格式为----[$-]农历m月d日

农历闰月月份会加1，如润7月会显示8月，8月档旦顺延为9月….，12月顺延为13月。

以上适用於Excel2023版以上

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