取得 現在的 時分秒 數字

sjgau

Sub test0459()
   t1 = Timer
   ' 取得 現在的時間，從今天的 00:00:00 到
   ' 現在的秒數，是 double
   
   t2 = Int(t1 / 60#)
   ' 取得分鐘
   
   t1 = t1 - t2 * 60#
   t1 = Int(t1)
   
   t3 = Int(t2 / 60#)
   ' 取得 小時
   
   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 --> 從今天早上的 凌晨 00:00:00 到現在的秒數



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 變數，不可以 重複宣告
    
14.    
    
15.    Dim x As Single, y As Single, z As Single
    
16.    ' DIM 可以放在程式段落的 中間
    
17.    
    
18.    x = Rnd * 90 + 10
    
19.    y = Rnd * 90 + 10
    
20.    
    
21.    MsgBox (" a= " & x & ", b= " & y)
    
22. End Sub

複製代碼

回復 8# sjgau