阴阳历转换函数,农历和阳历的换算

本文目录一览：

• 1、阴阳历生日转换
• 2、农历转公历
• 3、农历转换公历对照表
• 4、excel阳历转阴历函数
• 5、阴历和阳历怎么换算？
• 6、农历和阳历的换算
• 7、excel里如何得到当天的农历日期？
• 8、公历农历转换公式
• 9、阳历公历转换
• 10、阴历和阳历生日转换器，阳历生日转换阴历生日

阴阳历生日转换

在EXCEl中阴阳历生日转换及提醒 一个阳历转阴历的自定义函数：
Public Function NongLi(Optional XX_DATE As Date)
Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)
Dim curTime, curYear, curMonth, curDay
Dim GongliStr, NongliStr, NongliDayStr
Dim i, m, n, k, isEnd, bit, TheDate
'获取当前系统时间
curTime = XX_DATE
'天干名称
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) = 狗
ShuXiang(11) = 猪
'农历日期名
DayName(0) = *
DayName(1) = 初一
DayName(2) = 初二
DayName(3) = 初三
DayName(4) = 初四
DayName(5) = 初五
DayName(6) = 初六&q......>>

阴历、阳历生日转换？？？ 农历1947年二月十二日＝阳历1947年03月04日
双鱼座2月19日-3月20日
双鱼座的人，内向害羞，有着浓厚的艺术气息。柔情似水，浪漫多情，天真烂漫，会有许多梦幻般的想法，只是有时显得不切实际。

阳历生日转换阴历生日 如果他今年7月9号过的是阳历生日，那就说明他是95年7月9号出生的；95年7月9号那天的阴历日期是六月十二；
今年的阴历六月十二那天的阳历日期是2014年7月8日；
今年他的阴历阳历生日仅差一天。

公历：1995年7月9日星期日巨蟹座
农历：乙亥年 六月 十二
干支：乙亥 癸未 辛丑
信息来源：华中农历网

公历：2014年7月8日星期二巨蟹座
农历：甲午年 六月 十二
干支：甲午 辛未 庚辰
信息来源：华中农历网

想知道农历生日如何转换成公历生日？ 85年农历9月2日生日公历是85年10月15日，星座是天秤座（9月23日―10月22日）公历85年9月2日，农历是85年7月18日，星座是处女座（8月23日―9月22日）
星座是按照公历来计算的

怎么把阳历生日转化为阴历生日？ 随便哪种万年历都有阴阳历转化的功能。你把年、月、日报一下，我能帮你。

农历生日换算成公历生日 从你提问看，你还不清楚阳历和阴历是怎么回事。阳历也叫公历就是1999年12月8日或是说2010年5月17日等，这个叫法就是公历（阳历）。农历（阴历）叫丙寅年几月初几，或是几月十几日，或是丁卯年等等，农历（阴历）讲究属性，属虎、属兔等。你身份证日期一般来讲是阳历生日，阳历生日是固定不变的。阴历是从最早天干地支的甲子年（第一年）开始算起的（第二年乙丑年、第三年丙寅年......推下去无穷循环），60年一轮回（转一圈再回到甲子年）。所以，每年你的农历生日都在变。你可以参照下面的日期推算你的星座。但是一定要弄清楚你的公历（阳历）生日。
白羊座3月21日-4月19日，金牛座4月20日-5月20日，双子座5月21日-6月21日，巨蟹座6月22日-7月22日，狮子座7月23日-8月22日，处女座8月23日-9月22日，天枰座9月23日-10月23日，天蝎座10月24日-11月22日，射手座11月23日-12月21日，摩羯座12月22日-1月19日，水瓶座1月20日-2月18日，双鱼座2月19日-3月20日。

农历的农历的生日怎么转成阳历 打开日历，转到你农历生日附近的日期，下面小字是农历大字是对应的阳历，找到你的阴历生日，对应的就是阳历生日。
一般阳历比阴历日期早一个月左右。

多少年能阴阳历同一天过生日? 19年
阴历中每月的天数，是根据月亮运动周期来确立的，实际上每月的平均天数是29.5306日，如果乘以12，一年只有354.3672天；而地球绕着太阳公转一个周期（回归年、阳历年）是365.2422天，这样阴历年1年的实际天数比阳历年少了10.875天，差不多是11天，19年就少了209天。
209天除以30是6.9666,也就是说，在19年中，阴历年比阳历年少了差不多7个月的时间。为使农历和阳历相差不太多，就必须把这7个月补上。
中国的农历实际上是一种典型的阴阳历―――是兼顾月亮绕地球的运动周期和地球绕太阳的运动周期而制定的―――是阴历与阳历相结合的历法，为了补上这7个月时间，人们采取在农历设置闰月的方法―――十九年七闰，即在农历十九年中，12个为平年，每1平年12个月；再加7个闰年(分别为第3、5、8、 11、14、17、19年)，每1闰年有13个月。
这样，19个阳历年的日数和19个农历年的日数差不多相等，因此，每逢19或19倍岁数生辰的时候，阳历生日和阴历生日就有机会在同一天出现了。

农历转公历

Excel 中阳历日期如何转换成阴历日期？ 2007版的excel可用下面公式转换：
=TEXT(A1,[$-130000]yyyy年m月&IF(LEN(--TEXT(A1,[$-130000]dd))=1,初,)&d)

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

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

如何将农历转换为公历 是公历11月13日。这日历上有，要问怎么换的，当然公历是固定的，1、3、5、7、8、10、12月都是31天，2月28天（每4年润一次月，像2008年够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列格式一致。

万年历的c语言程序代码包括节假日农历，农历转公历，公历农历查询某 /* 多格式万年历 1.问题 设计程序实现多规格打印万年历，要求每一横排打印x个月 整数x可取1,2,3,4,6五个选项 2.设计思路 设置两个数组：一维m数组存放月份的天数，如m(8)=31，即8月份为31天 二维d数组存放日号，如d(3,24)=11，即3月份第2个星期的星期4为11号 其中24分解为十位数字2与个位数字4，巧妙地利用二维数组存放了三维信息 输入年号y,m数组数据通过赋值完成。根据历法规定，平年二月份为28天； 若年号能被4整除且不被100整除，或能被400整除，该年为闰年，二月份为29天 则必须把m(2)改为29. 同时，根据历法，设y年元旦是星期w(取值0-6,0为星期日)，整数w的计算公式为 w={y+[(y-1)/4]-[(y-1)/100]+[(y-1)/400]}%7 []为取整。 元旦以后 ，每增加一天，w增1，当w=7时改为w=0即可。 设置三重循环i、j、k为d数组的d(i,j*10+k)赋值。i：1-12，表示月份号；j：1-60 表示每个月约定最多6个星期；k；0-6，表示星期k。从元旦的a=1开始，每赋一个元素， a增1，同时w=k+1。当w=7时，w=0(为星期日)。当a>m(i)时，终止第i月的赋值操作。 输入格式参数x(1,2,3,4,6)，设置4重循环控制规格打印： n循环，n：1-12/x，控制打印12/x段(每一段x个月)。、 j循环，j：1-6，控制打印每月的6个星期(6行)。 i循环，i：t--t+x-1,控制打印每行x个月(从第t个月至t+x-1月，t=x(n-1)+1). k循环，k：0-6，控制打印每个星期的7天。 */ #include #include void main() { int a,i,j,n,k,t,w,x,y,z; static int d[13][78]; int m[14]={0,31,28,31,30,31,30,31,31,30,31,30,31}; char wst[]=Sun Mon Tue Wed Thu Fri Sat; puts(Please enter the year: ); scanf(%d,&y); if(y%4==0&&y%100!=0||y%400==0)闰年的二月为29天 m[2]=29; w=(y+(y-1)/4-(y-1)/100+(y-1)/400)%7;计算y年元旦为星期w for(i=1;im[i]) break; } if(a>m[i]) break; } } puts......>>

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

