VB.net-VSTO随机生成不重复的N个模拟身份证号
VB.net-VSTO随机生成不重复的N个模拟身份证号
哆哆Excel
发布于 2023-12-19 20:54:04
发布于 2023-12-19 20:54:04
问题
在日常模拟数据中常常需要一些身份证号，基本要求:(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中任意取一个数
其他规则请看图
本文参与?腾讯云自媒体分享计划，分享自微信公众号。
原始发表：2023-12-16，如有侵权请联系?cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读