Scott090

¦^´_ 1# msmplay

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

Scott090

¦^´_ 1# msmplay


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

Scott090

¦^´_ 1# msmplay

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

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

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

Scott090

¦^´_ 14# msmplay


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