农历转换公历对照表

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

电子表格中怎样将农历转换为公历 1、农历转换为公历，首先需要一个农历和公历的对照表
2、假设对照表的格式为：A列为农历，B列为公历。
3、此时可以用VLOOKUP函数进行转换，公式为：=VLO畅KUP(需要转换的农历日期,A:B,2,0)
4、特别注意：需要转换的农历日期必须与对照表中A列格式一致。

求农历公历的excel对照表。 10分 如果数据在A1单元格，在B1单元格中输入以下公式
=TEXT(A1,[$-130000]yyyy年m月&IF(LEN(--TEXT(A1,[$-130000]dd))=1,初,)&d)

详见附图

公历与农历日期对照表 百度搜索“万年历”即可。

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)))，那就更像农历表示法了，不过因为农历每年开始日期都不一样，所以函数很难达到十分精确的结果，只能是将就着用。

如何将表格中的农历日期，转换成公历 2007版的excel可用下面公式转换：=TEXT(A1,[$-130000]yyyy年m月&IF(LEN(--TEXT(A1,[$-130000]dd))=1,初,)&d)

新历农历对照表 万年历换算――阴历阳历转换、公历农历对照表
提供万年历换算查询――智能转换阴历阳历、公历农历对照表！可以同时显示公历、农历、节气、国际……
万年历- 公历农历阴历转换-皇历对照查询- 节气- 干支- 生肖
万年历,农历转换,阴历查询,皇历对照查询,节气,干支,生肖,公历 万年历―阴历(农历)、节气、干支查询 ←【加入收藏夹】 万年历―阴历(农历)、节气、干支查询 0000
阳历与阴历对照阴历阳历对照表照表
本地时间: 中国, 国际换日线, 萨摩亚, 夏威夷, 阿拉斯加, 太平洋, 美国山区, 美加山区, 加拿大中部, 墨西哥, 美加中部, 南美洲太平洋, 美加东部, 美东, 南美洲西部
万年历查询
阳历中红色/绿色表示节假日，农历中绿色表示为24节气日，红色表示为传统节日，蓝色则表示为公众节假日 你的浏览器无法执行此程序。 此程序在IE4 以后的版本才能执行!
阴历阳历对照表
google/...0

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

怎么把农历转换为阳历？ 20分 每月初一叫做朔，最后一日叫做晦。农历十五或十六或十七叫做望，望的后一天叫做既望 所以每年春节的大年三十并不在同一天。农历的基础是「回归年」和「朔望月」。「回归年」是太阳接连两次通过春分点所需的时间，即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 阳历19740820转换阴历是多少 (公历)： 1974年 8月 20日
(农历)： 甲寅年 七月 初三

excel阳历转阴历函数

在阴历中输入公式=TEXT（A2,"[$-130000]yyyy-m-d"）。
注：A2为阳历日期

阴历和阳历怎么换算？

农历与阳历如何计算
阴历阳历转换计算公式
1、阳历日期推算阴历日期的方法：
前已述及阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月为十六日），以月晦为二十九日（大月为三十日）。
如要知道1984年6月8日是阴历几日？可以利用公式推算阴历日期： 设：公元年数－1977（或1901）＝4Q＋R

