📄 15665.html
字号:
<html>
<head>
<title>请问如何将身份证号码第一个英文转为大写?(书本~彭明柳VB中文专业版 p.312</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>请问如何将身份证号码第一个英文转为大写?(书本~彭明柳VB中文专业版 p.312</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:jojos@titan.seed.net.tw">jojo</a> on July 14, 1999 at 23:51:08:<p>
Option Explicit<br>----------------------------------------------------------<br>Public Function CheckID(ByVal strID As String) As Boolean<br> Dim lngID As Long 'id2到10码的数字<br> Dim intVerify1 As Integer '第一个检查码,按英文特定字母顺序加9得之<br> Dim intVerify2 As Integer '全部检查码之总和<br> Dim strFirst As String 'id第一个英文字母<br> Dim intCounter As Integer '计数器<br> Dim checkSum As Integer<p> strFirst = UCase(Left(strID, 1))<br> lngID = CLng(Mid(strID, 2))<br> CheckID = False<br> ' 检查身份证号码的长度是否为10个字母<br> If Len(strID) <> 10 Then Exit Function<br> ' 检查第一个身份证号码是不是英文字母<br> If strFirst < "A" Or strFirst > "Z" Then Exit Function<br> ' 检查其余各码是不是数字<br> If Not IsNumeric(lngID) Then Exit Function<br> <br> ' 检查编码之正确性<br> intVerify1 = InStr("ABCDEFGHJKLMNPQRSTUVWXYZIO", strFirst) + 9<br> strID = CStr(intVerify1) & CStr(lngID)<br> intVerify2 = Val(Mid(strID, 1, 1))<br> For intCounter = 2 To 10<br> intVerify2 = intVerify2 + Val(Mid(strID, intCounter, 1)) * (11 - intCounter)<br> Next<br> intVerify2 = intVerify2 + Val(Mid(strID, 11, 1))<br> CheckID = IIf(checkSum Mod 10 = 0, True, False)<br>End Function<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 15665-->
<!--top: 15677--><li><a href="15677.html">UCase()</a> <b>cww</b> <i>08:24:04 7/15/99</i>
(<!--responses: 15677-->0)
<ul><!--insert: 15677-->
</ul><!--end: 15677-->
</ul><!--end: 15665-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -