一、excel如何将阴历转换成阳历
结合前人经验,站在巨人肩膀上做出来的版本。主要改善的有如下2点,其次对于公式都做了注解。
1. 农历每个月初一显示为相应的月份,比如六月初一,则显示为六月,符合一般日历上显示农历的习惯。
2. 农历十号、二十号、及三十号分别显示为初十、二十、三十,二十一至二十九仍显示为廿一、廿二等,三十一也是卅一,修改了其他回答中“初一日”,“十五日”这样的显示方式,更符合习惯。
=IF(TEXT(A1,"[$-130000]d")="1",
* 如果A1格农历日期为1号,则通过下述判断显示为农历月份。"[$-130000]”是用于换算农历,后缀d表示换算出农历日期,下一行中的后缀m则是表示农历月份。
IF(TEXT(A1," [$-130000]m")*1-1=12,"腊",
* 农历十二月显示为腊月,其中[$-130000]m")*1减去1是因为2020年为农历闰4月,不减去1的话,当年农历12月会显示为十三月。
IF(TEXT(A1," [$-130000]m")*1=1," 正",
* 农历一月显示为正月,此处不减一,因为农历一月尚不涉及闰月。
IF(TEXT(A1," [$-130000]m")*1-1=10,"十",
IF(TEXT(A1," [$-130000]m")*1-1=11,"十一",
* 阿拉伯数字10及11转汉字会显示为“一十”和“一十一”这里10月和11月特别处理。
TEXT(TEXT(A1," [$-130000]m")-1,"[DBNum1]"
* 我是2020年8月开始做的日历,所以在解决闰四月这个问题的时候,采取了简单粗暴的办法,就是除了上述正月以外的月份统统都减去1来计算,而没有考虑2、3、4(闰)月份的问题。实际使用中,针对不同年份的农历闰月问题,可以在闰月前采用不减一的公式,即手工去掉上面所有的“-1”,而自闰月后采用减一的公式。因为Excel无法计算农历闰月,所以只能这样曲线救国了。
)))))
&"月",
* 到这里为止,解决了农历初一显示为月份的问题。从第二行开始,也可以单独用于农历月份。
下面开始是解决农历初一以外的日期问题,同时为了解决上面列的第二点改善,也做了简单粗暴的设计。
IF(TEXT(A1,"[$-130000]d")-9<1,"初"&TEXT(RIGHT(TEXT(A1," [$-130000]d"),1)*1,"[DBNum1]d"),
* 初一在之前的if里已经处理过了,所以这里简单的用日期-9<1就可以解决初二到初九的问题了。
IF(TEXT(A1,"[$-130000]d")="10","初十",
* 在上面没有才用日期-9≤1把初十解决掉,是因为在实践中发现那样子初十会显示为“初〇”,问题根源疑似是由TEXT(RIGHT(TEXT(A1," [$-130000]d"),1)*1,"[DBNum1]d")这段语句造成的。这里我又采取了简单粗暴的办法,就是另起一行,把初十单独拉出来做。
IF(TEXT(A1,"[$-130000]d")-19<1,"十"&TEXT(RIGHT(TEXT(A1," [$-130000]d"),1)*1,"[DBNum1]d"),
* 这里是解决十一到十九之间的问题,就直接显示十一到十九,逻辑为“十”加上个位的一到九,其中个位的一到九就是通过上述这段语句TEXT(RIGHT(TEXT(A1," [$-130000]d"),1)*1,"[DBNum1]d") 解决的
IF(TEXT(A1,"[$-130000]d")="20","二十",
* 这里是单独解决二十,理由同上面初十
IF(TEXT(A1,"[$-130000]d")-29<1,"廿"&TEXT(RIGHT(TEXT(A1," [$-130000]d"),1)*1,"[DBNum1]d"),
* 这里是解决廿一到廿九,逻辑同十一到十九,下面三十和卅一逻辑基本同上。做完之后才发现阴历似乎并没有三十一号。。。。然而也懒得再去验证和修改了。
IF(TEXT(A1,"[$-130000]d")="30","三十",
IF(TEXT(A1,"[$-130000]d")-39<1,"卅"&TEXT(RIGHT(TEXT(A1," [$-130000]d"),1)*1,"[DBNum1]d"),
""))))))))
二、生日阴历阳历转换
农历的农历的生日怎么转成阳历 打开日历,转到你农历生日附近的日期,下面小字是农历大字是对应的阳历,找到你的阴历生日,对应的就是阳历生日。
一般阳历比阴历日期早一个月左右。
如何在excel表中将阴历生日批量转换成阳历? 5分 将下面面这段代码保存在模块中,就可以用公式 =nongli(A1) 调用了。
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) = 初五&q......>>
农历生日换算成公历生日 从你提问看,你还不清楚阳历和阴历是怎么回事。阳历也叫公历就是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日。
只知道阴历生日怎么换算成阳历? 月亮盈亏一次一般是29.5天,所以农历的一年一般是354天。但是这样也会出现日期与气候不合的情况,所以也要安排闰年,由于相差天数比较多,所以农历一般安排闰月,一闰就是一个月。
但是农历的闰月安排比较复杂,安排的天数也有多有少,如果手头没有足够的资料是很计算的。
所以,结论就是:作为一个普通人是无法完成公历与农历的换算的。
阴历、阳历生日转换??? 农历1947年二月十二日=阳历1947年03月04日
双鱼座2月19日-3月20日
双鱼座的人,内向害羞,有着浓厚的艺术气息。柔情似水,浪漫多情,天真烂漫,会有许多梦幻般的想法,只是有时显得不切实际。
公历转农历生日查询 1991年出生的人生肖属羊。
1991年腊月十二那天的阳历日期是1992年1月16日,那天的星座是摩羯座。
农历:辛未年 腊月 十二
干支:辛未 辛丑 辛卯
公历:1992年1月16日星期四摩羯座
信息来源:华中农历网
生日阴历阳历转换计算小助手 每一年的阴历阳历相对应的日子是不固定的,1997年四月初四那天的阳历日期是1997年5月10日。如果你要过阳历生日就看当年的日历在5月10日,不必管那天是阴历的几月初几,如果你要过阴历生日,就按当年的阴历四月初四,也不必理会那天的阳历日期是多少号。
今年的阳历5月2日是你四月初四的阴历生日,当然要在那天庆生。但是,那不是17周岁的生日,因为周岁是按阳历的。要过17周岁的生日只能在5月10日。
你知道吗?按阴历你已经18岁了。(虚岁)
农历:丁丑年 四月 初四
公历:1997年5月10日星期六金牛座
信息来源:华中农历网
阴历生日怎样换算成阳历生日 阴历具体要看是哪年生的。
怎么把阳历生日转化为阴历生日? 随便哪种万年历都有阴阳历转化的功能。你把年、月、日报一下,我能帮你。