comparing 3 variables - help please

[smig]

I have 3 variables that can have any value:
int_Var1
int_Var2
int_Var3

how can I find the smaller one, and the biger one?


thanks

 

[Poppa Smurf]

Smig

Here is some code for you. I set some values to the variables and added some debug.print to display the result.

Sub test_min_max()
Dim int_Var1 As Integer
Dim int_Var2 As Integer
Dim int_Var3 As Integer
Dim max_val As Integer
Dim min_val As Integer

int_Var1 = 200
int_Var2 = 100
int_Var3 = 500
max_val = 99


' maximum value
If int_Var1 > int_Var2 Then

If int_Var1 > int_Var3 Then
max_val = int_Var1
Else
max_val = int_Var3
End If
Else
If int_Var2 > int_Var3 Then
max_val = int_Var2
Else
max_val = int_Var3
End If
End If
Debug.Print max_val

' minimum value
If int_Var1 < int_Var2 Then

If int_Var1 < int_Var3 Then
min_val = int_Var1
Else
max_val = int_Var3
End If
Else
If int_Var2 < int_Var3 Then
min_val = int_Var2
Else
min_val = int_Var3
End If
End If

Debug.Print min_val
End Sub

 

[smig]

thanks

 

[Poppa Smurf]

Smig

Here is an updated version after looking at the code again I did not consider the possibility that the three variables maybe equal. The changes are shown in bold, I also moved the debug.prints


Sub test_min_max()
Dim int_Var1 As Integer
Dim int_Var2 As Integer
Dim int_Var3 As Integer
Dim max_val As Integer
Dim min_val As Integer

int_Var1 = 200
int_Var2 = 100
int_Var3 = 500
max_val = 99

if (int_var1=int_var2) and (int_var1=int_var3) then
max_val = int_Var1
min_val = int_Var1
else
' maximum value
If int_Var1 > int_Var2 Then

If int_Var1 > int_Var3 Then
max_val = int_Var1
Else
max_val = int_Var3
End If
Else
If int_Var2 > int_Var3 Then
max_val = int_Var2
Else
max_val = int_Var3
End If
End If
' minimum value
If int_Var1 < int_Var2 Then

If int_Var1 < int_Var3 Then
min_val = int_Var1
Else
max_val = int_Var3
End If
Else
If int_Var2 < int_Var3 Then
min_val = int_Var2
Else
min_val = int_Var3
End If
End If
end if

Debug.Print min_val
Debug.Print max_val

End Sub

 

[smig]

thanks,
the equals are not importent - if it's not big then it's either samller or equal to.
it works perfect