Ajuda del LibreOffice 7.1
Torna el número corresponent al dia de la setmana representat per un número de data de sèrie que es genera amb les funcions DateSerial o DateValue.
DiaSetmana (Nombre)
Enter
Nombre: Expressió d'enter que conté el número de data de sèrie que s'utilitza per calcular el dia de la setmana (1-7).
A l'exemple següent es determina el dia de la setmana amb la funció WeekDay que introduïu una data.
Sub ExampleWeekDay
Dim sDay As String
' Torna i mostra el dia de la setmana
Select Case WeekDay( Now )
Case 1
sDay="Diumenge"
Case 2
sDay="Dilluns"
Case 3
sDay="Dimarts"
Case 4
sDay="Dimecres"
Case 5
sDay="Dijous"
Case 6
sDay="Divendres"
Case 7
sDay="Dissabte"
End Select
MsgBox "" + sDay,64,"Hui és"
End Sub