以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这些代码应该怎么写才对？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122889)
--  作者：xxfoxtable
--  发布时间：2018/8/3 16:25:00
--  这些代码应该怎么写才对？
If (Date.Today - ReadBirthDay(sheet(n,6).value))=Date.Today.Year Or (Date.Today -ReadBirthDay(sheet(n,6).value))>130
              Sheet(n,22).Value  ="身份证号异常未导入!!"
endif
--  作者：有点甜
--  发布时间：2018/8/3 17:14:00
--  

参考代码

 

Dim sfz = "440881201103110638"
If ValidPIN(sfz) = False Then
    msgbox("身份证异常")
Else
    Dim y = Date.Today.year-cdate(ReadBirthDay(sfz)).year
    msgbox(y)
End If