Public Sub DivideEqual( _ ByRef rLeft As Variant _ , ByVal vRight As Variant _ )
Assuming Dim dblValue As Double dblValue = 2.5 for example DivideEqual dblValue, 2 leaves dblValue = 1.25Example #2: (bad example; has no effect; see below)
Assuming Dim dblValue As Double dblValue = 2.5 for example DivideEqual (dblValue), 2 leaves dblValue = 2.5See also:
DivideEqualFn Function DivideOnErrRtnZero Function Div Function TimesEqual Subroutine PlusEqual Subroutine MinusEqual SubroutineDefinition (Visual Basic):
rLeft = rLeft / vRightDefinition (C):
rLeft /= vRight;rLeft: Numeric or date value which is divided by vRight. The result of the division is assigned back into the variable passed via rLeft, unless that value happens to be passed-by-value as in example #2.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.