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