Switch Function

Evaluerar en argumentlista som bestÄr av ett uttryck följt av ett vÀrde. Funktionen Switch returnerar ett vÀrde som Àr associerat med det uttryck som skickades till funktionen.

Syntax:


Switch (Uttryck1, VĂ€rde1[, Uttryck2, VĂ€rde2[..., Uttryck_n, VĂ€rde_n]])

Parametrar:

Funktionen Switch evaluerar uttrycken frÄn vÀnster till höger och returnerar det vÀrde som Àr associerat med funktionsuttrycket. Om det inte finns ett vÀrde till varje uttryck uppstÄr ett runtime-fel.

Uttryck: Det uttryck som ska evalueras.

VÀrde: Det vÀrde som ska returneras om uttrycket evalueras till TRUE.

I exemplet nedan returnerar funktionen Switch om ett givet namn Àr ett mans- eller kvinnonamn:

Felkoder:

5 Felaktigt proceduranrop

Exempel:


Sub ExampleSwitch
Dim sGender As String
    sGender = GetGenderIndex( "Anders" )
    MsgBox sGender
End Sub
 
Function GetGenderIndex (sName As String) As String
    GetGenderIndex = Switch(sName = "Anna", "kvinna", sName = "Anders", "man")
End Function