IBM Lotus Symphony


If...Then...Else-lause [käytönaikainen]

Määrittää ainakin yhden lauselohkon, jonka haluat suorittaa vain, jos tietyn ehdon arvo on True.

Syntaksi:

If condition=true Then Statement block [ElseIf condition=true Then] Statement block [Else] Statement block EndIf Kohdan Else If tilalla voi olla ElseIf ja kohdan End If tilalla voi olla EndIf.

Parametrit:

If...Then-lause suorittaa ohjelmalohkoja annettujen ehtojen mukaan. Kun Lotus Symphony Basic -ohjelma kohtaa If-lauseen, ohjelma tarkistaa ehdon. Jos ehdon arvo on True, kaikki seuraavat lauseet seuraavaan Else-lauseeseen tai ElseIf-lauseeseen saakka suoritetaan. Jos ehdon arvo on False ja ElseIf-lause seuraa, Lotus Symphony Basic -ohjelma tarkistaa seuraavan ehdon ja suorittaa seuraavat lauseet, jos ehdon arvo on True. Jos arvo on False, ohjelma jatkaa, kunnes kohtaa seuraavan ElseIf-lauseen tai Else-lauseen. Else-lausetta seuraavat lauseet suoritetaan vain, jos minkään aiemmin tarkistetun ehdon arvo ei ole True. Kun kaikki ehdot on arvioitu ja niitä vastaavat lauseet suoritettu, ohjelma jatkaa EndIf-lausetta seuraavan lauseen kohdalta.

Voit käyttää useita sisäkkäisiä If...Then-lauseita.

Else-lauseet ja ElseIf-lauseet ovat valinnaisia.

Varoituskuvake GoTo-lauseen ja GoSub-lauseen avulla voit siirtyä If...Then-lohkon ulkopuolelle, mutta et voi siirtyä If...Then-rakenteeseen.

Seuraavan esimerkin avulla voit antaa tuotteelle vanhentumispäivämäärän ja määrittää, onko vanhentumisaika kulunut umpeen.

Esimerkki:

Sub ExampleIfThenDate

Dim sDate as String

Dim sToday as String

sDate = InputBox("Enter the expiration date (MM.DD.YYYY)")

sDate = Right$(sDate, 4) + Mid$(sDate, 4, 2) + Left$(sDate, 2)

sToday = Date$

sToday = Right$(sToday, 4)+ Mid$(sToday, 4, 2) + Left$(sToday, 2)

If sDate < sToday Then

MsgBox "The expiration date has passed"

ElseIf sDate > sToday Then

MsgBox "The expiration date has not yet passed"

Else

MsgBox "The expiration date is today"

End If

End Sub


Palautetta tuotteesta | Lisäohjeet | Tavaramerkit