WeekDay Function

Vrača broj koji korespondira danu u sedmici predstavljenog kao serijski datum koji je generisan od strane DateSerial ili DateValue funkcije.

Sintaksa:


Dan (broj)

Vrati vrijednost:

Cjelobrojno

Parametri:

Number: Integer izraz koji sadrži serijski datum koji se koristi da se iskalkuliše dan u sedmici (1-7).

Slijedeći primjer određuje dan u sedmici koristeći WeekDay funkciju kada unesete datum.

Error codes:

5 Invalid procedure call

Primjer:


Sub ExampleWeekDay
Dim sDay As String
REM Vrati i prikaži dan u sedmici
    Select Case WeekDay( Now )
        Case 1
            sDay="Nedjelja"
        Case 2
            sDay="Ponedjeljak"
        Case 3
            sDay="Utorak"
        Case 4
            sDay="Srijeda"
        Case 5
            sDay="Četvrtak"
        Case 6
            sDay="Petak"
        Case 7
            sDay="Subota"
    End Select
    msgbox "" + sDay,64,"Danas je"
End Sub

Please support us!