Public Sub MinusEqual( _
ByRef rLeft As Variant _
, ByVal vRight As Variant _
"Minus Equals" or "Assign Subtraction" Summary: This function is usually faster than the macroized eqivalent ("rLeft = rLeft - vRight") if rLeft is not a simple variable. This is because rLeft is passed-by-reference so that Visual Basic must only evaluate its address once.
Subtract vRight from rLeft and assign the result back into rLeft.
Similar to the C language "-=" operator.
Dim dblValue As Double
dblValue = 2.5
MinusEqual dblValue, 2
dblValue = .5See also:
DivideEqual SubroutineDefinition (Visual Basic):
rLeft = rLeft - vRightDefinition (C):
rLeft -= vRight;rLeft: Numeric or date value from which vRight is subtracted. The result of the subtraction is assigned back into the variable passed via rLeft, unless that value happens to be passed-by-value (in which case, calling this function has no effect).
vRight: The numeric value that is subtracted from rLeft.
Note: We would NOT use this subroutine to replace something like "dblValue = dblValue - 2", but we WOULD use it to replace something like "adblMatrix(intColumn, intRow, intItem) = adblMatrix(intColumn, intRow, intItem) - 2", especially since we only have to mention the "adblMatrix(intColumn, intRow, intItem)" part once.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.