Timer Function

์ž์ • ์ดํ›„ ๊ฒฝ๊ณผํ•œ ์‹œ๊ฐ„(์ดˆ)์„ ์ง€์ •ํ•˜๋Š” ๊ฐ’์„ ๊ตฌํ•ฉ๋‹ˆ๋‹ค.

์ฐธ๊ณ  ์•„์ด์ฝ˜

Timer ํ•จ์ˆ˜๋ฅผ ํ˜ธ์ถœํ•˜๋ ค๋ฉด ๋จผ์ € ๋ณ€์ˆ˜๋ฅผ ์„ ์–ธํ•˜์—ฌ "Long" ๋ฐ์ดํ„ฐ ํ˜•์‹์„ ํ• ๋‹นํ•ด์•ผ ํ•˜๋ฉฐ, ๊ทธ๋ ‡์ง€ ์•Š์„ ๊ฒฝ์šฐ Date ๊ฐ’์ด ๊ตฌํ•ด์ง‘๋‹ˆ๋‹ค.


๊ตฌ๋ฌธ:


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!