VBA (sisse lahendatud algus)
eks näidatud väärtus
Funktsioonid
Function f_nimi ( [ parameetrid ] )
Funktsioon leiab ja tagastab ühe väärt
Funktsioonil saavad olla ainult
laused ja kommentaarid sisendparameetrid
f_nimi = avaldis Tagastav väärtus omistatakse funktsi
nimele
End Functioon
Pöördumine funktsiooniviida abil
f_nimi ( [ argumendid ] )
Function On_Sees(Ov As Shape, Os As Shape)
' Tõene, kui väike objekt (Ov) on suure (Os) sees
Dim vv, vp, vy, va, sv, sp, sy, sa
vv = Ov.Left: vp = vv + Ov.Width
vy = Ov.Top: va = vy + Ov.Height
sv = Os.Left: sp = sv + Os.Width
sy = Os.Top: sa = sy + Os.Height
If vv > sv And vp < sp And vy > sy And va < sa Then
On_Sees = True
Else
On_Sees = False
End If
End Function
iab ja tagastab ühe väärtuse!
annaabi.ee 
