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

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

t0 = Timer

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

t0 = Timer - t0

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

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

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

¦^´_ 1# msmplay

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

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

TOP

¦^´_ 1# msmplay


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

TOP

¦^´_ 1# msmplay

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

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD