?? Select Case True ??

[Guv]

somebody recently told me that Select Case True is valid syntax and can be used as in the following.

Public Function Latitude(Y As Double,  X As Double) As Double

'Function returns Radians in range -Pi/2 to Pi/2 (-90 to 90 degrees)
'Quandrant assumed to be determined by sign of Y.
'X assumed to be positive. Abs Function used to force positive value.
'Hpi = Pi/2   Qpi = Pi/4  (90 & 45 degrees)

Select Case True
    Case Abs(X) > Abs(Y)
        Latitude = Atn(Y / Abs(X))
    Case Abs(X) < Abs(Y)
        Latitude = Hpi - Atn(Abs(X) / Y)
    Case X = 0
        Latitude = 0
    Case Else
        Latitude = Qpi '45 degrees
  End If

End Function

I am going to try it. Does anybody know if this is going to work?

It looks cleaner that ElseIf constructs.

[seoptimizer2001]

What happens if more than one condition is met?

[Bruce Fox]

somebody recently told me that Select Case True is valid syntax and can be used as in the following.

That statement is correct.

An example:

Private Sub Command1_Click()
    Select Case True
        Case 9 < 5
            Print "one"
        Case 5 < 9
            Print "two"
    End Select
End Sub

Or

Private Sub Command1_Click()
Dim a As Boolean, b As Boolean
b = True
 
    Select Case True
        Case a
            Print "one"
        Case b
            Print "two"
    End Select
 
End Sub

________
Extreme q vaporizer

[Megatron]

Originally posted by seoptimizer2001
What happens if more than one condition is met?

Then only the first condition that is met will be executed.

[Guv]

Bruce Fox: Thanx for your reply. If I discover otherwise, I will post again. Meanwhile, I assume that two bright people cannot be wrong when they agree.

It will be a while before I actually try it.