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