VS-VB.NET十进制转换为十六进制保留需要的位

 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