则：阴历日期=14Q+10.6(R+1)+年内日期序数-29.5n （注:式中Q、R、n均为自然数，R<4） 例：1994年5月7日的阴历日期为： 1994－1977＝17＝4×4＋1
故：Q＝4，R＝1 则：5月7日的阴历日期为： 14×4+10.6(1+1)+(31+28+31+31+7)-29.5n =204.2- 29.5n
然后用29.5去除204.2得商数6......27.2，6即是n值，余数27即是阴历二十七日 2．公历换算为农历
二十四节气在黄道上的位置是固定的，但各年有平年和闰年之分，就使得回归年天数与实际天数不等，每年在日历上可差一天。这样可以将阴历经过任意整回归年在现在的日历上查到阳历（阳历一年相当阴历的月数为 365．2422/29．530588＝12．36827个月）。例如，可先在1995年的日历上查得与（该年）阴历对应的阳历日期，这样就找到了临时落脚点，也就是找到了阴阳互换的关键。例如，可先以阴历四月初一（日）为引数，在1995年日历上查到对应的阳历为4月30日。由于已经计算出经过的月数，将经过的月数的尾数（小数）化为日，加在4月30日上，就得到经过（1995－1070）整年数的阳历日期，也就是起始阴历日期对应的阳历日期，即得到了待查的日期为4月30日加上0．64957×29．530588得到（1070年）5月19．1821840日。这样就得到了所给例子的阴阳历日期换算结果……”。 0．64957月的由来，
（1995－1070）×12．36827＝11440．64957月
已知依泽公生于梁龙德二年（922）六月二十一日，依下表提供的2099年各月初一日的公历月日数，可以算出龙德二年六月二十一日的公历月日数 公元2099年农历各月初一日的公历月日
（2099－922）× 12．36827＝1455．45379月
余数为 0．45379月 × 29．530588日＝13．4O日
因2099年五月初一日（包括该年闯二月）在公历6月19日，加上计算所得的13日为龙德二年六月初一日的公历月日，即该年7月2日，则该年农历六月二十一日为该年7月22日。
3．计算结果的订正
实际上上列公历换算为农历时常有较大的误差，如熙宁三年四月初一日为公历1070年5月13日，而不是5月19日。通过中国历法所用的于支记日法求算所用两历的干支，对所求结果加以订正。
如，马依泽公生于回历310年3月20日，自回历历元起算共历日数为： 自回历元旦至其3月20日，共历79日。
自回历元年元旦至309年元旦，共历113个闰年196个平年。又回历历元在公历622年7月16日，已知该日的干支序数为50，癸丑日，减1（因自甲子起算），余49应加入下列算式中，
（309 × 354＋113＋79＋49）÷60＝1827．116667 ......
阴历怎么换算阳历？
每月初一叫做朔，最后一日叫做晦。农历十五或十六或十七叫做望，望的后一天叫做既望 所以每年春节的大年三十并不在同一天。农历的基础是「回归年」和「朔望月」。「回归年」是太阳接连两次通过春分点所需的时间，即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<4） 例：1994年5月7日的阴历日期为： 1994－1977＝17＝4×4＋1 故：Q＝4，R＝1 则：5月7日的阴历日期为： 14×4+10.6(1+1)+(31+28+31+30+7)-29.5n =204.2- 29.5n 然后用29.5去除204.2得商数6......27.2，6即是n值，余数27即是阴历二十七日。 hcsz.myzhongsou/hy/lhy/time_detail.asp
农历和公历是怎么转换的？（怎么算的？）
你是要口算还是要用笔算？
告诉你，这样子算不靠谱的，根本算不出来，涉及到的转换不是简单的几个公式能得出，相反，它的转换相当复杂。
如果有兴趣编写程序的，我可以提供转换函数库，调用一个函数就可以实现农历与公历的互转了。
目前我已经完美地实现了转换，如果需要，我可以提供。
请问知道阳历怎么计算阴历
1、没有计算方法，只能一天一天排下来。因为农历不象阳历那样固定一年大月就是1、3、5、7、8、10、12等12个月，它经常会出现润月，而这个润月又不是固定的，所以没有计算方法
2、黄帝内经中的月份是农历三海
3、现行阳历即格里历，又译国瑞历、额我略历、格列高利历、格里高利历，称公元。是由意大利医生兼哲学家里利乌斯（Aloysius Lilius）改革儒略历制定的历法，由教皇格列高利十三世在1582年颁行。
日期里的农历公历阴历阳历怎么换算？
百度一下 太复杂了 自己研究
农历和阳历转换有什么规律啊?
没有。阳历是以地球围绕太阳公转一周的时间(即: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被数年）能碰到一起或只差一天。
阴历和阳历与公历和农历有什么关系，时间上是怎么算的？
简单来说：阳历是按太阳算的，地球绕太阳一圈是365天六小时，农历（阴历）就是月亮了，（如：每个月十五月亮都是圆的）绕太阳一周是355天，农历一般比阳历慢一个月左右，由于农历每年比阳历少了约十天，所以农历走的快，这样的话一年快十天，十年就是一百天了，为了达到阴阳历平衡，所以嘛农历就会隔几年出现一个闰月，就这样每六十年，太阳月亮地球就会回到原来的起点，干支计年称一个“甲子”所以每隔六十年，农历和阳历就又对上号了，其实万年历只要有六十年就够了。
农历新历怎么计算?
你说的新历即公历，也称阳历。是以地球绕太阳一周的时间定为一年，共365天零5小时多近6小时，平年只算365天。那多出的5小时多近6小时，平均约每隔4年加一天到2月份，所以有时公历的2月就有29天。
而你说的农历即阴历，也称夏历。以月亮圆缺一次的时间为一个月，每月29天半。一年约为355天，大月30天，小月29天。由于农历一年的天数与地球年（公历）相差约11日左右，所以约每3年要置一闰月，每19年要置7个闰月，使得平均每年的天数跟地球年（公历）全年的天数相接近，来调整四季。具体闰哪个月，则要视节气情况灵活而定，如今年便是闰5月。
正由于公历和农历的计算方法不同使每年的天数不同，而每年的第一天的起始时间也不同，所以使公历和农历的月份和日期不同步，大致相差一个月左右。
因为农历是我国历史上一直采用的历法，所以我国绝大多数的地方都是以出身时的农历来确定人的生日，这也是一种民族习惯。
但由于公历计时准确且方便，因此世界上大多数国家都采用公历，我国也早在辛亥革命后的1912年正式采用公历。所以在正式的场合出身年月都是用公历，如身份证、档案记录、履历表等等。
你会查万年历，了解了以上的情况后就容易懂了。再告诉你一个很简单的方法看万年历，一般在上面用 *** 数字标示的是公历的日期，在 *** 数字下面用中文数字标示的就是农历的日期。
如你说的1991年4月7日出生的：
1、如果这是公历的日期，那万年历上对应的 *** 数字4月7日下面的中文数字二月二十三就是你农历的生日。
2、如果这是农历的日期，那万年历上对应的中文数字四月初七上面的 *** 数字5月20日就是你公历的生日。

农历和阳历的换算

农历和公历是怎么转换的？（怎么算的？） 你是要口算还是要用笔算？
告诉你，这样子算不靠谱的，根本算不出来，涉及到的转换不是简单的几个公式能得出，相反，它的转换相当复杂。
如果有兴趣编写程序的，我可以提供转换函数库，调用一个函数就可以实现农历与公历的互转了。
目前我已经完美地实现了转换，如果需要，我可以提供。

农历与阳历如何计算 阴历阳历转换计算公式
1、阳历日期推算阴历日期的方法：
前已述及阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月为十六日），以月晦为二十九日（大月为三十日）。
如要知道1984年6月8日是阴历几日？可以利用公式推算阴历日期： 设：公元年数－1977（或1901）＝4Q＋R
则：阴历日期=14Q+10.6(R+1)+年内日期序数-29.5n （注:式中Q、R、n均为自然数，R>

农历转换成公历的计算公式？ 因为公历（现在用的是格里历，以前还曾用儒列历）和中国农历都不是严格按一个公式计算得到的，所以两个历法没有直接的公式。
试图用一个简单的公式，而不利用许多像万年历一样的数据（尽管可以简化），就达到公农历转换的目的，这是不可能的。我们能见到的所有公农历转换的软件，都存有多少不等的一些年份的历法数据。
这些数据之中，最重要的是农历的每月天数。因为农历是阴阳历，阴历部分（按月相编的部分）决定月日，阳历部分（按太阳高度编的部分）就是节气。节气基本上是与公历直接对应的，可以较容易的推算；但月相周期与地球公转的关系相对复杂，一般都需要天文观测数据授时，所以农历每月是大月还是小月没有简单的公式。
至于公历和农历的置闰，倒都有一定的方式推算，并不困难。
如果只是天文数据，其实都还是可以算的――因为天文周期十分稳定，我们只要严格地按天文周期推算就可以了。可是还有更为麻烦的一点，就是公历和农历这些历法，并不是完全严格地按照天文上的实际周期进行的，还有许多人为的因素。最著名的就是罗马皇帝几次修改2、8等月份长短，以及儒列历中因计算不准确而人为地去掉了十天等事。中国农历也有因为古代天文观测不准确造成的 *** 颁布的历法与天象不吻合的（我们不能苛求古人观测的精度）。所以这两部历法都是与一个时期社会有关的东西，也就没有一定的规律可循了。

日期的阳历和阴历怎么换算~? 每月初一叫做朔，最后一日叫做晦。农历十五或十六或十七叫做望，望的后一天叫做既望 所以每年春节的大年三十并不在同一天。农历的基础是「回归年」和「朔望月」。「回归年」是太阳接连两次通过春分点所需的时间，即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被数年）能碰到一起或只差一天。

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

农历新历怎样换算 国历换算为公历
1．换算公式的导出
公历每年365．242 199074075 日 （简化为365．2422日），而回历每年为354．367074375日（简化为354．36707日），所以回历一年只相当354．36707/365.2422=0.970223或0．970224个公历年。又回历元年元旦定在公元622年7月16日，由于当时历法在推算上的误差，致当时的7月16日，按现代的公历应改为7月19日，自公元某年元旦至该年7月19日已达200日．相200/365.2422=0.5476公历年；又因到回历二年元旦才达到0．970224个公历年，故自回历纪年元旦换算为公历的算式即为：
（回历纪年一1）× 0．970224＋622．5476年
＝所求公历年月日……………………………………………………………………………（1）
或 回历纪年 × 0．970224＋621．5774年
＝所求公历年月日……………………………………………………………………………（2）
式中621．5774来自622．5476－0．970224。
如所求某一历史事实不在回历元旦时，可将事实经过本年的总日数化为回历年，加人回历纪年总数中即可。
然而上列公历一年的总日数，实际上是一回归年的实测数，因现用公历每年的日数实为365．2425日，它与一回归年的日数只能是基本相符，到公元四千多年后会再出现一日之差。
实际上在明万历十年九月十八日，回历990年9月16日，公元1582年10月4日前（包括4日）的公历称儒略历，儒略历每年365．25日，它每年与一回归年的差值远大于格列高利历即现代的公历，大约历128年就需多闰去一日，至万历十年已经多闰出十日了。因此，对于儒略历时期的回、公两历换算，不能仍采用（l）、（2）两式，而需依儒略历的年实际日数将上列二式略加修正即可，结果如下：
（回历纪年一l）× 0．9702＋622．5393
= 所求公历年月日……………………………………………………………………………（3）
回历纪年 × 0．9702＋621．5691
= 所求公历年月日…………………………………………………………………………（4）
式中0．9702为354．36707／365．25所得结果，而0．5393则系公历某年元旦至其7月16日的总日数197被365．25日除之所得，622．5393－0．9702= 621．5691。
现将两种算式自回历第52年起，每隔百年所算得的公历年月日列人下表：
国历换算为公历
自表列计算结果得知，历法不同不能用同一算式，否则误差大大。万历十年前即已发现儒略历的春分所在日期与实测结果相差较大，至万历十年已差十日，因此格列高利第十三就决心修改儒略历，改革内容有两点，其一，将公历1582年10月4日之后一日原应为10月5日而改为10月15日，而星期序数不变，即该年10月4日为星期四，10月15日理应为星期一，实为星期五；其二，儒略历每四年有一个闰年，四百年有百闰，格列高利历仍保持儒历四年一闰的传统，但每四百年仅安排九十七个闰年，四百年中逢百年不闰，到第四百年加一个闰年[6]。儒历与格历的岁实分别为：
儒历（365 ×300＋366 ×00）÷ 400年＝365．25日/年
格历（365 × 303＋366×97）÷ 400年＝365．2425日／年而《明史?历志》所载的 *** 宫分历（太阳历），一百二十八年闰三十一......>>

公历农历转换 回历、公历、农历的换算
（128 × 365＋31）日÷ 128年＝ 365．2421875日/年
可见共置闰精度远高于现代的公历。
2．换算中一日误差之订正
《历法丛谈》以回历1387年为例，求算合公历之年月日。
解1：1387 × 0．970224＋621．5774＝1967．278088年
0．278088年 × 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＝140359＋7＝2001，余 2余2即星期2，故回历1387年元旦在公历1967年4月11日。
因公历计算星期日数采用数据较多，计算时难免有所遗漏，现引人公历日期与星期推算表阿），供参考。
应用此表查找公元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．970224＝回历年月日（格氏历）…………………………………………（6）
无论回历换算为公历或相反，大体都有一日之差，以星期序数订正时，回历换算为公历，以回历的星期序数为准；相反，以公历的星期序数为准。
四 国历或公历换算为中国农历
1．回历换算为农历
仅管中国农历各年在年内月数日数都不是一个相对的稳定值，给回历与公历换算为农历上带来较多的困难，但仍然可以换算。中国农历为阴阳合历，在月份上与回历同属太阴历，惟回历每月以见新月为一月之始，其日约迟于农历合朔（初一日）1―2日乃至3日，因此只要查清二者在月份上关系，便可将回历换算为中国农历。马以愚先生称：“......>>

excel里如何得到当天的农历日期？

经验证，公式中的a1换成today()是可行的，公式里有两个a1，记得都得更换，TODAY后的括号中间没有空格。
输入=TEXT(TODAY(),"[$-130000]yyyy年m月"&IF(LEN(--TEXT(TODAY(),"[$-130000]dd"))=1,"初","")&"d") 得到今天的农历日期。
测试这个函数（以及“[$-130000]”格式）已经出现错误，因为没有考虑到农历2017年闰六月、农历2017年八月三十日，现在的月份会比农历大一个月左右，可能还有其他错误，无法用一般公式修正。这个问题同时出现在2010和2016版的excel中，应该是2017年开始微软没有跟进农历内置公式的修正。
'函数作用: 阴阳历转换和阴阳历生日
' 说 明:适用于1901-2100年间
' 示 例:=lunar("2006-11-1") 求阳历2006-11-1日对应的阴历
' =solar("2006-1-1") 求阴历2006年正月初一对应的阳历
' =lunarbirth("1975-5-6") 阴历生日:阳历1975年5月6日出生,今年阴历生日时对应的阳历日期
' =solarbirth("1975-5-6") 阳历生日:阳历1975年5月6日出生,今年阳历生日时对应的阳历日期
Type ConvDataA leapmonth As Integer Month(1 To 13) As Integer sp_month As Integer 'Solar month of Spring Festival sp_day As Integer 'Solar day of Spring FestivalEnd TypePrivate Function LunarData(q_year) As ConvDataA Dim d As Long Dim Month(1 To 13) As Integer '1901-2100 LunarCal = Array(&H4AE53, &HA5748, &H5526BD, &HD2650, &HD9544, &H46AAB9, &H56A4D, &H9AD42, &H24AEB6, &H4AE4A, _ &H6A4DBE, &HA4D52, &HD2546, &H5D52BA, &HB544E, &HD6A43, &H296D37, &H95B4B, &H749BC1, &H49754, _ &HA4B48, &H5B25BC, &H6A550, &H6D445, &H4ADAB8, &H2B64D, &H95742, &H2497B7, &H4974A, &H664B3E, _ &HD4A51, &HEA546, &H56D4BA, &H5AD4E, &H2B644, &H393738, &H92E4B, &H7C96BF, &HC9553, &HD4A48, _ &H6DA53B, &HB554F, &H56A45, &H4AADB9, &H25D4D, &H92D42, &H2C95B6, &HA954A, &H7B4ABD, &H6CA51, _ &HB5546, &H555ABB, &H4DA4E, &HA5B43, &H352BB8, &H52B4C, &H8A953F, &HE9552, &H6AA48, &H7AD53C, _ &HAB54F, &H4B645, &H4A5739, &HA574D, &H52642, &H3E9335, &HD9549, &H75AABE, &H56A51, &H96D46, _ &H54AEBB, &H4AD4F, &HA4D43, &H4D26B7, &HD254B, &H8D52BF, &HB5452, &HB6A47, &H696D3C, &H95B50, _ &H49B45, &H4A4BB9, &HA4B4D, &HAB25C2, &H6A554, &H6D449, &H6ADA3D, &HAB651, &H93746, &H5497BB, _ &H4974F, &H64B44, &H36A537, &HEA54A, &H86B2BF, &H5AC53, &HAB647, &H5936BC, &H92E50, &HC9645, _ &H4D4AB8, &HD4A4C, &HDA541, &H25AA36, &H56A49, &H7AADBD, &H25D52, &H92D47, &H5C95BA, &HA954E, _ &HB4A43, &H4B5537, &HAD54A, &H955ABF, &H4BA53, &HA5B48, &H652BBC, &H52B50, &HA9345, &H474AB9, _ &H6AA4C, &HAD541, &H24DAB6, &H4B64A, &H69573D, &HA4E51, &HD2646, &H5E933A, &HD534D, &H5AA43, _ &H36B537, &H96D4B, &HB4AEBF, &H4AD53, &HA4D48, &H6D25BC, &HD254F, &HD5244, &H5DAA38, &HB5A4C, _ &H56D41, &H24ADB6, &H49B4A, &H7A4BBE, &HA4B51, &HAA546, &H5B52BA, &H6D24E, &HADA42, &H355B37, _ &H9374B, &H8497C1, &H49753, &H64B48, &H66A53C, &HEA54F, &H6B244, &H4AB638, &HAAE4C, &H92E42, _ &H3C9735, &HC9649, &H7D4ABD, &HD4A51, &HDA545, &H55AABA, &H56A4E, &HA6D43, &H452EB7, &H52D4B, _ &H8A95BF, &HA9553, &HB4A47, &H6B553B, &HAD54F, &H55A45, &H4A5D38, &HA5B4C, &H52B42, &H3A93B6, _ &H69349, &H7729BD, &H6AA51, &HAD546, &H54DABA, &H4B64E, &HA5743, &H452738, &HD264A, &H8E933E, _ &HD5252, &HDAA47, &H66B53B, &H56D4F, &H4AE45, &H4A4EB9, &HA4D4C, &HD1541, &H2D92B5, &HD5349) startyear = 1901 ng = LunarCal(q_year - startyear) d = &H100000 LunarData.leapmonth = Int(ng / d) ng = ng Mod d d = &H80 mdata = Int(ng / d) ng = ng Mod d d = &H20 LunarData.sp_month = Int(ng / d) LunarData.sp_day = ng Mod d d = &H1000 i = 1 Do LunarData.Month(i) = 29 + Int(mdata / d) mdata = mdata Mod d If d = 1 Then Exit Do d = d / 2 i = i + 1 Loop If LunarData.leapmonth = 0 Then LunarData.Month(i) = 0End FunctionFunction lunar(Solar_date As Date, Optional Part As Integer = 0) As String 'Part = 0, all; Part = 1, lunar year; Part = 2, lunar month; Part = 3, lunar day Dim a As ConvDataA l_year = Year(Solar_date) a = LunarData(l_year) sp_date = DateSerial(l_year, a.sp_month, a.sp_day) If sp_date > Solar_date Then l_year = l_year - 1 a = LunarData(l_year) sp_date = DateSerial(l_year, a.sp_month, a.sp_day) End If l_day = Solar_date - sp_date l_month = 1 IS_lunar_leapmonth = False y = a.Month(l_month) Do While l_day >= y l_day = l_day - y If l_month = a.leapmonth Then IS_lunar_leapmonth = (Not IS_lunar_leapmonth) If IS_lunar_leapmonth Then y = a.Month(13) Else l_month = l_month + 1 y = a.Month(l_month) End If Loop l_day = l_day + 1 lunar = l_year & "-" & l_month & "-" & l_day If IS_lunar_leapmonth Then lunar = lunar & "-L" lunar = Choose(Part + 1, lunar, l_year, l_month, l_day)End FunctionFunction solar(Lunar_date, Optional IS_lunar_leapmonth As Integer = 0) As String 'IS_lunar_leapmonth = 0, No leap month; IS_lunar_leapmonth = 1, is leap month Dim a As ConvDataA Lunar_date = Split(Lunar_date, "-") s_year = Lunar_date(0) For Each C In Lunar_date If C = "L" Then IS_lunar_leapmonth = 1 Next a = LunarData(s_year) sp_date = DateSerial(s_year, a.sp_month, a.sp_day) If Lunar_date(1) <> a.leapmonth Then IS_lunar_leapmonth = 0 x = Lunar_date(2) tm = Lunar_date(1) + IS_lunar_leapmonth - 1 For i = 1 To tm x = x + a.Month(i) If i = a.leapmonth And IS_lunar_leapmonth = 0 Then x = x + a.Month(13) End If Next s_date = sp_date + x - 1 solar = s_dateEnd FunctionFunction lunarbirth(Solar_birthday As Date, Optional Inquire_year As Integer) As String If Inquire_year = 0 Then Inquire_year = Left(lunar(Now), 4) lunarbirth = solar(Inquire_year & Mid(lunar(Solar_birthday), 5, 10)) If CDate(lunarbirth) < Now - 1 Then Inquire_year = Inquire_year + 1 End If lunarbirth = solar(Inquire_year & Mid(lunar(Solar_birthday), 5, 10))End FunctionFunction solarbirth(Solar_birthday As Date, Optional Inquire_year As Integer) As String If Inquire_year = 0 Then Inquire_year = Year(Now) solarbirth = DateSerial(Inquire_year, Month(Solar_birthday), Day(Solar_birthday)) If CDate(solarbirth) < Now - 1 Then Inquire_year = Inquire_year + 1 End If solarbirth = DateSerial(Inquire_year, Month(Solar_birthday), Day(Solar_birthday))End Function

公历农历转换公式

农历转换成公历的计算公式？ 因为公历（现在用的是格里历，以前还曾用儒列历）和中国农历都不是严格按一个公式计算得到的，所以两个历法没有直接的公式。
试图用一个简单的公式，而不利用许多像万年历一样的数据（尽管可以简化），就达到公农历转换的目的，这是不可能的。我们能见到的所有公农历转换的软件，都存有多少不等的一些年份的历法数据。
这些数据之中，最重要的是农历的每月天数。因为农历是阴阳历，阴历部分（按月相编的部分）决定月日，阳历部分（按太阳高度编的部分）就是节气。节气基本上是与公历直接对应的，可以较容易的推算；但月相周期与地球公转的关系相对复杂，一般都需要天文观测数据授时，所以农历每月是大月还是小月没有简单的公式。
至于公历和农历的置闰，倒都有一定的方式推算，并不困难。
如果只是天文数据，其实都还是可以算的――因为天文周期十分稳定，我们只要严格地按天文周期推算就可以了。可是还有更为麻烦的一点，就是公历和农历这些历法，并不是完全严格地按照天文上的实际周期进行的，还有许多人为的因素。最著名的就是罗马皇帝几次修改2、8等月份长短，以及儒列历中因计算不准确而人为地去掉了十天等事。中国农历也有因为古代天文观测不准确造成的 *** 颁布的历法与天象不吻合的（我们不能苛求古人观测的精度）。所以这两部历法都是与一个时期社会有关的东西，也就没有一定的规律可循了。

求农历与公历的转换公式！！！ 再说你要转换也不用在excel里面用啊。 word有个日历模板，可以同时出现阳历和阴历 EXCEL本身没有这个功能，但是通过VBA可以转，但是也很麻烦，其实生日

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)))，那就更像农历表示法了，不过因为农历每年开始日期都不一样，所以函数很难达到十分精确的结果，只能是将就着用。

