ຟັງຊັນ 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 ຈະປະເມີນແຕ່ລະພາຣາມິເຕີ (ປີ, ເດືອນ, ວັນ) ເປັນນິພົດຕົວເລກແຍກກັນ.

  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