问题
在日常模拟数据中常常需要一些身份证号,基本要求:(1)一批不重复(2)18位 |
---|
完成效果图
操作演示
全屏横屏观看,效果更好
点击命令随机数据--生成n个模拟身份证号选择要生成数据的区域确定就可以生成不重复的n个18位的模拟身份证号 |
---|
关键代码
此代码在类文件Public Class YhdRandClass中,是这类文件的一个函数,返回值是一个String
使用方法
先实例化,再输出
Dim myRand As New YhdRandClass
Dim resArr() As String = myRand.GetRandOneIdCard()
//实例化,再输出一个身份证号
代码解析
【1-6位】:在100000-999999之间任意取一个数
【7-10位年】:再计算今年的年份。再后退150,再任意取一个数,如:今年是3150年,那么就是在3000-3150之间取一个数
【11-12位月】:random.Next(1, 13)取1-12中任意一个数
知识点:函数:public virtual int Next (int minValue, int maxValue)
返回值是:返回值的范围包括minValue但不包括maxValue
【13-14位日】:
先计算上取得的月,共有多少天,如:28天,30天,31天。如果是28天就在1-28中任意取一个数
其他规则请看图