Public Function decToHex(ByVal decNumber As Double, ByVal reservedDigits As Integer) As String '将十进制转换为十六进制字符串,保留需要的位
Dim hexStr = Hex(decNumber)
If hexStr.Length < reservedDigits Then
For i As Integer = 1 To reservedDigits - hexStr.Length
hexStr = "0" & hexStr
Next
ElseIf hexStr.Length >= reservedDigits Then
hexStr = Strings.Right(hexStr, 4)
End If
Return hexStr
End Function
VS-VB.NET十进制转换为十六进制保留需要的位
最新推荐文章于 2024-08-02 10:41:02 发布