取得 現在的 時分秒 數字

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

oobird

亦可利用內建函數
Sub test()
MsgBox Hour(Now) & " " & Minute(Now) & " " & Second(Now)
End Sub

c_c_lai

回復 1# sjgau
這樣不是更直接嗎？

1. Sub Ex()
   
2.     MsgBox Format(Now(), "hh:mm:ss")
   
3. End Sub

複製代碼

sunnyso

timer 和 now 有何區別

c_c_lai

回復 4# sunnyso
Timer 函數傳回一 Single 值，其內容為從前一個午夜算起到現在所經過的秒數。
Now 函數傳回一 Variant (Date)，內容為電腦現在所記錄的日期與時刻 (目前的系統日期與時間)。

sunnyso

回復 5# c_c_lai

感謝詳細解說, 受教了

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