Method
Converts a BCD number to a long.
Category
BCD
Syntax
Function BcdToLong(ByVal hBcd As Long) As Long
hBcd
The handle to the BCD number.
Example
hBCD = CF1.AllocBcd
tmpLong = 10
CF1.LongToBcd tmpLong, hBCD
tmpVar = CF1.BcdToLong(hBCD)
If CLng(tmpVar) = tmpLong And VarType(tmpVar) = vbLong Then
logWr "LongToBCD and BCDToLong OK"
Else
logWr "LongToBCD or BCDToLong failed"
End If
CF1.FreeBcd hBCD
Comments
Returns the BCD number hBcd as a long.