Fungsi WeekDay

Mengembalikan bilangan yang sesuai dengan hari kerja yang diwakili oleh nomor seri tanggal yang dihasilkan oleh fungsi DateSerial atau DateValue.

Sintaksis:

WeekDay (Angka)

Nilai hasil:

Integer

Parameter:

Nomor: Ekspresi bilangan bulat yang berisi nomor tanggal seri yang digunakan untuk menghitung hari dalam seminggu (1-7).

Contoh berikut menentukan hari dalam seminggu menggunakan fungsi WeekDay ketika Anda memasukkan tanggal.

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

Contoh:

Sub ExampleWeekDay

Dim sDay As String

' Kembalikan Dan tampilkan hari dalam seminggu

    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