IBM Lotus Symphony
|
Define um ou mais blocos de instruções que você deseja apenas executar se uma determinada condição for True.
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.
A instrução If...Then executa os blocos de programas dependendo de determinadas condições. Quando o Lotus® Symphony™ Basic encontrar uma instrução If, a condição será testada. Se a condição for True, todas as instruções subsequentes até a próxima instrução Else ou ElseIf serão executadas. Se a condição for False e a instrução ElseIf for seguida, o Lotus Symphony Basic testará a próxima condição e executará as seguintes instruções se a condição for True. Se for False, o programa continuará com a próxima instrução ElseIf ou Else . As instruções que seguem Else serão executadas somente se nenhuma das condições testadas anteriormente forem True. Depois de avaliar todas as condições e as instruções correspondentes forem executadas, o programa continuará com a seguinte instrução EndIf.
É possível aninhar várias instruções If...Then.
As instruções Else e ElseIf são opcionais.
![]() |
É possível usar GoTo e GoSub para sair de um bloco If...Then, mas não para ir para uma estrutura If...Then. |
O exemplo a seguir permite que você insira a data de expiração de um produto e determina se a data de expiração foi transmitida.
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 "The expiration date has passed"
ElseIf sDate > sToday Then
MsgBox "The expiration date has not yet passed"
Else
MsgBox "The expiration date is today"
End If
End Sub