Dim str as string = Sheet(n,3).Value
If str = "" orelse str.length <> 18 orelse str.substring(6,4) < "1898" orelse str.substring(6,4) > cstr(date.today.year) then
加好友 
发短信
Post By：2019/1/4 11:13:00 [显示全部帖子]
