以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 性别问题? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158946) |
|
-- 作者:我非英雄 -- 发布时间:2020/12/8 10:52:00 -- 性别问题? 如何通过身份证号,来识别出性别? 能给个公式学习一下吗? |
|
-- 作者:有点蓝 -- 发布时间: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 |
|
-- 作者:我非英雄 -- 发布时间:2020/12/8 11:18:00 -- 我用表达式的方式 是错的,请指点 一下 IIF(SubString([身份证号],17,1)/ 2 <> 0,\'男\',\'女\') 那个地方错了
|
|
-- 作者:我非英雄 -- 发布时间:2020/12/8 11:23:00 -- IIF(SubString([身份证号],17,1) /2 = 0,\'男\',\'女\') 这样弄也不出结果
|
|
-- 作者:有点蓝 -- 发布时间:2020/12/8 11:56:00 -- 在表达式中还支持下列算术运算符: +(加) -(减) *(乘) /(除) %(模数)
|