Foxtable(狐表)用户栏目专家坐堂 → 性别问题?


  共有3182人关注过本帖树形打印复制链接

主题:性别问题?

帅哥哟,离线,有人找我吗?
我非英雄
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:450 威望:0 精华:0 注册:2020/3/9 16:19:00
性别问题?  发帖心情 Post By:2020/12/8 10:52:00 [只看该作者]

如何通过身份证号,来识别出性别?  能给个公式学习一下吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/8 10:58:00 [只看该作者]

https://zhidao.baidu.com/question/620666864594522852.html

Dim s As String = "123456789012345678"
msgbox(s.SubString(16,1))
If s.SubString(16,1) Mod 2 = 0 Then
    msgbox("女")
Else
    msgbox("nan")
End If

 回到顶部
帅哥哟,离线,有人找我吗?
我非英雄
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:450 威望:0 精华:0 注册:2020/3/9 16:19:00
  发帖心情 Post By:2020/12/8 11:18:00 [只看该作者]

我用表达式的方式  是错的,请指点 一下

IIF(SubString([身份证号],17,1)/ 2 <> 0,'男','女')   


那个地方错了

 回到顶部
帅哥哟,离线,有人找我吗?
我非英雄
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:450 威望:0 精华:0 注册:2020/3/9 16:19:00
  发帖心情 Post By:2020/12/8 11:23:00 [只看该作者]

IIF(SubString([身份证号],17,1) /2 =  0,'男','女')


这样弄也不出结果

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/8 11:56:00 [只看该作者]

在表达式中还支持下列算术运算符: 

+(加) 

-(减) 

*(乘) 

/(除) 

%(模数) 

IIF(SubString([身份证号],17,1) % 2 =  1,'男','女')

 回到顶部