ຟັງຊັນ TimeValue

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

ໄວຍາກອນ:


TimeValue (Text As String)

ຄ່າສົ່ງຄືນ:

ວັນທີ

ພາຣາມີເຕີ:

ຂໍ້ຄວາມ: ສຳນວນສະຕຣິງໃດໜຶ່ງທີ່ມີເວລາທີ່ທ່ານຕ້ອງການຄຳນວນໃນຮູບແບບ "HH:MM:SS".

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

ຟັງຊັນ TimeValue ນີ້ຈະສົ່ງຄືນປະເພດ Variant ທີ່ມີ VarType 7 (ວັນທີ) ແລະ ເກັບຄ່ານີ້ໄວ້ພາຍໃນເປັນຕົວເລກທົດສະນິຍົມຄວາມລະອຽດສອງເທົ່າລະຫວ່າງ 0 ຫາ 0.9999999999.

ກົງກັນຂ້າມກັບຟັງຊັນ DateSerial ຫຼື DateValue ບ່ອນທີ່ຄ່າວັນທີແບບລຽງລໍາດັບຈະສົ່ງຜົນເປັນຈຳນວນວັນທີ່ທຽບກັບວັນທີທີ່ກຳນົດໄວ້, ທ່ານສາມາດຄຳນວນດ້ວຍຄ່າທີ່ສົ່ງຄືນໂດຍຟັງຊັນ TimeValue ໄດ້ ແຕ່ທ່ານບໍ່ສາມາດປະເມີນພວກມັນໄດ້.

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

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

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

13 ປະເພດຂໍ້ມູນບໍ່ເຂົ້າກັນ

ຕົວຢ່າງ:


Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
    a1 = "ເວລາເລີ່ມຕົ້ນ"
    b1 = "ເວລາສິ້ນສຸດ"
    c1 = "ເວລາລວມ"
    a2 = "8:34"
    b2 = "18:12"
    daDT = TimeValue(b2) - TimeValue(a2)
    c2 = a1 & ": " & a2 & chr(13)
    c2 = c2 & b1 & ": " & b2 & chr(13)
    c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))
    MsgBox c2
End Sub