一个将15的身份证号升为18位的函数(VB)

最新推荐文章于 2025-05-12 16:10:32 发布

转载最新推荐文章于 2025-05-12 16:10:32 发布 · 670 阅读

文章标签：

#vb

数据库专栏收录该内容

3935 篇文章

订阅专栏

本文介绍了一种将15位身份证号码升级到18位的算法实现，该算法遵循GB11643-1999标准，通过添加年份前缀及计算校验码完成转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在新旧身份证同时并存使用的情况下，最好将升位后的18位方式保存在中，下面的函数能将用户输入的15位数据转化为18位。

FunctionIDCode15to18(sCode15AsString)AsString
   '* 功能:将15的身份证号升为18位(根据GB11643-1999)
   '* 参数:原来的号码
   '* 返回:升位后的18位号码
   DimiAsInteger
   DimnumAsInteger
   DimcodeAsString
   num=0
   IDCode15to18=Left(sCode15,6)+"19"+Right(sCode15,9)
   ' 计算校验位
   Fori=18To2Step-1
     num=num+(2^(i-1)Mod11)*(Mid(IDCode15to18,19-i,1))
   Nexti
   num=numMod11
   SelectCasenum
   Case0
     code="1"
   Case1
     code="0"
   Case2
     code="X"
   CaseElse
     code=Trim(Str(12-num))
   EndSelect
   IDCode15to18=IDCode15to18+code
EndFunction