WeekDay Function
Returns the number corresponding to the weekday represented by a serial date number that is generated by the DateSerial or the DateValue function.
Sintaksis:
WeekDay (Angka)
Nilai hasil:
Integer
Parameter:
Number: Integer expression that contains the serial date number that is used to calculate the day of the week (1-7).
The following example determines the day of the week using the WeekDay function when you enter a date.
Contoh:
Sub ExampleWeekDay
Dim sDay As String
' Return And display the day of the week
Select Case WeekDay( Now )
Case 1
sDay="Minggu"
Case 2
sDay="Senin"
Case 3
sDay="Selasa"
Case 4
sDay="Rabu"
Case 5
sDay="Kamis"
Case 6
sDay="Jumat"
Case 7
sDay="Sabtu"
End Select
msgbox "" + sDay,64,"Hari ini adalah"
End Sub