以文本方式查看主题

-  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
--  
在表达式中还支持下列算术运算符: 

+(加) 

-(减) 

*(乘) 

/(除) 

%(模数) 

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