BcdAdd

Method
Adds two BCD numbers together.

Category
BCD

 

Syntax
Function BcdAdd(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.BcdAdd(hBCD, hBCD2)

  tmpVar2 = CF1.BcdToLong(hBCD)

  If VarType(tmpVar) = vbLong And CLng(tmpVar2) = tmpLong + tmpLong2 Then

  logWr "BcdAdd OK"

  Else

  logWr "BcdAdd failed"

  End If

  CF1.FreeBcd hBCD

  CF1.FreeBcd hBCD2

 

Comments
BcdAdd adds the BCD numbers hDstBcd and hSrcBcd together, and places 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 = BcdAdd(BcdAdd(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.



© 2009 Microsoft Corporation. All rights reserved.