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

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

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

½Ð°Ýºô¤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 & " ¬í"
-------------------------------------------------------
*¦v¤k¤@ªTµL»~*

¦^´_ 1# msmplay

¸Õ¸Õ¬Ý
dim cc as date, m%, s%
cc = cdate((timer-t0)/86400)
m = Minute(cc)
s = second(cc)
msgbox "°õ¦æ®É¶¡: " & m & " ¤À " &  s & " ¬í"

TOP

¦^´_ 1# msmplay


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

TOP

¦^´_ 1# msmplay

"\" ¾ã¼Æ°£ ¨ú¾ã¼Æ°Ó
"mod" °£ªk¨ú¾ã¼Æ¾l¼Æ

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

TOP

¦^´_ 4# Scott090

S¤j~~~«D±`·PÁÂÀ°¦£¡A¤£¹L¥H¤W3ºØ¤è¦¡§Ú¤µ¤Ñ¤§¤U³£¬OÅã¥Ü¬°0¤À0¬í
§Ú¬Owin7 office2007ª©¥»¡A¥i¥H¦A½Ð±Ð¤@¤U¬O­þ¸Ìªº°ÝÃD£v
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 4# Scott090

S¤j~¸É¥R¤@¤U¡A§Ú¬O¥Î¥H¤U3¬qµ{¦¡½X´ú¸Õªºdim cc as date, m%, s%
dim t0
t0=timer
cc = cdate((timer-t0)/86400)
m = Minute(cc)
s = second(cc)
msgbox "°õ¦æ®É¶¡: " & m & " ¤À " &  s & " ¬í"



dim t0
dim m%,s%
t0=timer
s=int(timer-t0)
m=s\60
s=s-m*60
xxxxxxxxxxxxx(µ{¦¡½X)
msgbox "°õ¦æ®É¶¡: " & m & " ¤À " &  s & " ¬í"



dim s%
dim t0
t0=timer
s=int(timer-t0)
msgbox "°õ¦æ®É¶¡: " & s\60 & " ¤À " &  s mod 60 & " ¬í"
*¦v¤k¤@ªTµL»~*

TOP

t0 = Timer

'========== your code begin
................
'========== your code end

t0 = Timer - t0

msgbox t0 \ 60 & "¤À  " & (t0 - t0 \ 60 * 60) & "¬í"

TOP

¦^´_ 7# jackyq


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

TOP

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

TOP

+ Round ¸Õ¬Ý¬Ý

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

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD