IBM Lotus Symphony
|
Definerer en eller flere sætningsblokke, som kun skal udføres, hvis en given betingelse er sand.
If betingelse=sand Then Sætningsblok [ElseIf betingelse=sand Then] Sætningsblok [Else] Sætningsblok EndIf I stedet for Else If kan du skrive ElseIf, og i stedet for End If kan du skrive EndIf.
Sætningen If...Then udfører programblokke afhængigt af de angivne betingelser. Når Lotus® Symphony™ Basic støder på en If-sætning, undersøges betingelsen. Hvis betingelsen er True, udføres alle efterfølgende sætninger indtil næste Else- eller ElseIf-sætning. Hvis betingelsen er falsk, og der findes en efterfølgende ElseIf-sætning, undersøger Lotus Symphony Basic den næste betingelse og udfører de næste sætninger, hvis betingelsen er sand. Hvis betingelsen er False, fortsætter programmet enten med næste ElseIf- eller Else-sætning. Sætninger efter Else udføres kun, hvis ingen af de tidligere undersøgte betingelser er sande. Når alle betingelser er undersøgt, og de tilhørende sætninger er udført, fortsætter programmet med den sætning, der følger efter EndIf.
Du kan indlejre flere If...Then-sætninger.
Else- og ElseIf-sætninger er valgfri.
![]() |
Du kan bruge GoTo og GoSub til at hoppe ud af en If...Then-blok, men ikke til at hoppe ind i en If...Then-struktur. |
I følgende eksempel kan du angive et produkts udløbsdato og undersøge, om udløbsdatoen er overskredet.
Sub EksempelIfThenDato
Dim sDato as String
Dim sIdag as String
sDato = InputBox("Skriv udløbsdatoen (DD-MM-ÅÅÅÅ)")
sDato = Right$(sDato, 4) + Mid$(sDato, 4, 2) + Left$(sDato, 2)
sIdag = Date$
sIdag = Right$(sIdag, 4)+ Mid$(sIdag, 4, 2) + Left$(sIdag, 2)
If sDato < sIdag Then
MsgBox "Udløbsdatoen er overskredet"
ElseIf sDato > sIdag Then
MsgBox "Udløbsdatoen er endnu ikke overskredet"
Ellers
MsgBox "Udløbsdatoen er i dag"
End If
End Sub