ເນື້ອໃນ

# ຟັງຊັນ DateSerial

ສົ່ງຄືນຄ່າ ວັນທີ ສຳລັບປີ, ເດືອນ, ແລະ ວັນ ທີ່ລະບຸ.

### ໄວຍາກອນ:

    DateSerial (year, month, day)

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

ວັນທີ

### ພາຣາມິເຕີ:

ປີ: ນິພົດຈຳນວນຖ້ວນທີ່ບົ່ງບອກເຖິງປີ. ທຸກໆຄ່າລະຫວ່າງ 0 ຫາ 99 ຈະຖືກຕີຄວາມໝາຍເປັນປີ 1900-1999. ສຳລັບປີທີ່ຢູ່ນອກຊ່ວງນີ້, ທ່ານຕ້ອງປ້ອນຕົວເລກທັງສີ່ຫຼັກ.

ເດືອນ: ນິພົດຈຳນວນຖ້ວນທີ່ບົ່ງບອກເຖິງເດືອນຂອງປີທີ່ລະບຸ. ຊ່ວງທີ່ຍອມຮັບແມ່ນແຕ່ 1-12.

ວັນ: ນິພົດຈຳນວນຖ້ວນທີ່ບົ່ງບອກເຖິງວັນຂອງເດືອນທີ່ລະບຸ. ຊ່ວງທີ່ຍອມຮັບແມ່ນແຕ່ 1-31. ຈະບໍ່ມີການສົ່ງຄືນຂໍ້ຜິດພາດເມື່ອທ່ານປ້ອນວັນທີ່ບໍ່ມີຢູ່ແທ້ສຳລັບເດືອນທີ່ມີໜ້ອຍກວ່າ 31 ວັນ.

ຟັງຊັນ DateSerial ສົ່ງຄືນຈຳນວນວັນລະຫວ່າງວັນທີ 30 ທັນວາ 1899 ຫາ ວັນທີທີ່ກຳນົດ. ທ່ານສາມາດໃຊ້ຟັງຊັນນີ້ເພື່ອຄຳນວນຄວາມແຕກຕ່າງລະຫວ່າງສອງວັນທີ.

ຟັງຊັນ DateSerial ສົ່ງຄືນຂໍ້ມູນປະເພດ Variant ທີ່ມີ VarType 7 (Date). ພາຍໃນລະບົບ, ຄ່ານີ້ຈະຖືກເກັບເປັນຄ່າ Double, ເຊິ່ງເມື່ອກຳນົດວັນທີເປັນ 1900-01-01, ຄ່າທີ່ສົ່ງຄືນຈະແມ່ນ 2. ຄ່າລົບຈະກົງກັບວັນທີກ່ອນວັນທີ 30 ທັນວາ 1899 (ບໍ່ລວມວັນນັ້ນ).

ຖ້າກຳນົດວັນທີທີ່ຢູ່ນອກຊ່ວງທີ່ຍອມຮັບ, LibreOffice Basic ຈະສົ່ງຄືນຂໍ້ຄວາມຜິດພາດ.

ໃນຂະນະທີ່ທ່ານກຳນົດ ຟັງຊັນ DateValue ເປັນສະຕຣິງທີ່ບັນຈຸວັນທີ, ແຕ່ ຟັງຊັນ DateSerial ຈະປະເມີນແຕ່ລະພາຣາມິເຕີ (ປີ, ເດືອນ, ວັນ) ເປັນນິພົດຕົວເລກແຍກກັນ.

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

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

### ຕົວຢ່າງ:

      Sub ExampleDateSerial
      Dim lDate As Long
      Dim sDate As String
          lDate = DateSerial(1964, 4, 9)
          sDate = DateSerial(1964, 4, 9)
          MsgBox lDate ' ສົ່ງຄືນ 23476
          MsgBox sDate ' ສົ່ງຄືນ 1964-04-09 ໃນຮູບແບບ ISO 8601
      End Sub

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!