ຟັງຊັນ WeekDay

ຟັງຊັນນີ້ສົ່ງຄືນຕົວເລກທີ່ກົງກັບວັນໃນອາທິດ ເຊິ່ງສະແດງໂດຍເລກລຳດັບວັນທີທີ່ສ້າງໂດຍຟັງຊັນ DateSerial ຫຼື DateValue.

ໜ້າຊ່ວຍເຫຼືອນີ້ອະທິບາຍກ່ຽວກັບຟັງຊັນ WeekDay ທີ່ໃຊ້ໃນສະຄຣິບ Basic. ຖ້າທ່ານສົນໃຈຟັງຊັນ WeekDay ທີ່ໃຊ້ໃນ LibreOffice Calc, ໃຫ້ເບິ່ງທີ່ ໜ້າຊ່ວຍເຫຼືອນີ້.

ໄວຍາກອນ:


  WeekDay (SerialDate, [FirstDayOfWeek])

ພາຣາມິເຕີ:

SerialDate: ນິພົດຈຳນວນຖ້ວນທີ່ບັນຈຸເລກລຳດັບວັນທີ ເຊິ່ງໃຊ້ເພື່ອຄຳນວນຫາວັນໃນອາທິດ.

FirstDayOfWeek: ຄ່າຈຳນວນຖ້ວນທີ່ບົ່ງບອກວ່າຄວນຖືວ່າວັນໃດເປັນວັນທຳອິດຂອງອາທິດ. ຄ່າເລີ່ມຕົ້ນແມ່ນ 0, ເຊິ່ງໝາຍຄວາມວ່າຈະໃຊ້ການຕັ້ງຄ່າທ້ອງຖິ່ນຂອງລະບົບເພື່ອຕັດສິນວັນທຳອິດຂອງອາທິດ.

ພາຣາມິເຕີ FirstDayOfWeek ຍອມຮັບຄ່າຕັ້ງແຕ່ 0 ຫາ 7. ຕາຕະລາງລຸ່ມນີ້ອະທິບາຍຄວາມໝາຍຂອງແຕ່ລະຄ່າ:

ຄ່າ	ຄ່າຄົງທີ່ VBA	ຄຳອະທິບາຍ
0	vbUseSystemDayOfWeek	ໃຊ້ການຕັ້ງຄ່າທ້ອງຖິ່ນຂອງລະບົບ
1	vbSunday	ວັນອາທິດ (ເລີ່ມຕົ້ນ)
2	vbMonday	ວັນຈັນ
3	vbTuesday	ວັນອັງຄານ
4	vbWednesday	ວັນພຸດ
5	vbThursday	ວັນພະຫັດ
6	vbFriday	ວັນສຸກ
7	vbSaturday	ວັນເສົາ

ຄ່າຄົງທີ່ VBA ທີ່ລະບຸໄວ້ຂ້າງເທິງຈະໃຊ້ໄດ້ກໍຕໍ່ເມື່ອມີການເປີດໃຊ້ການຮອງຮັບ VBA ແລ້ວເທົ່ານັ້ນ. ສຳລັບຂໍ້ມູນເພີ່ມເຕີມ, ໃຫ້ອ່ານໜ້າຊ່ວຍເຫຼືອ ຄຳສັ່ງ VBASupport.

ປະເພດຄ່າທີ່ສົ່ງກັບ:

ຈຳນວນຖ້ວນ (Integer)

ລະຫັດຂໍ້ຜິດພາດ:

5 ການເອີ້ນໃຊ້ໂປຣຊີເຈີບໍ່ຖືກຕ້ອງ

ຕົວຢ່າງ:

ຕົວຢ່າງຕໍ່ໄປນີ້ໃຊ້ຟັງຊັນ Now() ເພື່ອຫາວັນໃນອາທິດປັດຈຸບັນ.


Sub ExampleWeekDay
    Dim sDay As String
    ' ສົ່ງຄືນ ແລະ ສະແດງວັນໃນອາທິດ
    Select Case WeekDay( Now )
            Case 1: sDay="ວັນອາທິດ"
            Case 2: sDay="ວັນຈັນ"
            Case 3: sDay="ວັນອັງຄານ"
            Case 4: sDay="ວັນພຸດ"
            Case 5: sDay="ວັນພະຫັດ"
            Case 6: sDay="ວັນສຸກ"
            Case 7: sDay="ວັນເສົາ"
    End Select
    MsgBox "" + sDay,64,"ມື້ນີ້ແມ່ນ"
End Sub

ຕົວຢ່າງຕໍ່ໄປນີ້ສະແດງການໃຊ້ພາຣາມິເຕີ FirstDayOfWeek, ໂດຍສົມມຸດວ່າວັນອັງຄານເປັນວັນທຳອິດຂອງອາທິດ.


  Dim someDay As Long
  ' ວັນທີ 1 ມັງກອນ 2021 ແມ່ນວັນສຸກ
  someDay = DateSerial(2021, 01, 01)
  ' ພິມ "6" ໂດຍສົມມຸດວ່າວັນອາທິດເປັນວັນທຳອິດຂອງອາທິດ
  MsgBox WeekDay(someDay)
  ' ພິມ "4" ໂດຍສົມມຸດວ່າວັນອັງຄານເປັນວັນທຳອິດຂອງອາທິດ
  MsgBox WeekDay(someDay, 3)