摘要:
以前的一个项目中遇到过要核对条码的校验码的需求,感觉有时候还是非常有用的,下面提供代码,代码版本为VB.net://根据输入的的条码来计算该条码的校验位Private Function GetCheckDigit(Byal strCode As String) As String Dim intCurVal As Int16 = 0 Dim intChksum As Int16 = 0 Dim chrCur As String Dim intPos As Int16 'Check for invalid characters and calculate check sum For in 阅读全文