WeekDay Function

This function returns the number corresponding to the weekday represented by a serial date number that is generated by the DateSerial or the DateValue functions.

note

This help page describes the WeekDay function used in Basic scripts. If you are interested in the WeekDay function used in LibreOffice Calc, refer to this help page.


Sintaxis:


  WeekDay (SerialDate, [FirstDayOfWeek])

Par谩metros:

SerialDate: Integer expression that contains the serial date number that is used to calculate the day of the week.

FirstDayOfWeek: Integer value indicating which weekday should be considered as the first day of the week. The default value is 0, meaning that the system locale settings are used to determine the first day of the week.

The parameter FirstDayOfWeek accepts values ranging from 0 to 7. The table below describes the meaning of each possible value:

Valor

Constante de VBA

Descripci贸n

0

vbUseSystemDayOfWeek

Use system locale settings

1

vbSunday

Domingo (predeterminado)

2

vbMonday

Lunes

3

vbTuesday

Martes

4

vbWednesday

Mi茅rcoles

5

vbThursday

Jueves

6

vbFriday

Viernes

7

vbSaturday

S谩bado


note

The VBA constants listed above are only available if VBA support has been enabled. For more information, read the VBASupport Statement help page.


Valor de retorno:

Entero

C贸digos de error:

5 Llamada a procedimiento no v谩lida

Ejemplo:

The following example uses the function Now() to determine the current weekday.


Sub ExampleWeekDay
    Dim sDay As String
    ' Devolver y mostrar el d铆a de la 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,"Hoy es"
End Sub

The following example illustrates the use FirstDayOfWeek parameter, assuming that Tuesday is the first day of the week.


  Dim someDay As Long
  ' La fecha 1 de enero de 2021 cay贸 en viernes
  someDay = DateSerial(2021, 01, 01)
  ' Genera 芦6禄, suponiendo que el domingo sea el primer d铆a de la semana
  MsgBox WeekDay(someDay)
  ' Genera 芦4禄, suponiendo que el martes sea el primer d铆a de la semana
  MsgBox WeekDay(someDay, 3)

隆Necesitamos su ayuda!