DoubleToHex 問題

[jimce770514]

程式碼如下，已知道HEX(00004248) 為50
不過我把我的程式帶進去50轉出來卻是00004049

Public Function DoubleConverToHex(Str As Double) As String
Dim B() As Byte = BitConverter.GetBytes(Str)
Dim SB As New System.Text.StringBuilder(B.Length)

'Return B(7) & B(8)
For I As Integer = 0 To B.Length - 1
SB.Append(Hex(B(I)))
Next
Dim S As String = SB.ToString
Return (S)
End Function




End Function

[91program]

难道是传说中的 VB？？？

[别以为你站在珠峰就能看到全世界]

理解不了你要说的，vb也不懂。

[能写程序-会种庄稼]

引用 1 楼 91program 的回复:

难道是传说中的 VB？？？

引用 2 楼 accessysq 的回复:

理解不了你要说的，vb也不懂。

这个版懂VB，.net之类的很少吗？ 反正我是不懂，哈哈

[xmxqiyan]

Public Function DoubleConverToHex(Str As Double) As String 改为 Public Function DoubleConverToHex(Str As Single) As String 试试