以下是引用bccn201203在2012-9-24 23:23:47的发言：

代码没问题

Do Case     

            Case  Len(Src) = 15
                Src = Left(Src, 6) + "19" + Substr(Src, 7)
            Case Len(Src) = 18
                Src = Left(Src, 17)
            Otherwise      

以下是引用bccn201203在2012-9-24 23:31:08的发言：

这个地方错了
右边取1位，取的是第17位数字，不是第18位数字

以下是引用有容就大在2012-9-24 23:41:03的发言：

哦 是 啊 你无敌强悍啊 五体投地
你怎么发现的？ 我调试了半天都没找出来

以下是引用bccn201203在2012-9-24 23:49:46的发言：

那段代码本身也没有错误，调试是查不出来的，因为最后的校验方法没有错。就从你身份证传递参数[SRC]查起，看到了个[15位]，就发现了问题。

以下是引用有容就大在2012-9-24 23:56:09的发言：

呵呵 牛X
还有个问题 我那个检查日期的函数 是用DATE()函数的返回值来判断的 为什么输入正常日期 可以 输入的不是正常日期
程序就跳出来了 根本就不跟IF ELSE 走？ 比如if empty(date(1967, 67, 4)) 程序会暴走。。。

以下是引用有容就大在2012-9-25 00:06:03的发言：

我想也是 全靠系统有点偷懒啦 呵呵