自己写的身份证号码15位升18位的函数

今天在网上找到一个身份证号码15位升18位的算法，就随手自己写了一个函数来实现 Public Function s15to18()Function s15to18(ByVal str15 As String) As String        Dim strtemp As String        strtemp = Replace(str15, str...