ຟັງຊັນ TimeSerial

ຄຳນວນເລກລຳດັບເວລາສຳລັບພາຣາມິເຕີຊົ່ວໂມງ, ນາທີ, ແລະ ວິນາທີ ທີ່ສົ່ງມານັ້ນເປັນຄ່າຕົວເລກ. ທ່ານສາມາດໃຊ້ຄ່ານີ້ເພື່ອຄຳນວນຄວາມແຕກຕ່າງລະຫວ່າງເວລາໄດ້.

ໄວຍາກອນ:

TimeSerial (hour, minute, second)

ຄ່າສົ່ງຄືນ:

ວັນທີ

ພາຣາມິເຕີ:

hour: ນິພົດຈຳນວນຖ້ວນໃດໜຶ່ງທີ່ບົ່ງບອກເຖິງຊົ່ວໂມງ ເຊິ່ງໃຊ້ເພື່ອຫາເລກລຳດັບເວລາ. ຄ່າທີ່ຖືກຕ້ອງ: 0-23.

minute: ນິພົດຈຳນວນຖ້ວນໃດໜຶ່ງທີ່ບົ່ງບອກເຖິງນາທີ ເຊິ່ງໃຊ້ເພື່ອຫາເລກລຳດັບເວລາ. ໂດຍທົ່ວໄປ, ໃຫ້ໃຊ້ຄ່າລະຫວ່າງ 0 ຫາ 59. ແຕ່ຢ່າງໃດກໍຕາມ, ທ່ານສາມາດໃຊ້ຄ່າທີ່ຢູ່ນອກຊ່ວງນີ້ໄດ້ ເຊິ່ງຈຳນວນນາທີຈະມີຜົນຕໍ່ຄ່າຊົ່ວໂມງ.

second: ນິພົດຈຳນວນຖ້ວນໃດໜຶ່ງທີ່ບົ່ງບອກເຖິງວິນາທີ ເຊິ່ງໃຊ້ເພື່ອຫາເລກລຳດັບເວລາ. ໂດຍທົ່ວໄປ, ທ່ານສາມາດໃຊ້ຄ່າລະຫວ່າງ 0 ຫາ 59. ແຕ່ຢ່າງໃດກໍຕາມ, ທ່ານສາມາດໃຊ້ຄ່າທີ່ຢູ່ນອກຊ່ວງນີ້ໄດ້ ເຊິ່ງຈຳນວນວິນາທີຈະມີຜົນຕໍ່ຄ່ານາທີ.

ຕົວຢ່າງ:

12, -5, 45 ກົງກັບ 11, 55, 45

12, 61, 45 ກົງກັບ 13, 2, 45

12, 20, -2 ກົງກັບ 12, 19, 58

12, 20, 63 ກົງກັບ 12, 21, 4

ທ່ານສາມາດໃຊ້ຟັງຊັນ TimeSerial ເພື່ອແປງເວລາໃດໜຶ່ງໃຫ້ເປັນຄ່າດຽວ ເຊິ່ງສາມາດໃຊ້ໃນການຄຳນວນຄວາມແຕກຕ່າງຂອງເວລາໄດ້.

ຟັງຊັນ TimeSerial ສົ່ງຄືນປະເພດ Variant ທີ່ມີ VarType 7 (ວັນທີ). ຄ່ານີ້ຈະຖືກເກັບໄວ້ພາຍໃນເປັນຕົວເລກ double-precision ລະຫວ່າງ 0 ຫາ 0.9999999999. ເຊິ່ງແຕກຕ່າງຈາກຟັງຊັນ DateSerial ຫຼື DateValue ທີ່ຄ່າລຳດັບວັນທີຈະຖືກຄຳນວນເປັນວັນໂດຍທຽບກັບວັນທີຄົງທີ່ໃດໜຶ່ງ, ທ່ານສາມາດຄຳນວນດ້ວຍຄ່າທີ່ສົ່ງຄືນຈາກຟັງຊັນ TimeSerial ໄດ້ ແຕ່ທ່ານບໍ່ສາມາດປະເມີນຄ່າພວກມັນໄດ້ໂດຍກົງ.

ໃນຟັງຊັນ TimeValue, ທ່ານສາມາດສົ່ງສະຕຣິງທີ່ບັນຈຸເວລາເປັນພາຣາມິເຕີໄດ້. ແຕ່ສຳລັບຟັງຊັນ TimeSerial, ທ່ານຕ້ອງສົ່ງພາຣາມິເຕີແຕ່ລະຕົວ (ຊົ່ວໂມງ, ນາທີ, ວິນາທີ) ເປັນນິພົດຕົວເລກແຍກກັນ.

ຕົວຢ່າງ:

Sub ExampleTimeSerial
Dim dDate As Double, sDate As String
    dDate = TimeSerial(8,30,15)
    sDate = TimeSerial(8,30,15)
    MsgBox dDate,64,"ເວລາໃນຮູບແບບຕົວເລ"
    MsgBox sDate,64,"ເວລາທີ່ຈັດຮູບແບບແລ້ວ"
End Sub