WeekDay Function (BASIC)

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

Sintaksis:


WeekDay (Angka)

Nilai balikan:

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