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:
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