7,785
社区成员




Dim value as Long
Dim valueF as Single
value = &HC2C7FAE1
memcpy valueF, value, 4
debug.print valueF
Dim MyDouble, MyByte
MyDouble = 3.488 ' MyDouble 为Double(双精度)。
MyByte = CByte(MyDouble) ' MyByte 值为 3
MyDouble = 3.588
MyByte = CByte(MyDouble) ' MyByte 值为 4