Funkce WeekDay
Vrátí hodnotu určující den v týdnu odpovídající datu v číselné podobě (vytvořenému funkcí DateSerial nebo DateValue).
Syntaxe:
WeekDay (Number)
Návratová hodnota:
Celé číslo
Parametry:
Number: Číselný výraz, který obsahuje datum v číselné podobě, ze kterého se určí den v týdnu (1-7).
Následující příklad určí po zadání data den v týdnu s použitím funkce WeekDay.
Příklad:
Sub ExampleWeekDay
Dim sDay As String
' Vrátí a zobrazí den v týdnu
Select Case WeekDay( Now )
Case 1
sDay="Neděle"
Case 2
sDay="Pondělí"
Case 3
sDay="Úterý"
Case 4
sDay="Středa"
Case 5
sDay="Čtvrtek"
Case 6
sDay="Pátek"
Case 7
sDay="Sobota"
End Select
MsgBox "" + sDay,64,"Dnes je "
End Sub