[VB]十进制/十六进制/二进制 间的转换

 

十进制/十六进制/二进制 间的转换

---

1，十进制转十六进制

Function  Dec2Hex(value  As   String )  As   String
    value  =   Trim $(value)
    
     If   Len (value)  =   0   Then
        Dec2Hex  =   ""
     Else
        Dec2Hex  =   Hex (value)
     End   If
    
     If   Len (Dec2Hex)  =   1   Then
        Dec2Hex  =   " 0 "   &  Dec2Hex
     ElseIf   Len (Dec2Hex)  <>   2   Then
        Dec2Hex  =   " ERR "
         MsgBox  ( " 変数の長さはただしくない " )
     End   If

End Function

 

2，十六进制转十进制

Function  Hex2Dec(value  As   String )  As   Byte
    value  =   Trim $(value)
    
     If   Len (value)  =   0   Then
         MsgBox   " error "
         Exit   Function
     End   If
    
    Hex2Dec  =   CByte ( " &H "   &  value)

End Function

 

2，十进制转二进制

以下VB函数可以完成十进制转换二进制的工作。另外，这个函数还加入了对二进制长度的判断，如果转换出来的二进制长度低于最小值，函数会自动在二进制字符串前补0。

Public   Function  DecimalToBinary(DecimalValue  As   Long , MinimumDigits  As   Integer )
As   String

'  Returns a string containing the binary
'  representation of a positive integer.

Dim  result  As   String
Dim  ExtraDigitsNeeded  As   Integer

'  Make sure value is not negative.
DecimalValue  =   Abs (DecimalValue)

'  Construct the binary value.
Do
    result  =   CStr (DecimalValue  Mod   2 )  &  result
    DecimalValue  =  DecimalValue    2
Loop   While  DecimalValue  >   0

'  Add leading zeros if needed.

ExtraDigitsNeeded  =  MinimumDigits  -   Len (result)
If  ExtraDigitsNeeded  >   0   Then
    result  =   String (ExtraDigitsNeeded,  " 0 " )  &  result
End   If

DecimalToBinary  =  result

End Function