<-- Previous || Up || Next -->

Max 2 Equal Fast Sub
Comparisons Class

Public Sub Max2EqualFast( _
      ByRef rOne As Variant _
    , ByVal vTwo As Variant _
    )

"Maximum Equal (Fast)" or "Assign Maximum (Fast)"
Assign the leftmost argument rOne to the maximum value of the two arguments.
Shorthand for rOne = Max(rOne, vTwo)

Example:
    Assuming
       Dim lngMax As Long
       lngMax = 45
    for example
       Max2EqualFast lngMax, 60
    leaves
       lngMax = 60
See also:
    Min2EqualFast Function
    Max2 Function
rOne: Argument which is set to the maximum value of the two arguments.
vTwo: Value which will replace rOne if vTwo is greater than rOne.
Note: This function performs numeric comparisons if both arguments are numeric, and it performs Binary comparisons if both arguments are string.

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.