📄 6561.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>Re: 统一编号</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 统一编号</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by jo on October 18, 1998 at 02:00:51:<p>
In Reply to: <a href="6548.html">统一编号</a> posted by 阿潭 on October 17, 1998 at 11:41:20:<p>
: 请问如何CHECK统一编号是否正确<p>附上下列程式,<p>Function Chk_Ban(ID As String) As Integer   '检查统一编号<br>    Dim alpha_tbl  As String<br>    Dim c As String, cc As Integer<br>    Dim i As Integer, sum As Integer, errflag As Integer<p>    alpha_tbl = "12121241"<p>    errflag = 0<br>    If Len(ID) < 8 Then errflag = 1: GoTo Exit_Main<br>    For i = 1 To 8<br>        c = Mid$(ID, i, 1)<br>        If i <= 8 Then<br>           If c >= "0" And c <= "9" Then<br>              cc = Val(Mid$(alpha_tbl, i, 1)) * Val(c)<br>              If cc < 10 Then<br>                 sum = sum + cc<br>              Else<br>                  Do<br>                    sum = sum + (cc Mod 10)<br>                    cc = cc \ 10<br>                  Loop Until cc <= 0<br>              End If<br>           Else<br>              errflag = 1<br>           End If<br>        Else<br>           If (Val(c) + (sum Mod 10)) Mod 10 <> 0 Or (c < "0" Or c > "9") Then errflag = 1<br>        End If<br>        If errflag = 1 Then Exit For<br>    Next i<p>    If sum Mod 10 <> 0 Then<br>       errflag = 1<br>       If Mid$(ID, 7, 1) = "7" And ((sum - 1) Mod 10 = 0) Then<br>          errflag = 0<br>       End If<br>    End If<p>Exit_Main:<br>    If errflag = 1 Then<br>       Chk_Ban = 0<br>    Else<br>       Chk_Ban = 1<br>    End If<p>End Function<p><p><br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 6561-->
</ul><!--end: 6561-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -