程式碼如下: ' HKID 決定輸入裡的香港身份證編號是否正確 ' 輸入:sInput: "AA999999(9)" 或 "A999999(9)" ' 輸出:香港身份證編號是否正確 Function HKID(sInput As String) As Boolean Dim iAcc As Integer ' 累加變數 Dim sCheck As String
www.excelhelp.net