Modül
İçerikler
Dizin 🔎︎

# If...Then...Else Deyimi

Sadece eğer verilen bir durum True ise çalıştırmak istediğiniz bir veya daha fazla durum bloğu tanımlar.

## Sözdizimi:

    If koşul=doğru Then İfade Bloğu [ElseIf koşul=doğru Then] İfade Bloğu [Else] İfade bloğu EndIf

Else If yerine ElseIf yazabilirsiniz; End If yerine EndIf yazabilirsiniz.

## Parametreler:

If...Then ifadesi verilen şartlara bağlı olarak program bloklarını çalıştırır. When LibreOffice Basic bir If ifadesi ile karşılaştığında, şart test edilir. Eğer şart True(doğru) ise, bir sonraki Else ya da ElseIf ifadesine kadar olan bütün alt ifadeler çalıştırılır. Eğer şart False(yanlış) ise ve izleyen bir ElseIf ifadesi varsa, LibreOffice Basic bir sonraki koşulu test eder ve koşul True ise izleyen ifadeleri çalıştırır. Eğer False ise, program bir sonraki ElseIf ya da Else ifadesiyle devam eder. Else'den sonra gelen ifadeler sadece önceki testler başarısızsa çalıştırılır Bütün koşullar değerlendirilip, karşılık gelen ifadeler çalıştırıldıktan sonra program EndIf'den sonra gelen ifadelerle devam eder.

If...Then deyimlerinini içiçe kullanabilirsiniz.

Else ve ElseIf deyimleri seçimlidir.

If...Then bloğunun dışına sıçramak için GoTo ve GoSub kullanabilirsiniz ama bir If...Then yapısının içine sıçrayamazsınız.

Bir sonraki örnek bir ürünün son kullanma tarihini girmenize ve son kullanma tarihinin geçip geçmediğini karar vermenize örnek oluşturur.

## Örnek:

    Sub ExampleIfThenDate

    Dim sDate As String

    Dim sToday As String

        sDate = InputBox("Enter the expiration date (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 "Son kullanma tarihi geçmiş"

        ElseIf sDate > sToday Then

            MsgBox "Son kullanma tarihi geçmemiş"

        Else

            MsgBox "Son kullanma tarihi bugün"

        End If

    End Sub