公历农历转换 回历、公历、农历的换算
（128 × 365＋31）日÷ 128年＝ 365．2421875日/年
可见共置闰精度远高于现代的公历。
2．换算中一日误差之订正
《历法丛谈》以回历1387年为例，求算合公历之年月日。
解1：1387 × 0．970224＋621．5774＝1967．278088年
0．278088年 × 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＝140359＋7＝2001，余 2余2即星期2，故回历1387年元旦在公历1967年4月11日。
因公历计算星期日数采用数据较多，计算时难免有所遗漏，现引人公历日期与星期推算表阿），供参考。
应用此表查找公元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．970224＝回历年月日（格氏历）…………………………………………（6）
无论回历换算为公历或相反，大体都有一日之差，以星期序数订正时，回历换算为公历，以回历的星期序数为准；相反，以公历的星期序数为准。
四 国历或公历换算为中国农历
1．回历换算为农历
仅管中国农历各年在年内月数日数都不是一个相对的稳定值，给回历与公历换算为农历上带来较多的困难，但仍然可以换算。中国农历为阴阳合历，在月份上与回历同属太阴历，惟回历每月以见新月为一月之始，其日约迟于农历合朔（初一日）1―2日乃至3日，因此只要查清二者在月份上关系，便可将回历换算为中国农历。马以愚先生称：“......>>

