问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

excel怎么将农历日期转换为公历?

发布网友 发布时间:2024-05-22 16:03

我来回答

1个回答

热心网友 时间:2024-06-01 06:20

Excel将农历转换为公历的方法如下:
方法一:使用TEXT函数
1. 假设A列是农历日期,A1是农历日期,我们在B1单元格输入公式:=TEXT(A1,"[$-130000]yyyy年m月"&IF(LEN(--TEXT(A1,"[$-130000]dd"))=1,"初","")&"d"),下拉完成农历转公历。
2. 此公式将农历日期转换为公历日期,如果日期是初几,会在前面加上“初”字。
方法二:使用TEXT+MID函数实现更完整的转换
1. A列仍然是农历,B1输入公式:=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A1,"[$-130000]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥",MOD(TEXT(A1,"[$-130000]e")-4,12)+1,1)&"年"&TEXT(A1,"[$-130000][DBNum1]m月"&IF(--TEXT(A1,"[$-130000]d")<11,"初","")&TEXT(A1,"[$-130000]d"))),下拉完成公历转农历。
2. 这个公式不仅转换了日期,还添加了天干地支和生肖。
方法三:使用TEXT+MID+ CHOOSE+ YEAR函数
1. A1为农历,B1输入:=CHOOSE(MOD(YEAR(A1)-1900,10)+1,"庚","辛","壬","癸","甲","乙","丙","丁","戊","己")&CHOOSE(MOD(YEAR(A1)-1900,12)+1,"子","丑","寅","卯"空燃姿,"辰","巳","午","未","申","酉","戌","亥")&TEXT(A1,"[dbnum1][$-130000]年m月"&IF(--TEXT(A1,"[$-130000]d")<11,"初","")&TEXT(A1,"[$-130000]d")))。
2. 这个公式简化了输入,让公历转农历更加方便。
方法四:使用自定义函数
1. 下图所示,我们在B2输入公式段誉:=nongli(A1),即可。
2. C列农历简称中C1公式是:=RIGHT(B1,LEN(B1)-8)。
3. 下面是此自定义函数相关的代码: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, curDayDim GongliStr, NongliStr, NongliDayStrDim 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) = "初六"DayName(7) = "初七"DayName(8) = "初八"DayName(9) = "初九"DayName(10) = "初十"DayName(11) = "十一"DayName(12) = "十二"DayName(13) = "十三"DayName(14) = "十四"DayName(15) = "十五"DayName(16) = "十六"DayName(17) = "十七"DayName(18) = "十八"DayName(19) = "十九"DayName(20) = "二十"DayName(21) = "廿一"DayName(22) = "廿二"DayName(23) = "廿三"DayName(24) = "廿四"DayName(25) = "廿五"DayName(26) = "廿六"DayName(27) = "廿七"DayName(28) = "廿八"DayName(29) = "廿九"DayName(30) = "三十"' 农历月份名MonName(0) = "*"MonName(1) = "正"MonName(2) = "二"MonName(3) = "三"MonName(4) = "四"MonName(5) = "五"MonName(6) = "六"MonName(7) = "七"MonName(8) = "八"MonName(9) = "九"MonName(10) = "十"MonName(11) = "十一"MonName(12) = "腊"' 公历每月前面的天数MonthAdd(0) = 0MonthAdd(1) = 31MonthAdd(2) = 59MonthAdd(3) = 90MonthAdd(4) = 120MonthAdd(5) = 151MonthAdd(6) = 181MonthAdd(7) = 212MonthAdd(8) = 243MonthAdd(9) = 273MonthAdd(10) = 304MonthAdd(11) = 334' 农历数据NongliData(0) = 2635NongliData(1) = 333387NongliData(2) = 1701NongliData(3) = 1748NongliData(4) = 267701NongliData(5) = 694NongliData(6) = 2391NongliData(7) = 133423NongliData(8) = 1175NongliData(9) = 396438NongliData(10) = 3402NongliData(11) = 3749NongliData(12) = 331177NongliData(13) = 1453NongliData(14) = 694NongliData(15) = 201326NongliData(16) = 2350NongliData(17) = 465197NongliData(18) = 3221NongliData(19) = 3402NongliData(20) = 400202NongliData(21) = 2901NongliData(22) = 13
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
世界气象组织对地面气象观测站的分布和类型有何统计? 气象仪器土壤温度 电脑为什么会出现一个小对话框然后黑屏? ...会出现黑屏 然后出现一个英文框 然后黑屏一下 在恢复 这是为什么... 我玩电脑游戏时 突然黑屏了然后出现了一个框里面有一句英语翻译后是输... ...玩英雄连好像改了屏幕大小,然后突然黑屏,出现个框在满屏幕走框里说... 今天在玩游戏时从桌面切入游戏时突然黑屏,然后出现这种对话框,到底是... ...刚进游戏就黑屏,然后弹出这样一个框(如图),哪位大神知道该怎么解决... 江苏海事职业技术学院宿舍费用为什么涨价 刘邦儿子除了刘盈和刘恒外 其他儿子又是什么下场 南京值得一去的特产店有哪些? 网上有哪些优秀的特产美食店铺? 酒曲的发酵方法 白酒的酿造过程中使用了哪些发酵方法? 元梦之星红包雨活动怎么参加-元梦之星红包雨活动参与条件一览 山药红薯粥的家常做法有哪些? ...了也类是棉花的药物。那个药物棉。很苦。有点作呕的感觉 全球手机品牌排行榜前十名进口手机品牌推荐 狗的四条大门牙可以磨平吗? 去华安土楼旅行有哪些不容错过的美食? 去福建永定客家土楼旅行有哪些不容错过的小吃? 台州哪些地方可以购买特产 浙江台州特产 衢州,金华哪里的水果批发便宜 在浙江宁波贩卖什么云南特产最受欢迎 ...的餐饮食品团购网吗,能便宜地团购些水果啊,土特产,年货等等 有哪些雷州的特产美食值得购买? 雷州有什么不容错过的美食? 用碱水泡玉米皮会增加柔韧性吗 筠连县敏文商贸有限公司怎么样? 我的英语听写得了80分怎么说? 拉萨的哪些本地特产是游客不能错过的? 哪些品牌的盐比较好吃? 鸭架有哪些营养价值? 方便面的调味粉是些什么 方便面里面的调味粉是什么粉 方便面有色素和香料吗 入夏后,建议:多吃5种“天然高叶酸”食物,年龄大了更要懂得吃 包包的角被墙撞了一下,刮了一小块皮,能用501胶粘吗? 皮包掉皮怎么补救 牢固树立什么思维 怎么办,拉链拉不下去,中间又爆开了,是小拉链那种坐等怎么办 双肩包背带防滑小窍门双肩包背带防滑方法 拉链下滑太尴尬教你一招,包你拉链再也不会偷偷滑开 拉链要滑下来怎么解决? ...我刚才在手机百度上看了说紫光灯并不能测出,专家报道要用紫光仪器才... 绿箩叶子发黄发黑怎么办? 四岁孩子非要穿纸尿裤才能拉臭臭,怎么办? ...给我穿纸尿裤?可是我不穿纸尿裤会尿床,可是我又不想穿,怎么办... 孩子憋尿怎么办呢? 海参 鸡肉 冬菇这三样能否同食 包包拉链用久合不上怎么办