如何取得Double值各个Byte的内容_access模块-access类模块-access函数-access VBA

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

时间：2004-09-26 15:49 来源：http://www.tech521.com/ 作者：佚名阅读：次

重点在於使用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

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：如何得到某年每个月的第一天是星期几
下一篇：堤与像素相互转换的通用函数

相关内容

·关于 Partition 函数在分组查询中的应
·Access算术运算符的含义和说明表
·mid函数的另类用法
·access制作程序运行进度框
·Function与Sub的异同（函数调用）
·Access判断某个数值是否为某个数据类型
·select case后面语句块的值的四种格式
·vba条件语句的两种表示方法
·Access几种数据类型初始化的值
·Access vba null与＂＂空字符串的区别
·access vba 数据类型表
·Access变量的命名规则
·Access中EXIT Sub与End Sub的区别
·Access vba中参数前关键字ByRef和ByVal
·Access列表框快速全选的技巧【最快】
·vba函数的数据类型强制转换