ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

TOP

¥»©«³Ì«á¥Ñ jackyq ©ó 2018-3-12 18:33 ½s¿è
¦^´_  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

TOP

¦^´_ 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ÁÂ
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 12# jackyq


    µ²ªG§A¬ð¯}ª¼¸z¤F..............§Ú¯uªº¨º»ò¯QÀs............
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 14# msmplay


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

TOP

¦^´_ 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¨ì

J.jpg (16.79 KB)

J.jpg

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD