IBM Lotus Symphony
|
Määrittää ainakin yhden lauselohkon, jonka haluat suorittaa vain, jos tietyn ehdon arvo on True.
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.
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.
![]() |
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.
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