Function sa Araw ng Linggo

Ibinabalik ng function na ito ang numerong naaayon sa weekday na kinakatawan ng serial date number na nabuo ng DateSerial o ang DateValue mga function.

Inilalarawan ng pahina ng tulong na ito ang Araw ng Linggo function na ginagamit sa Basic script. Kung interesado ka sa Araw ng Linggo function na ginagamit sa LibreOffice Calc, sumangguni sa itong pahina ng tulong .

Syntax:


  WeekDay (SerialDate, [FirstDayOfWeek])

Mga Parameter:

SerialDate: Integer expression na naglalaman ng serial date number na ginagamit upang kalkulahin ang araw ng linggo.

FirstDayOfWeek: Integer value na nagsasaad kung aling araw ng linggo ang dapat isaalang-alang bilang unang araw ng linggo. Ang default na halaga ay 0 , ibig sabihin, ginagamit ang mga setting ng lokal na sistema upang matukoy ang unang araw ng linggo.

Ang parameter FirstDayOfWeek tumatanggap ng mga halaga mula 0 hanggang 7. Inilalarawan ng talahanayan sa ibaba ang kahulugan ng bawat posibleng halaga:

Halaga	VBA Constant	Mga nilalaman
0	vbUseSystemDayOfWeek	Gamitin ang mga setting ng lokal na sistema
1	vbSunday	Linggo (default)
2	vbMonday	Lunes
3	vbTuesday	Martes
4	vbWednesday	Miyerkules
5	vbThursday	Huwebes
6	vbFriday	Biyernes
7	vbSaturday	Sabado

Ang mga VBA constant na nakalista sa itaas ay magagamit lamang kung ang suporta sa VBA ay pinagana. Para sa karagdagang impormasyon, basahin ang VBASupport Statement pahina ng tulong.

Ibinalik na halaga:

Integer

Mga error code:

5 Di-wastong procedure call

Halimbawa:

Ang sumusunod na halimbawa ay gumagamit ng function ngayon() upang matukoy ang kasalukuyang araw ng linggo.


Sub ExampleWeekDay
    Dim sDay As String
    ' Bumalik At ipakita ang araw ng linggo
    Select Case WeekDay( Now )
            Case 1: sDay="Linggo"
            Case 2: sDay="Monday"
            Case 3: sDay="Martes"
            Case 4: sDay="Miyerkules"
            Case 5: sDay="Huwebes"
            Case 6: sDay="Friday"
            Case 7: sDay="Saturday"
    End Select
    MsgBox "" + sDay,64,"Today Is"
End Sub

Ang sumusunod na halimbawa ay naglalarawan ng paggamit FirstDayOfWeek parameter, sa pag-aakalang Martes ang unang araw ng linggo.


  Dim someDay As Long
  ' Ang petsa noong Enero 1, 2021 ay isang Biyernes
  someDay = DateSerial(2021, 01, 01)
  ' Naka-print ang "6" na ipinapalagay na ang Linggo ay ang unang araw ng linggo
  MsgBox WeekDay(someDay)
  ' Naka-print ang "4" na ipinapalagay na Martes ang unang araw ng linggo
  MsgBox WeekDay(someDay, 3)