LibreOffice 25.2 Hjelp
Definerer en eller flereuttrykksblokker som du bare vil utføre hvis en gitt betingelse eller uttrykk er Sann.
If condition Then
statements
[{ElseIf} condition Then
statements]
[Else
statements]
{EndIf|End If}
I stedet for End If kan du skrive EndIf.
If-setninger kan forkortes til én linje ved bruk av enkeltuttrykkssblokker.
If condition Then statement [Else statement]
If...Then-setningen kjører programblokker avhengig av gitte forhold. Når LibreOffice Basic støter på en If-uttrykk, testes tilstanden. Hvis betingelsen er Sann, blir alle påfølgende uttrykk frem til neste Else- eller ElseIf-setning utført. Hvis betingelsen er Usann, og en ElseIf-setning følger, tester LibreOffice Basic det neste uttrykket og utfører følgende utsagn hvis betingelsen er Sann . Hvis Usann, fortsetter programmet enten med neste ElseIf- eller Else-setning. Utsagn etter Else utføres bare hvis ingen av de tidligere testede forholdene var Sanne. Etter at alle forhold er evaluert, og de tilsvarende uttrykkene er utført, fortsetter programmet med uttrykket etter EndIf.
Du kan neste flere If...Then-uttrykk.
Else- og ElseIf-uttrykk er valgfrie.
Du kan bruke GoTo og GoSub for å gå ut av en If...Then-blokk, men ikke for å gå inn i en If. ..Thenstruktur.
Følgende eksempel lar deg angi utløpsdatoen for et produkt, og avgjør om utløpsdatoen har passert.
Sub ExampleIfThenDate
Dim sInput As String
Dim dInput As Date
Ved feil Gå til inputError
sInput = InputBox("Skriv inn utløpsdatoen (ÅÅÅÅ-MM-DD)") sInput = InputBox("Skriv inn utløpsdatoen (ÅÅÅÅ-MM-DD)")
dInput = DateValue(sInput)
If dInput < Date() Then
MsgBox "Utløpsdatoen er passert"
ElseIf dInput > Date() Then
MsgBox "Utløpsdatoen er ennå ikke passert"
Else
MsgBox "Utløpsdatoen er i dag"
End If
inputError:
Hvis dInput = 0, så MsgBox "Ugyldig input"
End Sub