[求助]解释一下这个公式！！谢谢！

wangrui

 

[em17][em17][em17]

pengqizhi

这个帖子介绍的方法确实好

但是我有个疑问：

能不能加入一个条件，当身份证为15位时候按这种方法进行转换，如果为18位的话，就直接把身份证号码引用过来就可以了。

gouweicao78

QUOTE:

以下是引用pengqizhi在2007-1-23 16:13:36的发言：

这个帖子介绍的方法确实好

但是我有个疑问：

能不能加入一个条件，当身份证为15位时候按这种方法进行转换，如果为18位的话，就直接把身份证号码引用过来就可以了。

本身这个公式就是这样，IF(Len(a2)=15,……转换公式,A2)

lyb200

非常感谢

jlumath

谢谢山菊花，顶一下～～～

支持解释贴！

cdyh2

sahelo版主不在

否则又要沉底了

[em05]

chat163

QUOTE:

以下是引用cdyh2在2007-1-24 15:19:32的发言：

sahelo版主不在

否则又要沉底了

[em05]

我想这个sahelo版主肯定早知道了,都是06年7月份的帖子了

[em06]

zz5151353

山菊花兄 不愧是位超級版主 , 也不愧是一位好老師 .[em17][em23][em23][em23]

香川群子

原来还可以如此计算的。 看到过别人编写的代码如下。 好像17个相乘计算的权重代码值不一样的哦。 Private Function getCheckCode(ByVal sfID As String) As String

'身份证号码升位和校验函数

'

'输入15位号码返回18位新号码

'输入18位号码计算是否正确，如果正确返回原号码否则返回"错误"

'如果号码长度不等于15或18位返回"错误"

'

Dim strJiaoYan As Variant

Dim intQuan As Variant

strJiaoYan = Array("1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2")

intQuan = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1)

Dim strTemp As String

Dim intTemp As Integer

Dim i As Integer

If Len(sfID) = 15 Then

strTemp = Mid(sfID, 1, 6) & "19" & Mid(sfID, 7)

ElseIf Len(sfID) = 18 Then

strTemp = Left(sfID, 17)

Else

getCheckCode = "错误"

Exit Function

End If

For i = 0 To Len(strTemp) - 1

intTemp = intTemp + Mid(strTemp, i + 1, 1) * intQuan(i)

Next

intTemp = intTemp Mod 11

getCheckCode = strTemp & strJiaoYan(intTemp)

If Len(sfID) = 18 And strJiaoYan(intTemp) <> Right(sfID, 1) Then getCheckCode = "错误"

End Function

liujy

谢谢山菊花老师！你掌握Excel的水平还不是一般的高啊！祝贺山菊花老师当选MVP。