7,789
社区成员
发帖
与我相关
我的任务
分享10位以上的大十进制数转换成十六进制问题（VB）
我需要把10位的十进制数转化位十六进制形式，HEX 函数不支持，提示overflow；哪位高人曾解决过请赐教（VB中）
谢谢!
谢谢!
...全文
请发表友善的回复…
发表回复
Lionking1027 2003-10-14
- 打赏
- 举报
估计只有of123()的方法了,我是没别的办法的
j4sxw 2003-10-14
- 打赏
- 举报
顶
watt 2003-10-14
- 打赏
- 举报
只能自己写一个转换函数了,它只能转
80000000 至 7FFFFFFF 即 -2,147,483,648 至 2,147,483,647 之间的数
所以你只需用 这两个边界进行判断。具体的你自己做吧。
80000000 至 7FFFFFFF 即 -2,147,483,648 至 2,147,483,647 之间的数
所以你只需用 这两个边界进行判断。具体的你自己做吧。
of123 2003-10-14
- 打赏
- 举报
给你个例子：
Public Function Dec2Hex(ByVal x As String) As String
Dim dec, Temp, remain As Double
If Len(x) > 10 Then
MsgBox "输入的数字超过上限", vbExclamation
Exit Function
End If
dec = Val(x)
If dec > 4294967295# Then
MsgBox "输入的数字超过上限", vbExclamation
Exit Function
End If
Do
remain = Int(dec / 16)
Temp = remain * 16
Dec2Hex = Hex(dec - Temp) & Dec2Hex
dec = remain
Loop While dec
If Len(Dec2Hex) Mod 2 Then
Dec2Hex = "0" & Dec2Hex
End If
End Function
Public Function Dec2Hex(ByVal x As String) As String
Dim dec, Temp, remain As Double
If Len(x) > 10 Then
MsgBox "输入的数字超过上限", vbExclamation
Exit Function
End If
dec = Val(x)
If dec > 4294967295# Then
MsgBox "输入的数字超过上限", vbExclamation
Exit Function
End If
Do
remain = Int(dec / 16)
Temp = remain * 16
Dec2Hex = Hex(dec - Temp) & Dec2Hex
dec = remain
Loop While dec
If Len(Dec2Hex) Mod 2 Then
Dec2Hex = "0" & Dec2Hex
End If
End Function
在编程领域，转换数字的不同进制是常见的操作。...记住，`Hex()`函数是将十进制数转换为十六进制字符串的关键，而`Val()`函数则用于将字符串转换为数值，这两个函数通常是进行进制转换的黄金搭档。
