Jika...Maka...Pernyataan 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

Ikon Peringatan

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