WeekDay Function (BASIC)

Tagastab funktsiooni DateSerial vÔi DateValue loodud kuupÀeva jÀrjenumbrile vastava nÀdalapÀeva.

SĂŒntaks:


WeekDay (arv)

TagastusvÀÀrtus:

TĂ€isarv

Parameetrid:

Number: tÀisarvavaldis, mis sisaldab nÀdalapÀeva arvutamiseks kasutatavat kuupÀeva jÀrjenumbrit (1-7).

JÀrgmises nÀites mÀÀratakse funktsiooni WeekDay abil sisestatud kuupÀeva jÀrgi nÀdalapÀev.

Veakoodid:

5 Vigane protseduuri vÀljakutse

NĂ€ide:


Sub ExampleWeekDay
Dim sDay As String
REM Tagastab ja kuvab nÀdalapÀeva
    Select Case WeekDay( Now )
        Case 1
            sDay="PĂŒhapĂ€ev"
        Case 2
            sDay="EsmaspÀev"
        Case 3
            sDay="TeisipÀev"
        Case 4
            sDay="KolmapÀev"
        Case 5
            sDay="NeljapÀev"
        Case 6
            sDay="Reede"
        Case 7
            sDay="LaupÀev"
    End Select
    msgbox "" + sDay,64,"TĂ€na on"
End Sub

Palun toeta meid!