Method
Converts a BCD number to a double.
Category
BCD
Syntax
Function BcdToDouble(ByVal hBcd As Long) As Double
hBcd
The handle to the BCD number.
Example
hBCD = CF1.AllocBcd
tmpDouble = 10
CF1.DoubleToBcd tmpDouble, hBCD
tmpVar = CF1.BcdToDouble(hBCD)
If CDbl(tmpVar) = tmpDouble And VarType(tmpVar) = vbDouble Then
logWr "DoubleToBCD and BCDToDouble OK"
Else
logWr "DoubleToBCD or BCDToDouble failed"
End If
CF1.FreeBcd hBCD
Comments
BcdToDouble returns the BCD number hBcd as a double.