Timer Function

āĻŽāĻ§ā§āĻ¯āĻ°āĻžāĻ¤ā§‡āĻ° āĻĒāĻ° āĻĨā§‡āĻ•ā§‡ āĻ…āĻ¤āĻŋāĻ•ā§āĻ°āĻžāĻ¨ā§āĻ¤ āĻ¸āĻŽā§Ÿā§‡āĻ° āĻŽā§‹āĻŸ āĻ¸ā§‡āĻ•ā§‡āĻ¨ā§āĻĄā§‡āĻ° āĻĒāĻ°āĻŋāĻŽāĻžāĻŖ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ–āĻ•āĻžāĻ°ā§€ āĻŽāĻžāĻ¨ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤

āĻ¨ā§‹āĻŸ āĻ†āĻ‡āĻ•āĻ¨

āĻ¸āĻŽā§Ÿ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ•āĻ˛ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ…āĻŦāĻļā§āĻ¯āĻ‡ āĻĒā§āĻ°āĻĨāĻŽā§‡ āĻāĻ•āĻŸāĻŋ āĻ­ā§‡āĻ°āĻŋā§Ÿā§‡āĻŦāĻ˛ āĻĄāĻŋāĻ•ā§āĻ˛ā§‡ā§ŸāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡ āĻāĻŦāĻ‚ āĻāĻŸāĻŋāĻ¤ā§‡ āĻāĻ•āĻŸāĻŋ "Long" āĻĄāĻžāĻŸāĻž āĻ§āĻ°āĻ¨ āĻĒā§āĻ°ā§Ÿā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡, āĻ…āĻ¨ā§āĻ¯āĻĨāĻžā§Ÿ āĻ¤āĻžāĻ°āĻŋāĻ– āĻŽāĻžāĻ¨ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤


āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸:


Timer

āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:

āĻ¤āĻžāĻ°āĻŋāĻ–

āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ:


Sub ExampleTimer
Dim lSec As Long,lMin As Long,lHour As Long
    lSec = Timer
    MsgBox lSec,0,"Seconds since midnight"
    lMin = lSec / 60
    lSec = lSec Mod 60
    lHour = lMin / 60
    lMin = lMin Mod 60
    MsgBox Right("00" & lHour , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSec , 2) ,0,"The time is"
End Sub

Please support us!