WeekDay Function
Devolve o número correspondente ao día da semana representado por un número data en serie xerado pola función DateSerial ou pola función DateValue.
Sintaxe:
WeekDay (Número)
Valor de retorno:
Enteiro
Parámetros:
Number: Integer expression that contains the serial date number that is used to calculate the day of the week (1-7).
O seguinte exemplo determina o día da semana, usando a función WeekDay cando escribe unha data.
Exemplo:
Sub ExampleWeekDay
Dim sDay As String
REM Devolve e mostra o día da semana
Select Case WeekDay( Now )
Case 1
sDay="Domingo"
Case 2
sDay="Luns"
Case 3
sDay="Martes"
Case 4
sDay="Mércores"
Case 5
sDay="Xoves"
Case 6
sDay="Venres"
Case 7
sDay="Sábado"
End Select
msgbox "" + sDay,64,"Hoxe é"
End Sub