IBM Lotus Symphony
|
Devolve o número correspondente ao dia da semana representado por um número de data em série gerado pela função DateSerial ou DateValue.
WeekDay (Number)
Integer
Number: Expressão de números inteiros que contém o número de data em série utilizado para calcular o dia da semana (1-7).
O exemplo que se segue determina o dia da semana utilizando a função WeekDay quando se introduz uma data.
Sub ExampleWeekDay
Dim sDay As String
REM Devolve e apresenta o dia da semana
Select Case WeekDay( Now )
case 1
sDay="Sunday"
case 2
sDay="Monday"
case 3
sDay="Tuesday"
case 4
sDay="Wednesday"
case 5
sDay="Thursday"
case 6
sDay="Friday"
case 7
sDay="Saturday"
End Select
msgbox "" + sDay,64,"Today is"
End Sub