跪求农历编写规则或者农历公历转换公式！ #include
#include
#include

unsigned int LunarCalendarDay;
unsigned int LunarCalendarTable[199] =
{
0x04AE53,0x0A5748,0x5526BD,0x0D2650,0x0D9544,0x46AAB9,0x056A4D,0x09AD42,0x24AEB6,0x04AE4A,/*1901-1910*/
0x6A4DBE,0x0A4D52,0x0D2546,0x5D52BA,0x0B544E,0x0D6A43,0x296D37,0x095B4B,0x749BC1,0x049754,/*1911-1920*/
0x0A4B48,0x5B25BC,0x06A550,0x06D445,0x4ADAB8,0x02B64D,0x095742,0x2497B7,0x04974A,0x664B3E,/*1921-1930*/
0x0D4A51,0x0EA546,0x56D4BA,0x05AD4E,0x02B644,0x393738,0x092E4B,0x7C96BF,0x0C9553,0x0D4A48,/*1931-1940*/
0x6DA53B,0x0B554F,0x056A45,0x4AADB9,0x025D4D,0x092D42,0x2C95B6,0x0A954A,0x7B4ABD,0x06CA51,/*1941-1950*/
0x0B5546,0x555ABB,0x04DA4E,0x0A5B43,0x352BB8,0x052B4C,0x8A953F,0x0E9552,0x06AA48,0x6AD53C,/*1951-1960*/
0x0AB54F,0x04B645,0x4A5739,0x0A574D,0x052642,0x3E9335,0x0D9549,0x75AABE,0x056A51,0x096D46,/*1961-1970*/
0x54AEBB,0x04AD4F,0x0A4D43,0x4D26B7,0x0D254B,0x8D52BF,0x0B5452,0x0B6A47,0x696D3C,0x095B50,/*1971-1980*/
0x049B45,0x4A4BB9,0x0A4B4D,0xAB25C2,0x06A554,0x06D449,0x6ADA3D,0x0AB651,0x093746,0x5497BB,/*1981-1990*/
0x04974F,0x064B44,0x36A537,0x0EA54A,0x86B2BF,0x05AC53,0x0AB647,0x5936BC,0x092E50,0x0C9645,/*1991-2000*/
0x4D4AB8,0x0D4A4C,0x0DA541,0x25AAB6,0x056A49,0x7AADBD,0x025D52,0x092D47,0x5C95BA,0x0A954E,/*2001-2010*/
0x0B4A43,0x4B5537,0x0AD54A,0x955ABF,......>>

公历和农历是如何换算的？ 每月初一叫做朔，最后一日叫做晦。农历十五或十六或十七叫做望，望的后一天叫做既望 所以每年春节的大年三十并不在同一天。农历的基础是「回归年」和「朔望月」。「回归年」是太阳接连两次通过春分点所需的时间，即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 Excel 怎样用纯函数公式计算公历农历转换 公历农历转换太复杂了，在Excel 用纯函数公式计算是做不到的。

农历和公历是怎么转换的？（怎么算的？） 你是要口算还是要用笔算？
告诉你，这样子算不靠谱的，根本算不出来，涉及到的转换不是简单的几个公式能得出，相反，它的转换相当复杂。
如果有兴趣编写程序的，我可以提供转换函数库，调用一个函数就可以实现农历与公历的互转了。
目前我已经完美地实现了转换，如果需要，我可以提供。

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

阳历公历转换

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

如何将农历转换为公历 是公历11月13日。这日历上有，要问怎么换的，当然公历是固定的，1、3、5、7、8、10、12月都是31天，2月28天（每4年润一次月，像2008年够4整除，润2月29天），其余的都是30天。
对于农历，它实质是阴历，沿用的是太阴历，这是一门很复杂的天文学知识。它包括24节气。
记住阳历是：1、3、5、7、8、10、腊，31天都不差，其余都是30天，除了2月28.
若是闰月2月29天，只多一天。

农历和公历是怎么转换的？（怎么算的？） 你是要口算还是要用笔算？
告诉你，这样子算不靠谱的，根本算不出来，涉及到的转换不是简单的几个公式能得出，相反，它的转换相当复杂。
如果有兴趣编写程序的，我可以提供转换函数库，调用一个函数就可以实现农历与公历的互转了。
目前我已经完美地实现了转换，如果需要，我可以提供。

农历转换成公历的计算公式？ 因为公历（现在用的是格里历，以前还曾用儒列历）和中国农历都不是严格按一个公式计算得到的，所以两个历法没有直接的公式。
试图用一个简单的公式，而不利用许多像万年历一样的数据（尽管可以简化），就达到公农历转换的目的，这是不可能的。我们能见到的所有公农历转换的软件，都存有多少不等的一些年份的历法数据。
这些数据之中，最重要的是农历的每月天数。因为农历是阴阳历，阴历部分（按月相编的部分）决定月日，阳历部分（按太阳高度编的部分）就是节气。节气基本上是与公历直接对应的，可以较容易的推算；但月相周期与地球公转的关系相对复杂，一般都需要天文观测数据授时，所以农历每月是大月还是小月没有简单的公式。
至于公历和农历的置闰，倒都有一定的方式推算，并不困难。
如果只是天文数据，其实都还是可以算的――因为天文周期十分稳定，我们只要严格地按天文周期推算就可以了。可是还有更为麻烦的一点，就是公历和农历这些历法，并不是完全严格地按照天文上的实际周期进行的，还有许多人为的因素。最著名的就是罗马皇帝几次修改2、8等月份长短，以及儒列历中因计算不准确而人为地去掉了十天等事。中国农历也有因为古代天文观测不准确造成的 *** 颁布的历法与天象不吻合的（我们不能苛求古人观测的精度）。所以这两部历法都是与一个时期社会有关的东西，也就没有一定的规律可循了。

公历和农历是如何换算的？ 每月初一叫做朔，最后一日叫做晦。农历十五或十六或十七叫做望，望的后一天叫做既望 所以每年春节的大年三十并不在同一天。农历的基础是「回归年」和「朔望月」。「回归年」是太阳接连两次通过春分点所需的时间，即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 如何在Excel中转换阴历阳历 可以啊，不过比较复杂。参看excelhome论坛：
club.excelhome/dispbbs.asp?BoardID=3&ID=26011&replyID=&skin=0
下载里面的Excel附件。
可能需要注册一下。

求农历公历转换算法 编程不太懂
传下来 口诀

乘五除四九加日
双月间隔三十天。
一二自加整少一，
三五七八十尾前。
具体的算法你可网上找下资料 百度上很多的 我就不多累赘了的

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

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

阳历19740820转换阴历是多少 (公历)： 1974年 8月 20日
(农历)： 甲寅年 七月 初三

阴历和阳历生日转换器，阳历生日转换阴历生日

提起阴历和阳历生日转换器，大家都知道，有人问必须历转换成阳历,找这么一量转换的工具，另外，还有人想问阴历与阳历的生日转换，你知道这是怎么回事？其实农历新历转换器，下面就一起来看看阳历生日转换阴历生日，希望能够帮助到大家！
阴历和阳历生日转换器
阳历生日是年7月9日星期日，转成阴历是年六月十二，生肖属猪，距离今日已经过去天。
阴历甲午()年六月十二，距离今日还有天。（阳历是年7月8日星期二）查生日阴历阳历对照表。
阳历生日转换阴历生日？如何查询自己的阴历生日。
生日　如何农历转换公历？
出生是年6月23日出生日期查询农历生日。
如果这时间您给的是阳历，那么阴历你就是5月23日是生日。以后无论那一年的阴历5月23日都是你的生日。
有了阴历生日，变换的就是阳历得日子。每一年的日历牌您都可以查出对应的历日子。
以92年6月23日为阴历日子计算，年您的阳历生日是7月25日。以此类推。祝开心，生日快乐！

阴历和阳历生日转换器：必须历转换成阳历,找这么一量转换的工具 单独查询的话，万年历就行。万年历农历公历转换。
找个阳历日期转换为阴历日期程序，加一个循环，我一段程序就行了
找不到高手？让文员查他几个小时就行了
如何在EXCEL中实现生日阳历到阴历的批量转换。
OptionExplicit
DimWeekName(7),MonthAdd(11),NongliData(99),TianGan(9),DiZhi(11),ShuXiang(11),DayName(30),MonName(12)
DimcurTime,curYear,curMonth,curDay,curWeekday阴历和公历的转换器。
DimGongliStr,WeekdayStr,NongliStr,NongliDayStr万年历大全。
Dimi,m,n,k,isEnd,bit,TheDate
Dimyear,month,day,grid,grid_date
Subdatetest()’这是转换样例农历生日计算器。
Debug.Printcalendar(“-8-15”)
EndSub生日查询系统。
Functioncalendar(grid)’转换函数1800～2100年公历农历对照表。
grid_date=grid星座查询农历转换阳历。
year=Mid(grid_date,1,4)阴历四月三十是阳历几月几号。
month=Mid(grid_date,6,1)阳历6月26生日农历是几号。
day=Mid(grid_date,8,2)今天是农历几月几日几号。
‘星期名
WeekName(0)=””
WeekName(1)=”星期日”公历如何换算成农历。
WeekName(2)=”星期一”
WeekName(3)=”星期二”农历3月20生日阳历是多少。
WeekName(4)=”星期三”
WeekName(5)=”星期四”时辰阳历公历不分吗。
WeekName(6)=”星期五”
WeekName(7)=”星期六”
‘天干名称
TianGan(0)=”甲”有没有1900以前的万年历。
TianGan(1)=”乙”
TianGan(2)=”丙”
TianGan(3)=”丁”
TianGan(4)=”戊”
TianGan(5)=”己”生日日期计算器。
TianGan(6)=”庚”阴历阳历公式。
TianGan(7)=”辛”
TianGan(8)=”壬”
TianGan(9)=”癸”农历和新历生日怎么算。
‘地支名称阳历1971年10月28日。
DiZhi(0)=”子”
DiZhi(1)=”丑”农历1999年7月14日生日新历是。
DiZhi(2)=”寅”
DiZhi(3)=”卯”上的生日在日历上怎么看。
DiZhi(4)=”辰”
DiZhi(5)=”巳”
DiZhi(6)=”午”1月18号阳历生日。
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)=”狗”
ShuXiang(11)=”猪”
‘农历日期名
DayName(0)=””
DayName(1)=”初一”
DayName(2)=”初二”
DayName(3)=”初三”
DayName(4)=”初四”
DayName(5)=”初五”
DayName(6)=”初六”
DayName(7)=”初七”
DayName(8)=”初八”
DayName(9)=”初8221;
DayName(10)=”初8221;
DayName(11)=”十一”
DayName(12)=”十二”
DayName(13)=”十三”
DayName(14)=”十四”
DayName(15)=”十五”
DayName(16)=”十六”
DayName(17)=”十七”
DayName(18)=”十八”
DayName(19)=”十8221;
DayName(20)=”二8221;
DayName(21)=”二十一”
DayName(22)=”二十二”
DayName(23)=”二十三”
DayName(24)=”二十四”
DayName(25)=”二十五”
DayName(26)=”二十六”
DayName(27)=”二十七”
DayName(28)=”二十八”
DayName(29)=”二十8221;
DayName(30)=”三8221;
‘农历月份名
MonName(0)=””
MonName(1)=”正”
MonName(2)=”二”
MonName(3)=”三”
MonName(4)=”四”
MonName(5)=”五”
MonName(6)=”六”
MonName(7)=”七”
MonName(8)=”八”
MonName(9)=”8221;
MonName(10)=”8221;
MonName(11)=”十一”
MonName(12)=”腊”
‘公历每月前面的天数
MonthAdd(0)=0
MonthAdd(1)=31
MonthAdd(2)=59
MonthAdd(3)=90
MonthAdd(4)=
MonthAdd(5)=
农历新历转换器 MonthAdd(6)=
MonthAdd(7)=
MonthAdd(8)=
MonthAdd(9)=
MonthAdd(10)=
MonthAdd(11)=
‘农历数据
NongliData(0)=
NongliData(1)=
NongliData(2)=
NongliData(3)=
NongliData(4)=
NongliData(5)=
NongliData(6)=
NongliData(7)=
NongliData(8)=
NongliData(9)=
NongliData(10)=
NongliData(11)=
NongliData(12)=
NongliData(13)=
NongliData(14)=
NongliData(15)=
NongliData(16)=
NongliData(17)=
NongliData(18)=
NongliData(19)=
NongliData(20)=
NongliData(21)=
NongliData(22)=
NongliData(23)=
NongliData(24)=
NongliData(25)=
NongliData(26)=
NongliData(27)=
NongliData(28)=
NongliData(29)=
NongliData(30)=
NongliData(31)=
NongliData(32)=
NongliData(33)=
NongliData(34)=
NongliData(35)=
NongliData(36)=
NongliData(37)=
NongliData(38)=
NongliData(39)=
NongliData(40)=
NongliData(41)=
NongliData(42)=
NongliData(43)=
NongliData(44)=
NongliData(45)=
NongliData(46)=
NongliData(47)=46
NongliData(48)=
NongliData(49)=
NongliData(50)=
NongliData(51)=
NongliData(52)=
NongliData(53)=
NongliData(54)=
NongliData(55)=
NongliData(56)=
NongliData(57)=
NongliData(58)=
NongliData(59)=
NongliData(60)=
NongliData(61)=
NongliData(62)=
NongliData(63)=
NongliData(64)=
NongliData(65)=
NongliData(66)=
NongliData(67)=
NongliData(68)=
NongliData(69)=
NongliData(70)=
NongliData(71)=
NongliData(72)=
NongliData(73)=
NongliData(74)=
NongliData(75)=
NongliData(76)=
NongliData(77)=
NongliData(78)=
NongliData(79)=
NongliData(80)=
NongliData(81)=
NongliData(82)=
NongliData(83)=
NongliData(84)=
NongliData(85)=
NongliData(86)=
NongliData(87)=
NongliData(88)=
NongliData(89)=
NongliData(90)=
NongliData(91)=
NongliData(92)=
NongliData(93)=
NongliData(94)=
NongliData(95)=
NongliData(96)=
NongliData(97)=
NongliData(98)=
NongliData(99)=
‘生成当前公历年、月、日==>GongliStr
curYear=year
curMonth=month
curDay=day
GongliStr=curYear&”年”
If(curMonth<10)Then
GongliStr=GongliStr&”0″&curMonth&”月”
Else
GongliStr=GongliStr&curMonth&”月”
EndIf
If(curDay<10)Then
GongliStr=GongliStr&”0″&curDay&”日”
Else
GongliStr=GongliStr&curDay&”日”
EndIf
‘生成当前公历星期==>WeekdayStr
curWeekday=Weekday(curTime)
WeekdayStr=WeekName(curWeekday)
‘计算到初始时间年2月8日的天数：-2-8(正月初一)
TheDate=(curYear-)+Int((curYear-)/4)+curDay+MonthAdd(curMonth-1)-38
If((curYearMod4)=0AndcurMonth>2)Then
TheDate=TheDate+1
EndIf
‘计算农历天干、地支、月、日
isEnd=0
m=0If(NongliData(m)<)Then
k=11
Else
k=12
EndIf
n=kIf(n<0)Then
ExitDo
EndIf
‘获取NongliData(m)的第n个二进制位的值
bit=NongliData(m)
Fori=1TonStep1
bit=Int(bit/2)
Next
bit=bitMod2
If(TheDate<=29+bit)Then
isEnd=1
ExitDo
EndIf
TheDate=TheDate-29-bit
n=n-1
Loop
If(isEnd=1)Then
ExitDo
EndIf
m=m+1
Loop
curYear=+m
curMonth=k-n+1
curDay=TheDate
If(k=12)Then
If(curMonth=(Int(NongliData(m)/)+1))Then
curMonth=1-curMonth
ElseIf(curMonth>(Int(NongliData(m)/)+1))Then
curMonth=curMonth-1
EndIf
EndIf
‘生成农历天干、地支、属相==>NongliStr
NongliStr=”农历”&TianGan(((curYear-4)))&DiZhi(((curYear-4)))&”年”
NongliStr=NongliStr&”(“&ShuXiang(((curYear-4)))&””
‘生成农历月、日==>NongliDayStr
If(curMonth<1)Then
NongliDayStr=”闰”&MonName(-1curMonth)
Else
NongliDayStr=MonName(curMonth)
EndIf
NongliDayStr=NongliDayStr&”月”
NongliDayStr=NongliDayStr&DayName(curDay)
calendar=NongliStr&NongliDayStr&”)”
EndFunction
以上就是与阳历生日转换阴历生日相关内容，是关于必须历转换成阳历,找这么一量转换的工具的分享。看完阴历和阳历生日转换器后，希望这对大家有所帮助！