单精度浮点数转十进制方法
一、单精度浮点数符合IEEE754标准,32位,前面第一位是符号位,接下来的8位是指数,最后23位是尾数。编程中了解这些就够了,转换方法如下:
二、VB中转换示例:
'VB浮点数转换程序
Option Explicit '利用函数CopyMemory转换
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Dim F As Single '十进制数
Dim A(3) As Byte '16进制浮点数
Private Sub Command1_Click() '转换为十进制数
A(0) = CLng("&H" & Text1(3).Text) '16进制字符转数字
A(1) = CLng("&H" & Text1(2).Text)
A(2) = CLng("&H" & Text1(1).Text)
A(3) = CLng("&H" & Text1(0).Text)
CopyMemory F, A(0), 4 '转换
Text2.Text = F '显示结果
End Sub
Private Sub Command2_C