VB.net-VSTO身份证信息功能介绍

哆哆Excel

发布于 2023-12-14 09:26:41

1420

发布于 2023-12-14 09:26:41

文章被收录于专栏：哆哆Excel哆哆Excel

VB.net-VSTO身份证-身份证信息

1. 解决问题

身份证信息功能

（1）校验：检查是否正确

（2）出生日期

（3）退休日期（男60，女55）

（4）年龄

（5）生肖

（6）性别

2完成效果

3.操作演示：https://mpvideo.qpic.cn/0bc3j4aa4aaaemaffb3yhrsvat6dbzhqadqa.f10002.mp4?

4.介绍原理

退休日期

这个要先判断身份证号是否正确，再判断男女，再按男60女55计算出退休日期

5.部分关键代码

我创建了一个类文件，IDCardInfo.vb，以上六个功能都整合成这个类文件的属性。

其中一个属性

使用方法

先要进行实例化，再转入参数，就可以取得相关的属性

For Each r As Excel.Range In chkRngs
If r.Text<>""Then
Dim info AsNew IDCardInfo(r.Text)
                outRng.Offset(k).Value = info.RetirDate
EndIf
         k +=1
Next

6.演示出错调试

'类文件Public Class IDCardInfo
 '###取得年龄
Public ReadOnly Property Age() As Integer
        Get
If IsValid() = False Then
'Return "Invalid idCard"   '出错的语句
Return 0
Else
                Dim currentYear As Integer = DateTime.Now.Year
                Dim birthYear As Integer = CInt(idCardNumber.Substring(6, 4))
Return currentYear - birthYear
            End If
        End Get
    End Property

解析，这个年龄函数返回值：是整数型，AS Integer

一开始是设计时返回return “Invalid idCard”是String，所以出错了，只要修改为：Return 0就可以啦

所以我们在以后的使用中如果出现年龄数据为0的就是身份证号不正确的

完成