ເນື້ອໃນ

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

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