自定义宏公式提取15位和18位身份证号码中的出生年月和性别

wudingyong

自定义宏公式提取15位和18位身份证号码中的出生年月和性别（求专家制作自动年月日宏公式，自动性别宏公式），用假设函数很麻烦的，自已用还好说，把原来制作好的复制出来改改区域就行，可是有时人家问到，要讲大半天，不如求专家制作一个自动宏公式。
各位路过的大侠，不要以为这是小题在作，制作好，作为自定义工具公式是很好的。我在网上可找了好久了，就是没找到，特意在这里请教，我知道，这里的专家们很热心。

[ 本帖最后由 wudingyong 于 2009-7-5 12:11 编辑 ]

赵国辉

Function xb(rng) As String
    xb = IIf(Mid(rng, 15, 3) Mod 2, "男", "女")
End Function

wudingyong

还没完全达到我的要求，麻烦楼主再给修改增加功能一下，这里先谢了。

wudingyong

18位和15位的身分证号码是混合的。

wudingyong

生成，如果加上不是15位和18位则生成空白最好。

wudingyong

各位专家、大侠，我这个贴子好像不热门，可是这确实是我在工作中经常遇到的问题。我都遇到至少五个人问我了，用假设公式太麻烦了。

赵国辉

Function xb(rng) As String
    If Len(rng) = 15 Or Len(rng) = 18 Then
        xb = IIf(Mid(rng, 15, 3) Mod 2, "男", "女")
    Else
        xb = ""
    End If
End Function

赵国辉

其实要做这个很麻烦，需要判断的地方很多
1、判断前六位的省、市、地区码是否正确
2、判断年月日是否正确（月[1~12],日[1~31],闰年2月的问题，年份是否过小或过大）
3、判断出生流水号是否正确（小于1000）
4、最后一位是否在十六进制范围内
5、其他没考虑到得，╮(╯▽╰)╭

wudingyong

谢了，我先看看。

wudingyong

是的，很麻烦，用假设公式也麻烦，不可生成出生年月，也可只看是不是15位与18位就进行判断生成就行了，当然加上判断年月日是否正确（月[1~12],日[1~31],闰年2月的问题也好，其它就不必考虑了。楼主辛苦了，楼主有时间可做一个给小弟。