Module
Contents
Index 🔎︎

# If...Then...Else Statement

Určuje jeden alebo viac blokov príkazov, ktoré chcete spustiť len ak je daná podmienka True.

## Syntax:

    If condition=true Then Statement block [ElseIf condition=true Then] Statement block [Else] Statement block EndIf

Instead of Else If you can write ElseIf, instead of End If you can write EndIf.

## Paremetre:

Príkaz If ... Then spustí blok príkazov v závislosti na danej podmienke. Keď LibreOffice Basic narazí na príkaz If , overí podmienku. Ak je podmienka True, spustia sa všetky nasledujúce príkazy až do budúceho príkazu Else alebo ElseIf . Ak je podmienka False a nasleduje príkaz ElseIf , LibreOffice Basic overí podmienku a spustí nasledujúce príkazy, ak je podmienka True. Ak je False, program preskočí príkazy až k ďalšiemu príkazu ElseIf alebo Else . Príkazy nasledujúce za príkazom Else sa spustí iba ak nebola žiadna z predchádzajúcich podmienok splnená. Po vyhodnotení všetkých podmienok a spustení zodpovedajúcich príkazov pokračuje program príkazy nasledujúcimi po endif .

Do seba možno vložiť viac príkazovIf...Then.

Príkazy Else a ElseIf sú voliteľné.

Pomocou príkazov GoTo a GoSub je možné vyskočiť z bloku If ... Then , ale nie je možné skočiť do štruktúry If ... Then .

Nasledujúci príkaz vám umožní zadať dátum trvanlivosti výrobku a určí, či už tento dátum prebehol:

## Príklad:

    Sub ExampleIfThenDate
    Dim sDate As String
    Dim sToday As String
        sDate = InputBox("Zadajte trvanlivosť (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 "Trvanlivosť už vypršala"
        ElseIf sDate > sToday Then
            MsgBox "Trvanlivosť ešte nevypršala"
        Else
            MsgBox "Dátum trvanlivosti je dnes"
        End If
    End Sub