ເນື້ອໃນ

# ຟັງຊັນ 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)

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຟັງຊັນ DateSerial

ຟັງຊັນ DateValue

ຟັງຊັນ Now

WEEKDAY