IBM Lotus Symphony


Instrução If...Then...Else [Tempo de Execução]

Define um ou mais blocos de instruções que você deseja apenas executar se uma determinada condição for True.

Sintaxe:

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.

Parâmetros:

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.

Ícone de Aviso É 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.

Exemplo:

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


Feedback do Produto | Documentação Adicional | Marcas Registradas