单精度浮点 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 单精度浮点

共有2882人关注过本帖树形打印复制链接主题：单精度浮点

shyilin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：271 积分：2334 威望：0 精华：0 注册：2016/6/3 8:28:00

单精度浮点

Post By：2021/6/17 15:50:00 [显示全部帖子]

Dim st1 As String = "41E0F000"
Dim st2 As String = DecToBin(HexToDec(st1))
If st2.Length< 32 Then
st2="0" & st2
End If
Dim st3 As String =st2.SubString(9)
Dim st4 As String = st3.SubString(BinToDec(st2.SubString(1,8))-127)
Dim st6 As String =BinToDec("1" & st3.SubString(0,BinToDec(st2.SubString(1,8))-127)) & "." & BinToDec(st4.SubString(0,st4.LastIndexOf("1")+1))
Dim st8 As Double

st8= (-1)^st2.SubString(0,0) * CDbl(st6)

我这样写没办法算

红字老师帮忙看看呢怎么算呢

这个是算单精度浮点

老师还有其他方法帮忙改一下呢