HaftanınGünü Fonksiyonu

DateSerial veya DateValue fonksiyonu tarafından oluşturulan seri tarih numarasının belirlediği güne karşılık gelen sayıyı döndürür.

Sözdizimi:


WeekDay (Sayı)

Dönen değer:

Tamsayı

Parametreler:

Sayı: Haftanın hangi günü (1-7) olduğu hesaplatacak tam sayı değeri.

Aşağıdaki örnek girdiğiniz tarih için WeekDay fonksiyonunu kullanarak haftanın gününü hesaplar.

Hata kodları:

5 Geçersiz yordam çağrısı

Örnek:


Sub ExampleWeekDay
Dim sDay As String
REM Haftanın gününü döndür ve görüntüle
    Select Case WeekDay( Now )
        Case 1
            sDay="Pazar"
        Case 2
            sDay="Pazartesi"
        Case 3
            sDay="Salı"
        Case 4
            sDay="Çarşamba"
        Case 5
            sDay="Perşembe"
        Case 6
            sDay="Cuma"
        Case 7
            sDay="Cumartesi"
    End Select
    msgbox "" + sDay,64,"Bugün"
End Sub