VB.NET，八⼀十六进制转十进制的函数

VB.Net自带函数：
十进制转八进制：Oct(num)
十六进制转八进制：oct("&H" & num)
十进制转十六进制：hex(num)
八进制转十六进制：hex("&O" & num)
十六进制转换为十进制：CLng("&H" & num)

'此函数用于十进制到二进制
Private Function Bin(Number As Long) As Long
Dim Div_value As String
Do
Div_value = (Number Mod 2) & Div_value
Number = Int(Number / 2)
Loop Until Number < 2
Bin = Number & Div_value
End Function

'此函数用于二进制到十进制
Private Function value_Bin(Number As Long) As Long
Dim Temp_value As Long, Cyc As Long
For Cyc = 0 To Len(Str(Number))
If Cyc = Len(Str(Number)) Then
value_Bin = Temp_value + Val(Mid(Str(Number), Cyc, 1))
Exit For
End If
If Cyc > 0 Then Temp_value = (Temp_value + Val(Mid(Str(Number), Cyc, 1))) * 2
Next Cyc
End Function

'====写入以上函数后转值操作：
'十进制到十六进制：Hex(十进制数值)
'十进制到八进制：Oct(十进制数值)
'十进制到二进制：Bin(十进制数值)
'二进制到十进制：value_Bin(二进制数值)
'八进制到十进制：Val("&O" & 八进制数值)
'十六进制到十进制：Val("&H" & 十六进制数值)

比如
msgbox DEC_to_BIN(10)
就会返回一个10转换为十进制后的结果

或者简单点就用
VB自带函数：
十进制转八进制：Oct(num)
十六进制转八进制：oct("&H" & num)
十进制转十六进制：hex(num)
八进制转十六进制：hex("&O" & num)

十六进制转换为十进制
Dim str As String
str = Text2.Text
Text10.Text = CLng("&H" & str)

散打