大家好，欢迎来到IT知识分享网。
今天在玩百度知道，为网友做了一个如题的自定义函数。代码如下：
Function SJZ(A As String) As Long
SJZ = 0
Dim MYC As String
For I = 1 To Len(A)
MYC = Mid(A, Len(A) – I + 1, 1)
Select Case MYC
Case “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “0”
SJZ = SJZ + Val(MYC) * 16 ^ (I – 1)
Case “A”
SJZ = SJZ + 10 * 16 ^ (I – 1)
Case “B”
SJZ = SJZ + 11 * 16 ^ (I – 1)
Case “C”
SJZ = SJZ + 12 * 16 ^ (I – 1)
Case “D”
SJZ = SJZ + 13 * 16 ^ (I – 1)
Case “E”
SJZ = SJZ + 14 * 16 ^ (I – 1)
Case “F”
SJZ = SJZ + 15 * 16 ^ (I – 1)
End Select
Next I
End Function
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://haidsoft.com/161512.html
