[µo°Ý] VBA­pºâ°õ¦æ®É¶¡Åã¥Ü¬°x¤Àx¬í

msmplay

½Ð°Ýºô¤j­Ì¡A¥H¤U¬O§Ú¦bºô¸ô¤W§ä¨ì¥i¥H­pºâµ{¦¡°õ¦æ¹Bºâ®É¶¡ªºµ{¦¡½X¦ý¥u¯àÅã¥Ü¬í¼Æ¡A¸Ó¦p¦óÅã¥Ü¬°x¤Àx¬í©O¡H
¨Ò¦p¡G4.25448¬í §Æ±æ§e²{¬° 0¤À4¬í
           69.54254¬í §Æ±æ§e²{¬° 1¤À9¬í
-------------------------------------------------------
dim t0
t0=timer
xxxxxxxxxxxxx(µ{¦¡½X)
msgbox "°õ¦æ®É¶¡: " & timer-t0 & " ¬í"
-------------------------------------------------------

baomin

¦^´_ 1# msmplay
¨Ìjackyq¤jªºµ{¦¡½X
t0 = Timer
'========== your code begin
................
'========== your code end
t0 = Timer - t0
msgbox t0 \ 60 & "¤À  " & (t0 - t0 \ 60 * 60) & "¬í"
§ï¦¨MsgBox t0 \ 60 & "¤À  " & Round(t0 - (t0 \ 60) * 60, 0) & "¬í"
´N¥i¹F¨ì

Scott090

¦^´_ 14# msmplay


    round() ¨ç¼Æ·|¥|±Ë¤­¤J¡A¤£²Å¦X­ì©l»Ý¨D (§¹¥þ±Ë±ó¤p¼Æ³¡¤À)

msmplay

¦^´_ 12# jackyq


    µ²ªG§A¬ð¯}ª¼¸z¤F..............§Ú¯uªº¨º»ò¯QÀs............

msmplay

¦^´_ 10# rouber590324
¦^´_ 7# jackyq
¦^´_ 4# Scott090


r¤j~~j¤j~~S¤j~~~©êºp©êºp¡A¬O§Úªº¿ù¡A¬O§Ú»~§âµ{¦¡½X©ñ¿ù¦a¤è¤F¡AÃø©Ç°õ¦æ°_¨Ó³£¨S¦¨¥\

¥Ø«e¨Ï¥Î¤T¦ì¤j®vªº¥N½X´ú¸Õ³£¥¿±`¥i¥H¶]¥X x ¤À x¬í¤F!!!¯uªº«D±`·PÁ§A­Ì¼ö¤ß¤SµL¨pªºÀ°¦£³á~~~~~~~~¦A¦¸·PÁÂ

jackyq

¦^´_  jackyq


   j¤j~~~~·PÁ¡A¦ý´ú¸Õ£¸µ{¦¡¶]§¹µ²ªG¬°¡G0¤À4.1953125¬í¡C¬í¼Æ¦ü¥GÁÙ¬O¨S¿ìªk¤£­n¦³¤p ...
msmplay µoªí©ó 2018-3-12 15:29

dim m%,s%
t0=timer  
s=int(timer-t0)
m=s\60
s=s-m*60
xxxxxxxxxxxxx(µ{¦¡½X) '-------> Code ©ñ³o¸Ì¬O¿ù»~ªº, §A¤@©w¥Ã»·±o¨ì 0
msgbox "°õ¦æ®É¶¡: " & m & " ¤À " &  s & " ¬í"

§Ú¤@¶}©l¬O¦bÃhºÃ§A©Ò¿×ªº³£¬O 0
¬O¦p¤W­ì¦] --> §A§â§Aªº code ©ñ¿ù¦ì¸m¤F¡@

¦ý¬O§Ú·Q¤F·Q , §A¤£¥i¯à¨º»ò¯QÀs , ·|©ñ¿ù¦ì¸m
©Ò¥H³q³q³£¬O0ªº­ì¦],  ¥u³Ñ°ß1 ¥i¯à , ´N¬O§Aªº code ÁöµM¦ì¸m©ñ¹ï, ¦ý¬O§Aªº code ¯Ó®É¨ä¹ê·¥µu
µu¨ì³s0.1 ¬í³£¤£¨ì  , ·íµM ³Ì²×¾ã¼Æ¬íµ²ªGÁÙ¬O = 0¡@

¨Ò¦p
t0=timer  
For w= 1 to 1  ' ----> code ¦ì¸m©ñ¹ï
Next
msgbox timer  - t0 '---> §Ú«OÃÒ "¾ã¼Æ¬í" ¥Ã»· = 0

©Ò¥H§Ú¤~À°§A«O¯d¤U¬í¼Æ¨ì ¤p¼ÆÂI
'================
¦ý¬O²{¦b§A«o»¡Åã¥Ü 4.1953125¬í ³o¤wªí©ú§A¥ý«e¤§©Ò¥H³£±o¨ì0 , ½T¹ê¬O¦]¬°§â code ©ñ¿ù¦ì¸m¤F

jcchiang

¦^´_ 1# msmplay
Sub ex()
t0 = Time()
MsgBox "°õ¦æ®É¶¡" & Format(CDate(Time()) - CDate(t0), "hh" & "®É" & "mm" & "¤À" & "ss" & "¬í")
End Sub

rouber590324

+ Round ¸Õ¬Ý¬Ý

MsgBox t0 \ 60 & "¤À  " & Round((t0 - t0 \ 60 * 60), 0) & "¬í"

Scott090

¦^´_ 6# msmplay


    ´N¹³ 7¼Ó¤@¼Ë¡A§â§Úµ¹ªºµ{¦¡½X¤ù¬q´¡¶i­n°õ¦æªºµ{¦¡½X¤º ¸Õ¸Õ¬Ý
sub test()
   dim s%
   dim t0
    t0=timer

   '­n°õ¦æªºµ{¦¡  
   ' ================
    xxxxxxxxxxxxxx
   '=================

    s=int(timer-t0)
    msgbox "°õ¦æ®É¶¡: " & s\60 & " ¤À " &  s mod 60 & " ¬í"

end sub

msmplay

¦^´_ 7# jackyq


   j¤j~~~~·PÁ¡A¦ý´ú¸Õ£¸µ{¦¡¶]§¹µ²ªG¬°¡G0¤À4.1953125¬í¡C¬í¼Æ¦ü¥GÁÙ¬O¨S¿ìªk¤£­n¦³¤p¼ÆÂI