?? 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 + -