excel农历日期如何变成中文

regweb

求助大佬们帮忙看看如何改一下这个公式实现日期的正确中文显示，
前面用论坛里的分享的函数公式实现了日历转农历，但是发现闰月的时候不能变成中文显示如下，
比如2023年闰2月26日如何变成“二○二三年闰二月二十六日”，谢谢~


用到的公式如下，附件也附上了

1. =TEXT(TEXT(,SUBSTITUTE(TEXT(MAX(IFERROR(((0&(0&585-(0&ROW($2:$202)*365-CODE(MID("q^isalvcnxep]hs`kublYdo\gr^is`kYdn[ep]hU`kXbmYdo\gT_iVakXcQ[fS]hU_kXbOZdQ\gT_LWaNXcP[HS^KU_LWbPZGR\IT_LWaNYEP[HS^KUBMWDOZGR\ITALWDNYFP=HS@KVCMWDO<GR?JTAK8CN<FQ>HS@K8CM:EO<G4?J7AL9CN;F3>H5@J8C0;E2<G4?J7",ROW($1:$201),1))-A5))-MMULT(MID(BASE(UNICODE(MID("&#46262;&#46254;&#47703;&#46374;&#48422;&#48533;&#46762;&#46442;&#47533;&#46254;&#46254;&#47693;&#47693;&#48421;&#48466;&#47956;&#48490;&#47469;&#47451;&#46235;&#46231;&#47691;&#47909;&#46757;&#46804;&#47834;&#45750;&#47447;&#46231;&#46231;&#46667;&#48458;&#48805;&#46804;&#46509;&#45750;&#47415;&#47406;&#48278;&#48277;&#48458;&#48549;&#47957;&#46442;&#47789;&#45661;&#47405;&#48277;&#47765;&#47946;&#46794;&#47957;&#46426;&#46298;&#47707;&#46379;&#46379;&#47765;&#48789;&#46762;&#47829;&#47797;&#46262;&#47703;&#47703;&#46374;&#48787;&#48533;&#46506;&#46442;&#47469;&#46254;&#46253;&#47693;&#48422;&#48421;&#48466;&#47956;&#47978;&#47469;&#47451;&#46235;&#47691;&#47691;&#47909;&#46757;&#46804;&#47834;&#47798;&#47447;&#46231;&#46231;&#46667;&#46757;&#48805;&#46770;&#46508;&#47798;&#47414;&#47406;&#48278;&#48458;&#48458;&#48549;&#46506;&#46442;&#47789;&#45661;&#47405;&#48277;&#47765;&#47946;&#47957;&#47829;&#46426;&#46266;&#47707;&#46379;&#46379;&#47763;&#46922;&#46762;&#47829;&#46298;&#46262;&#47703;&#47694;&#48422;&#48787;&#48467;&#46506;&#46773;&#47469;&#46254;&#46253;&#47693;&#48421;&#48421;&#48466;&#48554;&#47962;&#46445;&#46253;&#46235;&#47691;&#47691;&#47781;&#47954;&#46802;&#47834;&#46427;&#47415;&#46231;&#46231;&#46667;&#46757;&#48805;&#46762;&#47798;&#47790;&#47406;&#48279;&#48278;&#48458;&#48458;&#48549;&#46506;&#46442;&#47725;&#46382;&#46381;&#47765;&#47765;&#47946;&#47957;&#47829;&#46426;&#47709;&#47707;&#46379;&#47763;&#46739;&#46889;&#46762;&#47829;&#46298;&#46262;&#47703;&#46375;&#48406;&#48787;&#48466;&#48554;&#46773;&#46445;&#46254;&#47694;&#47661;&#48405;&#48530;&#48466;",ROW($1:$201),1)),2),COLUMN($E:$P),1)+29,N(ROW($1:$12)<COLUMN($A:$M))))+1)/86400+(ROW($1900:$2100)&-1&-COLUMN($A:$M))+SIGN(CODE(MID(SUBSTITUTE("16.6-6+5/6.6+506.6-6+5/6.6,506/6-6+506.6,516/6-6,506.6-516/6-536/6.6,516.6-6+506.6-526/6-6+5/6.6,546/6.6+506.6,516/6-6,506.6-516/6-6,506.6-516/6-6+5",6,55),ROW($1:$201),1))-COLUMN($AO:$BA))/2-0.5,"")),"e年!*hd月s日"),"*12","闰")),"[DBnum1]yyyy年m月d日")

复制代码

祝洪忠-

对照表查询  供参考

regweb

regweb 发表于 2023-10-16 15:17
感谢版主提供的这个解决思路，直接匹配对照表。如果是直接改公式可以实现吗 也不知道能不能

感谢版主提供的这个解决思路，直接匹配对照表。如果是直接改公式可以实现吗 也不知道能不能

regweb

regweb 发表于 2023-10-16 15:17
感谢版主提供的这个解决思路，直接匹配对照表。如果是直接改公式可以实现吗 也不知道能不能

刚刚电脑卡住了  刷新一下子出来了这么多回复，无语

高个子

比较推荐加辅助列，非要在原公式上改要几千字符，不好维护。。。
当然，2楼方案更好，做个对照表出来就很简单了

zpy2

=webservice("http://e.anyoupin.cn/f/?f=lunar~2023/4/16")
=webservice("http://e.anyoupin.cn/f/?f=lunar~" & text(a2,"yyyy/m/d"))

象山海鲜

你自己要改的公式 有些农历2月29 不能转换
原公式：
=TEXT(TEXT(,SUBSTITUTE(TEXT(........,"e年!*hd月s日"),"*12","闰")),"[DBnum1]yyyy年m月d日")


1.改头：
=TEXT(TEXT(,SUBSTITUTE(TEXT(==》TEXT(,SUBSTITUTE(TEXT(

2.改尾：
"e年!*hd月s日"),"*12","闰")),"[DBnum1]yyyy年m月d日")==》"[DBnum1]e年![=h]d月s日"),"[=十二]","闰"))

3.中间不变

4. 完成 改成为下面公式即可
=TEXT(,SUBSTITUTE(TEXT(.......,"[DBnum1]e年![=h]d月s日"),"[=十二]","闰"))

regweb

zpy2 发表于 2023-10-16 17:02
=webservice("http://e.anyoupin.cn/f/?f=lunar~2023/4/16")
=webservice("http://e.anyoupin.cn/f/?f=lun ...

这个方法在线引用，很棒，超简洁，谢谢大佬

regweb

象山海鲜 发表于 2023-10-17 09:38
你自己要改的公式 有些农历2月29 不能转换
原公式：
=TEXT(TEXT(,SUBSTITUTE(TEXT(........,"e年!*hd月s ...

刚刚替换了成功了，感谢版主大大，话说这个原本就是您之前写的公式，我在论坛里一篇帖子看到的，估计只有你能改他了