Большее/меньшее

[Yurich]

Черт, совсем мозги высохли. Не могу вспомнить ф-ю, что возвращает болшее(меньшее) из двух значений. Плиз ...

[tyomitch]

Function Max (A, B)
Max = IIf(A > B, A, B)
End Function

Function Min (A, B)
Min = IIf(A < B, A, B)
End Function

[Samovar]

Кажется в VB6 нет такой функции. Сделай сам, чтото вроде:

Public Function Max(ParamArray aV() As Variant) As Variant
Dim i As Long
Max = aV(LBound(aV))
For i = LBound(aV) + 1 To UBound(aV)
If Max < aV(i) Then
Max = aV(i)
End If
Next i
End Function

Public Function Min(ParamArray aV() As Variant) As Variant
Dim i As Long
Min = aV(LBound(aV))
For i = LBound(aV) + 1 To UBound(aV)
If Min > aV(i) Then
Min = aV(i)
End If
Next i
End Function

[Andrey Fedorov]

Сделай сам, чтото вроде:

И это для двух значений (как в первом вопросе)?

Не проще ли нечто навроде:

IIf( a > b, a, b )

[tyomitch]

Сделай сам, чтото вроде:

И это для двух значений (как в первом вопросе)?

Не проще ли нечто навроде:

IIf( a > b, a, b )

Особенно если учитывать, что я это уже написал

[Andrey Fedorov]

Особенно если учитывать, что я это уже написал

Угу

[Yurich]

Спасибо, понял почему не могу вспонить! Такая ф-я была в PowerBasic, на котором раньше работал.

If a > b Then b = a
If c > b Then b = c

тут одно присваивание кажется лишним, подкиньте идеи, как написать "прозрачнее"?

[kazah_]

Спасибо, понял почему не могу вспонить! Такая ф-я была в PowerBasic, на котором раньше работал.

If a > b Then b = a
If c > b Then b = c


тут одно присваивание кажется лишним, подкиньте идеи, как написать "прозрачнее"?

if a>b then
if c>b then b=c
else
a=b
end if


тут по любому нада будет два присваивания и два условия
массивом можно решать еще