Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

如何取得Double值各个Byte的内容

1970-1-1 08:00| 发布者: 佚名| 查看: 1601| 评论: 0

重点在於使用LSet的方式将某个Structure Copy 到另外的Structure
Private Type A_Double
    dblValue as Double
End Type
Private type a_ByteAry
    ByteVal(0 to 7) as Byte
End Type

Private Sub Form_Load()
Dim dbl As A_Double, i As Long
Dim byteAry As a_ByteAry
dbl.dblValue = 5.1
LSet byteAry = dbl
For i = 0 To 7
  Debug.Print byteAry.ByteVal(i)
Next i
End Sub

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

如何取得Double值各个Byte的内容

最新评论

相关分类