¨ú±o ²{¦bªº ®É¤À¬í ¼Æ¦r

sjgau

Sub test0459()
   t1 = Timer
   ' ¨ú±o ²{¦bªº®É¶¡¡A±q¤µ¤Ñªº 00:00:00 ¨ì
   ' ²{¦bªº¬í¼Æ¡A¬O double
   
   t2 = Int(t1 / 60#)
   ' ¨ú±o¤ÀÄÁ
   
   t1 = t1 - t2 * 60#
   t1 = Int(t1)
   
   t3 = Int(t2 / 60#)
   ' ¨ú±o ¤p®É
   
   t2 = t2 - t3 * 60
   MsgBox (t3 & ": " & t2 & ": " & t1)
End Sub

sjgau

¦^´_ 6# sunnyso


    Sub test()
   MsgBox ("hello, world! " & Timer)
   Cells(5, 1) = Timer
   ' 34886.01172 --> ±q¤µ¤Ñ¦­¤Wªº ­â±á 00:00:00 ¨ì²{¦bªº¬í¼Æ



End Sub

sjgau

Sub test()
   MsgBox ("timer= " & Timer)
   Cells(5, 1) = Timer
   ' 34886.01172
   
   MsgBox ("now= " & Now)
   Cells(6, 1) = Now
   ' 2013/10/24 09:50
End Sub

sjgau

1. Sub test1016()
   
2.    Randomize
   
3.    Dim a As Single, b As Single, c As Single
   
4.    
   
5.    a = Rnd * 90 + 10
   
6.    b = Rnd * 90 + 10
   
7.    
   
8.    ' show a, b
   
9.    MsgBox (" a= " & a & ", b= " & b)
   
10.    
    
11.    Randomize
    
12.    ' Dim a As Single, b As Single, c As Single
    
13.    ' a, b, c ÅܼơA¤£¥i¥H ­«½Æ«Å§i
    
14.    
    
15.    Dim x As Single, y As Single, z As Single
    
16.    ' DIM ¥i¥H©ñ¦bµ{¦¡¬q¸¨ªº ¤¤¶¡
    
17.    
    
18.    x = Rnd * 90 + 10
    
19.    y = Rnd * 90 + 10
    
20.    
    
21.    MsgBox (" a= " & x & ", b= " & y)
    
22. End Sub

½Æ»s¥N½X

¦^´_ 8# sjgau