不联网的公历转农历公式

李逸雪 · 发表于 2021-4-18 13:09

本帖最后由李逸雪于 2021-4-18 13:11 编辑

众所周知，农历毫无规律，用算法去找规律算难免会有误差，公式要解决这个问题，一般都是两种思路：利用WEBSERVICE函数网抓，或者加一张对照表；那么，如果既不想联网又不想要对照表怎么办？答案就是把对照表直接塞到公式的常量数组里面去……当然，这种想法的第一反应就是公式会很长很长很长，8192字符可能都不够，那么关键就是在于压缩常量数组的字符了。
这里首先要感谢圆舟大佬，他提供了初始常量，并对这种常量结构进行了解释，解释如下图一：

然后我利用UNICODE和UNICHAR对这种7位16进制的常量进行了进一步压缩，在这过程中圆舟也提供了不少缩减字符的思路。
此外还要感谢一位叫神仙的大神，他提供了1900-2050年的对照表，在核对过程中发现了公式中的不少错误，并且修正了几个初始常量错误；之后又请圆舟大佬出手，网抓了2501-2100年的数据进行核对，再进一步修正初始常量，最终得到这个公式，适用范围：1901-2100年。

公式中所用的字符，在编辑状态下显示是正常的，不点进去看是不正常的，但不影响计算结果，可能跟版本也有关系，我19版跟别人365都会不正常，但16版没有，不过我的16版似乎容易卡死。如下图二三：

后面几张表中保留了一些中间步骤，方便各位理解公式

李逸雪 · 发表于 2021-4-18 14:21

现在又不卡了，可能是之前网抓一晚上没关机，公司破电脑受不了了，CPU过热什么的性能下降了，之前关机重开也没用，冷却时间太短，没冷却下来，现在好了。
16版不点进去也显示正常

梅州 · 发表于 2021-4-18 15:08

李逸雪发表于 2021-4-18 14:21
现在又不卡了，可能是之前网抓一晚上没关机，公司破电脑受不了了，CPU过热什么的性能下降了，之前关机重开 ...

人才啊，大佬。

@刘卓 · 发表于 2021-4-18 17:24

雪神是数学大佬

@刘卓 · 发表于 2021-4-18 17:43

真强大，不过千万不能查看公式的计算过程，会卡死的

李逸雪 · 发表于 2021-4-18 20:08

@刘卓发表于 2021-4-18 17:43
真强大，不过千万不能查看公式的计算过程，会卡死的

可能跟版本有点关系，这种字符在16版里比较卡，我16版的电脑配置虽然低，但只拉几个单元格也有点卡，19版的电脑拉了几万行也没卡死

象山海鲜 · 发表于 2021-4-20 16:33

本帖最后由象山海鲜于 2021-4-20 17:27 编辑

参照你的原始数据
换个思路，还是有些卡。

=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))-A2))-MMULT(MID(BASE(UNICODE(MID("뒶뒮멗딦봦붕뚪땪릭뒮뒮멍멍봥뵒뭔뵪륭륛뒛뒗멋묥뚥뛔뫚늶륗뒗뒗뙋뵊뺥뛔떭늶뤷뤮벖법뵊붥뭕땪몭뉝뤭법몕뭊뛊뭕땚듚멛딫딫몕뺕뚪뫕몵뒶멗멗딦뺓붕떪땪륭뒮뒭멍봦봥뵒뭔뭪륭륛뒛멋멋묥뚥뛔뫚몶륗뒗뒗뙋뚥뺥뚲떬몶뤶뤮벖뵊뵊붥떪땪몭뉝뤭법몕뭊뭕뫕땚뒺멛딫딫몓띊뚪뫕듚뒶멗멎봦뺓뵓떪뚵륭뒮뒭멍봥봥뵒붪뭚땭뒭뒛멋멋몥뭒뛒뫚땛뤷뒗뒗뙋뚥뺥뚪몶몮뤮벗벖뵊뵊붥떪땪멭딮딭몕몕뭊뭕뫕땚멝멛딫몓뚓뜩뚪뫕듚뒶멗딧봖뺓뵒붪뚵땭뒮멎먭봕붒뵒",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","闰"))

复制代码

有乱码
上传附件

农历公式-xshx.rar (1.28 MB, 下载次数: 224)

梅州 · 发表于 2021-4-20 16:44

象山海鲜发表于 2021-4-20 16:33
参照你的原始数据
换个思路，还是有些卡。

海版实在是太强了，我以为你只会FREQUENCY函数，原来样样精通啊

魚。。 · 发表于 2021-4-20 17:06

额，我是谁，我在哪儿，我在做什么。你们怎么可以把Excel玩得嫩么有意思的。大海很广阔，E的世界好奇妙。下载，收藏。

李逸雪 · 发表于 2021-4-20 17:14

象山海鲜发表于 2021-4-20 16:33
参照你的原始数据
换个思路，还是有些卡。

太强了！！！！！！！

		自动登录	找回密码
密码			免费注册

[分享] 不联网的公历转农历公式

评分

点评

评分

评分