Isi
Indeks 🔎︎

# Jika...Kemudian...Kalimat Lain

Menentukan satu atau lebih blok pernyataan yang hanya ingin anda jalankan jika kondisi yang diberikan adalah Benar.

## Sintaksis:

    kondisi If=benar Maka blok Pernyataan [kondisi ElseIf=benar Maka] blok Pernyataan [Else] blok Statement EndIf

Sebagai gantinya dari Else If kamu dapat menulis ElseIf, sebagai gantinya dari End If kamu dapat menulis EndIf.

## Parameter:

Pernyataan If...Then mengeksekusi mengeksekusi blok program tergantung pada kondisi yang diberikan. Ketika LibreOffice bertemu dengan statement If, kondisi ini diuji. jika kondisi bernilai Benar, semua pernyataan selanjutnya hingga pernyataan ElseatauElseIf berikutnya dijalankan. jika kondisinya Salah, dan pernyataan ElseIf berikut, uji dasar LibreOffice menguji kondisi berikutnya dan menjalankan pernyataan berikut jika kondisinya Benar. Jika Salah, program akan melanjutkan dengan pernyataan ElseIfatauElseberikutnya. Pernyataan berikut Else dijalankan hanya jika tidak ada kondisi Benar pada pengujian sebelumnya. Setelah semua kondisi dievaluasi, dan pernyataan terkait dieksekusi, program melanjutkan dengan pernyataan berikut EndIf.

Anda dapat membuat beberapa kumpulan Jika...Kemudian suatu pernyataan

Lain dan diri sendiri pernyataan lain adalah pilihan

Anda dapat menggunakan GoTo dan GoSub untuk melompat keluar dari blok If ... Then, tetapi tidak melompat dari struktur If...Then.

Contoh berikut memungkinkan Anda untuk memasukkan tanggal kedaluwarsa suatu produk, dan menentukan apakah tanggal kedaluwarsa telah berlalu.

## Contoh:

    Sub ExampleIfThenDate
    Dim sDate As String
    Dim sToday As String
        sDate = Input Box ("Masukkan tanggal kedaluwarsa (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 "Tanggal kadaluarsa sudah lewat"
        ElseIf sDate > sToday Then
            MsgBox "Tanggal kadaluarsa belum lewat"
        Else
            MsgBox "Tanggal kadaluarsanya adalah hari ini"
        End If
    End Sub