IBM Lotus Symphony
|
Devuelve el número correspondiente al día de la semana representado por un número de fecha serie que genera la función DateSerial o DateValue.
WeekDay (Número)
Entero
Número: Expresión entera que contenga el número de fecha serie que se utilice para determinar el día de la semana (1-7).
El ejemplo siguiente determina el día de la semana con la función WeekDay cuando se escribe una fecha.
Sub EjemploWeekDay
Dim sDia As String
REM Devuelve y muestra el día de la semana
Select Case WeekDay( Now )
case 1
sDay="domingo"
case 2
sDay="lunes"
case 3
sDay="martes"
case 4
sDay="miércoles"
case 5
sDay="jueves"
case 6
sDay="viernes"
case 7
sDay="sábado"
End Select
msgbox "" + sDay,64,"Hoy es"
End Sub