Method
Divides one BCD number with another BCD number.
Category
BCD
Syntax
Function BcdDiv(ByVal hDstBcd As Long, ByVal hSrcBcd As Long) As
Long
hDstBcd
The handle to the destination BCD number.
hSrcBcd
The handle to the source BCD number.
Example
hBCD = CF1.AllocBcd
hBCD2 = CF1.AllocBcd
tmpLong = 6
tmpLong2 = 3
CF1.LongToBcd tmpLong, hBCD
CF1.LongToBcd tmpLong2, hBCD2
tmpVar = CF1.BcdDiv(hBCD, hBCD2)
tmpVar2 = CF1.BcdToLong(hBCD)
If VarType(tmpVar) = vbLong And CLng(tmpVar2) = tmpLong / tmpLong2 Then
logWr "BcdDiv OK"
Else
logWr "BcdDiv failed"
End If
CF1.FreeBcd hBCD
CF1.FreeBcd hBCD2
Comments
BcdDiv divides the BCD number hDstBcd with the BCD number hSrcBcd
and puts the result in the BCD number hDstBcd.
For convenience, the function also returns a handle to the BCD number hDstBcd. This is useful in situations where the result is used to call yet another function, as in the following example:
h = BcdDiv(BcdDiv(dst, src),src1)
h and dst are now the same handle, and that handle refers to a BCD number with the value: (dst / src) / src1.