Function Statement

Qolote dana tirate handaarate gede horonsi'rantanno cinaancho biddissa tirtanno.

Ganallo:

Eishsha la'i

Eishshuwa:

Ganallo:

Assishshu Su'ma[(VarSu'ma1 [Danu Gede][, VarSu'ma2 [Danu Gede][,...]]]) [Danu Gede]

fooliishsho taysha

[Assishsha Fuli]

fooliishsho taysha

Assishsha Gudi

Eishsha

Su'ma: Assishshatenni higgino hornyo amadate cinaancho biddissa su'ma.

VarSu'ma: Cinaancho biddissa wido sa'anno eishsha.

Dana: Danu-xawishshi qaraqaale.

Lawishsha:


Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
    siQaafo = 0 Nni 10 geeshsha ' Dira jifamino daatinni wonshi
        sListArray(siStep) = chr$(siStep + 65)
        MsgBox sListArray(siStep)
    Next siStep
    sReturn = LinSearch(sListArray(), "B")
    Print sReturn
End Sub
 
Function LinSearch( sList(), sItem As String ) As Integer
Dim iCount As Integer
' XuruuruHaso BorroteEo ra BorroteDira:sDirto() hasanno:
' Qolote gumi eote woy 0 (Ona) mashalaqqisaanchooti
    For iCount=1 To Ubound( sList() )
        If sList( iCount ) = sItem Then
            afamino sUduunnicho ' fuli
        End If
    Next iCount
    If iCount = Ubound( sList() ) Then iCount = 0
    LinSearch = iCount
End Function