求助一个算法

cyfantasy

假如某人身份证为350306750324653或者35030619750324653时

那么能否设置公式

计算出男或者女的退休日

条件:男的在满60岁的下一个月的1日退休;女的在满55岁的下一个月的1日退休.

dengyf

使用MID 函数就可以了。

dengyf

呵呵，没这么简单，尽然要用那么多IF。

红池坝

还必须用if，而且还得多重嵌套

首先是用len()自动判断号码长度，因为15位和18位信息位置不一样

然后是用mid()＋mod（）判断男女，如果是15位也可以用right()判断，因为15位中性别是最后一位

再才是用mid()＋date()等取得出生日期

最后用加法求得退休日期：年加60（女55）月加1（注意进位），也可以直接加721个月（女加661）

红池坝

我先写一个15位的公式：

=if(mod(right(a2,1),2)=1,if(mid(a2,9,2)="12",date(VALUE("19"&MID(A2,7,2))+61,1,VALUE(MID(A2,11,2))),date(VALUE("19"&MID(A2,7,2))+60,VALUE(MID(A2,9,2))+1,VALUE(MID(A2,11,2)))),if(mid(a2,9,2)="12",date(VALUE("19"&MID(A2,7,2))+56,1,VALUE(MID(A2,11,2))),date(VALUE("19"&MID(A2,7,2))+55,VALUE(MID(A2,9,2))+1,VALUE(MID(A2,11,2)))))

18位的可以参照

然后在外面用IF（）：

if(len(a2)=15,15位的公式,18位的公式)

cyfantasy

可是还有个问题.如果是12月的话是不是要进到下一年的1月份.应该不会变成13月吧?

dengyf

感觉还是用VBA编一个还要来的简单一点。

红池坝

呵呵，你没有仔细看我的公式吧，其中已经处理了12月的：看看下面的内容就明白了：



if(mid(a2,9,2)="12",date(VALUE("19"&MID(A2,7,2))+56,1,VALUE(MID(A2,11,2)))……（这个是女的，男的前面也有这个内容的）

你得把我的公式在具体的环境里去试试啊，主要是换男女、换出生日期，看看得出的结果对不对再说嘛