[56期函数]反查日期——农历日期转为公历日期

donghan · 发表于 2010-2-1 14:00

原帖由 lzzgzby 于 2009-12-30 15:56 发表
A.B.E列为已知列
384
=INDEX(A:A,MATCH(--LEFT(TEXT(G8,"e"),4),YEAR(A$2:A$2491),)+MATCH(INDEX(E:E,TEXT(SUBSTITUTE(MID(SUBSTITUTE(TEXT(G8,"-m"),"-",REPT(" ",8)),9,8),"闰",),"[=12]!11;0")+1),OFFSET(B$1,M ...

请确认日期
2033-11-25

donghan · 发表于 2010-2-1 15:09

原帖由 函数菜鸟 于 2010-1-22 22:28 发表
=LOOKUP(LEFT(SUBSTITUTE(G8,"闰",),6)+99,IF(B$2:B$2491=IF(COUNTIF(G8,"*闰*"),"闰",)&INDEX(E:E,1+MONTH(TEXT(LEFT(SUBSTITUTE(G8,"闰",),7),"0;@!1"))),A$2:A$2491+ABS(RIGHT(TEXT(G8,"d"),2))-1))
数组公式
没 ...

6楼请确认
2033-闰11-5

donghan · 发表于 2010-2-1 15:10

原帖由 lanyuu 于 2010-1-21 14:05 发表
公式写出来了，没有用辅助列267个字符，但是数组公式速度无法忍受

速度有所改善，可以忍受，380字符，不知道是否能精简

5楼最后附件请确认
1900-1-28

lanyuu · 发表于 2010-2-1 16:04

原帖由 donghan 于 2010-2-1 15:10 发表

5楼最后附件请确认
1900-1-28

谢谢,不要意思,误人子弟了,没注意,1月份的全不对
应该是i8=INDEX($A$1:$A$2492,MATCH(IF(ISERROR(FIND("闰",G8)),"","闰")&INDEX($E$2:$E$13,SUBSTITUTE(MID(TEXT(SUBSTITUTE(G8,"闰",""),"e-mm-dd"),6,2),"-","")),OFFSET($B$1,SMALL(IF($B$2:$B$2491=$E$2,ROW($B$2:$B$2491),2492),LEFT(TEXT(G8,"e-mm-dd"),4)-1899)-1,0,13),0)+SMALL(IF($B$2:$B$2491=$E$2,ROW($B$2:$B$2491),2492),LEFT(TEXT(G8,"e-mm-dd"),4)-1899)-1)+RIGHT(TEXT(SUBSTITUTE(G8,"闰",""),"e-mm-dd"),2)-1

lanyuu · 发表于 2010-2-1 21:19

使用辅助列后速度应该没问题,287字符

wshcw · 发表于 2010-2-1 22:47

原帖由 lanyuu 于 2010-2-1 21:19 发表
使用辅助列后速度应该没问题,287字符

思路很不错,学习你的公式,顺便简化一点:
=SMALL(IF(B$2:B$2491=E$2,ROW(B$1:B$2490),5^5),LEFT(TEXT(G8,"e"),4)-1899)
=OFFSET(A$1,MATCH(IF(COUNTIF(G8,"*闰*"),"闰",)&INDEX(E$2:E$13,SUBSTITUTE(MID(TEXT(SUBSTITUTE(G8,"闰",),"e-mm"),6,2),"-",)),OFFSET(B$1,H8,,13),)+H8-1,)+ABS(-RIGHT(TEXT(G8,"dd"),2))-1

[ 本帖最后由 wshcw 于 2010-2-1 22:59 编辑 ]

lzzgzby · 发表于 2010-2-5 19:04

=INDEX(A:A,MATCH(--LEFT(TEXT(G8,"e"),4),YEAR(A$2:A$2491),)+MATCH(INDEX(E:E,TEXT(SUBSTITUTE(MID(SUBSTITUTE(TEXT(G8,"-m"),"-",REPT(" ",8)),9,8),"闰",),"[=12]!11;0")+1),OFFSET(B$1,MATCH(--LEFT(TEXT(G8,"e"),4),YEAR(A$2:A$2491),),,14),)+(SUBSTITUTE(MID(SUBSTITUTE(TEXT(G8,"-m"),"-",REPT(" ",8)),9,8),"闰",)="12")+IF(ISERR(-G8),,(YEAR(G8)=2033)-(MONTH(G8)=11))+COUNTIF(G8,"*闰*"))+ABS(-RIGHT(TEXT(G8,"d"),2))-1

wshcw · 发表于 2010-2-5 22:54

汗,竞赛期间原来只有donghan和子元女王两人做对,不过lanyuu,函数菜鸟两人公式完美得不错,评分就不改了.

webspecial · 发表于 2010-12-23 11:00

这个不错，很实用，不过农历速查表里的数字有些是不准确的，比如公历1955/8/6，农历是6/19，在该表中反映的是6/20，农历月分对照的起始日有偏差

总体来说很实用

一指禅 · 发表于 2011-3-4 03:18

原帖由 webspecial 于 2010-12-23 11:00 发表
这个不错，很实用，不过农历速查表里的数字有些是不准确的，比如公历1955/8/6，农历是6/19，在该表中反映的是6/20，农历月分对照的起始日有偏差

总体来说很实用

& "B5500CE,535157F,4DA00D6,A5B00CB,457037C,52B00D4,A9A0883,E9500DA,6AA00D0,AEA0680," _
修改为
& "B5500CE,535157F,4DA00D6,A5B00CB,457137C,52B00D4,A9A0883,E9500DA,6AA00D0,AEA0680," _
试试

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

[Excel 函数与公式] [56期函数]反查日期——农历日期转为公历日期

本帖子中包含更多资源

本帖子中包含更多资源

回复 11楼 donghan 的帖子

评分