Module
Contents
Index 🔎︎

# If...Then...Else Statement

Xác định một hay nhiều khối câu lệnh sẽ chỉ thực hiện nếu một điều kiện đã cho là Đúng.

## Cú pháp:

    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.

## Tham số :

Câu lệnh If...Then (Nếu...Thì) thực hiện các khối chương trình phụ thuộc vào những điều kiện đã cho. Khi LibreOffice Basic gặp một câu lệnh If (Nếu), điều kiện được thử. Điều kiện là Đúng thì thực hiện tất cả các câu lệnh theo sau, đến câu lệnh Else (Không thì) hay ElseIf (Không nếu). Nếu điều kiện là Sai, và một câu lệnh ElseIf theo sau, thì LibreOffice Basic thử điều kiện kế tiếp: Đúng thì nó thực hiện những câu lệnh theo sau ; Sai thì nó tiếp tục lại với câu lệnh kế tiếp kiểu ElseIf hay Else. Câu lệnh nằm sau Else được thực hiện chỉ nếu không có điều kiện đã thử trước là Đúng. Một khi thử tất cả các điều kiện, và thực hiện những câu lệnh tương ứng, chương trình tiếp tục lại với câu lệnh nằm sau EndIf.

Bạn có thể lồng nhau nhiều câu lệnh kiểu If...Then (Nếu...Thì).

Các câu lệnh kiểu Else (Không thì) và ElseIf (Không nếu) vẫn còn tùy chọn.

Bạn có thể sử dụng toán tử GoTo (đi tới) và GoSub (đi tới hàm phụ?) để nhảy ra một khối câu lệnh kiểu If...Then (Nếu...thì), nhưng không phải để nhảy vào một cấu trúc If...Then.

Mẫu ví dụ theo đây cho bạn nhập ngày hết hạn của một sản phẩm, và quyết định nếu sản phẩm đã hết hạn dùng chưa.

## Thí dụ :

    Sub ExampleIfThenDate
    Dim sDate As String
    Dim sToday As String
        sDate = InputBox("Nhập ngày hết hạn dùng (Th.Ng.NNĂM)")
        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 "Đã hết hạn"
        ElseIf sDate > sToday Then
            MsgBox "Chưa hết hạn dùng"
        Else
            MsgBox "Ngày hết hạn là hôm nay"
        End If
    End Sub