ຟັງຊັນ Timer

ສົ່ງຄືນຄ່າທີ່ລະບຸຈຳນວນວິນາທີທີ່ຜ່ານໄປຕັ້ງແຕ່ທ່ຽງຄືນ.

ທ່ານຕ້ອງປະກາດຕົວປ່ຽນກ່ອນເພື່ອເອີ້ນໃຊ້ຟັງຊັນ Timer ແລະ ກຳນົດປະເພດຂໍ້ມູນເປັນ "Long ", ບໍ່ດັ່ງນັ້ນຄ່າ Date ຈະຖືກສົ່ງຄືນ.

ໄວຍາກອນ:


  Timer

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

ວັນທີ

ຕົວຢ່າງ:


  Sub ExampleTimer
      Dim lSec As Long,lMin As Long,lHour As Long
      lSec = Timer
      MsgBox lSec, 0, "ວິນາທີນັບແຕ່ທ່ຽງຄືນ"
      lMin = Int(lSec / 60)
      lSec = lSec Mod 60
      lHour = Int(lMin / 60)
      lMin = lMin Mod 60
    MsgBox Format(lHour,"00") & ":"& Format(lMin,"00") & ":" & Format(lSec,"00"),  0, "ເວລາແມ່ນ"
End Sub

ຟັງຊັນ Timer ວັດແທກເວລາເປັນວິນາທີ. ເພື່ອວັດແທກເວລາເປັນມິນລີວິນາທີ ໃຫ້ໃຊ້ ບໍລິການ Timer ທີ່ມີຢູ່ໃນໄລບຣາຣີ ScriptForge.

ບໍລິການ ScriptForge.Timer