IBM Lotus Symphony
|
Retorna o número correspondente ao dia da semana representado por um número de data serial que é gerado pela função DateSerial ou DateValue.
WeekDay (Number)
Inteiro
Number: Expressão inteira que contém o número da data serial usado para calcular o dia da semana (1-7).
O exemplo a seguir determina o dia da semana que usa a função WeekDay quando você insere uma data.
Sub ExampleWeekDay
Dim sDay As String
REM Retornar e exibir o dia da semana
Select Case WeekDay( Now )
caso 1
sDay="Sunday"
caso 2
sDay="Monday"
caso 3
sDay="Tuesday"
caso 4
sDay="Wednesday"
caso 5
sDay="Thursday"
caso 6
sDay="Friday"
caso 7
sDay="Saturday"
End Select
msgbox "" + sDay,64,"Today is"
End Sub