IBM Lotus Symphony


If...Then...Else-setningen [kjøretid]

Definerer en eller flere setningsblokker som du vil utføre hvis en gitt betingelse er Sann.

Syntaks:

If betingelse=sann Then Setningsblokk [ElseIf betingelse=sann Then] Setningsblokk [Else] Setningsblokk EndIf I stedet for Else If kan du skrive ElseIf, og i stedet for End If kan du skrive EndIf.

Parametere:

If...Then-setningen utfører programblokker avhengig av gitte betingelser. Når Lotus Symphony Basic støter på en If-setning, blir betingelsen testet. Hvis betingelsen er sann (true), blir alle påfølgende setninger frem til neste Else eller ElseIf-setning utført. Hvis betingelsen er usann (false) og en ElseIf-setning følger etterpå, tester Lotus Symphony Basic neste betingelse og utfører følgende setninger hvis betingelsen er sann (True): Er den usann, fortsetter programmet med neste ElseIf- eller Else-setning. Setninger som følger etter Else, utføres bare hvis ingen av de tidligere testede betingelsene var sanne. Etter at alle betingelsene er evaluert og de tilhørende setningene er utført, fortsetter programmet med setningen som følger etter EndIf.

Du kan neste flere If...Then-setninger.

Else- og ElseIf-setninger er valgfrie.

Advarselsikon Du kan bruke GoTo og GoSub til å hoppe ut av en If...Then-blokk, men ikke til å hoppe inn i en If...Then-struktur.

Med det neste eksempelet kan du angi utløpsdatoen for et produkt, og det bestemmer om utløpsdatoen har passert.

Eksempel:

Sub ExampleIfThenDate

Dim sDate as String

Dim sToday as String

sDate = InputBox("Angi utløpsdatoen (MM.DD.ÅÅÅÅ)")

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 "Utløpsdatoen har passert"

ElseIf sDate > sToday Then

MsgBox "Utløpsdatoen er ennå ikke passert"

Else

MsgBox "Utløpsdatoen er i dag"

End If

End Sub


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker