又掉馅饼咯,(*^__^*)...嘻嘻
Public Function Ascii2Hex(ByVal p As Char) As Integer
If (p >= "0"c) AndAlso (p <= "9"c) Then
Return CType(AscW(p), Integer) - &H30
End If
If (p >= "A"c) AndAlso (p <= "F"c) Then
Return CType(AscW(p), Integer) - CType(AscW("A"), Integer) + &HA
End If
If p >= "a"c AndAlso p <= "f"c Then
Return CType(AscW(p), Integer) - CType(AscW("a"), Integer) + &HA
End If
Return -1
End Function
转成VC++.net就给40分。