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

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

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

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

¦^´_ 14# msmplay


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

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD