vba 时间

 Sub tt1()
   Dim d1, d2 As Date
    d1 = #//#
    d2 = #//#
    Debug.Print "相隔" & (d2 - d1) & "天"
    Debug.Print "相隔" & DateDiff("d", d1, d2) & "天"
    Debug.Print "相隔" & DateDiff("m", d1, d2) & "月"
    Debug.Print "相隔" & DateDiff("yyyy", d1, d2) & "年"
    Debug.Print "相隔" & DateDiff("q", d1, d2) & "季"
    Debug.Print "相隔" & DateDiff("w", d1, d2) & "周"
    Debug.Print "相隔" & DateDiff("h", d1, d2) & "小时"
    Debug.Print "相隔" & DateDiff("n", d1, d2) & "分种"
    Debug.Print "相隔" & DateDiff("s", d1, d2) & "秒"
   End Sub

    Sub tt2() '计算两时间的差
      Dim t, x
      t = Timer
      For x =  To
      Next x
      Debug.Print Timer - t
    End Sub

'2 日期时间加减
   Sub tt3()
    Dim d1, d2 As Date
    d1 = "2001-10-1 00:00:00"
    Debug.Print VBA.DateAdd("d", , d1) '加上10天
    Debug.Print VBA.DateAdd("m", , d1) '加上10个月
    Debug.Print VBA.DateAdd("yyyy", , d1) '加上10年
    Debug.Print VBA.DateAdd("yyyy", -, d1) '减少10年
    Debug.Print VBA.DateAdd("h", , d1) '加上10小时后的时间
    Debug.Print VBA.DateAdd("n", , d1) '加上10分种后的时间
    Debug.Print VBA.DateAdd("s", , d1) '加上10秒后的时间
   End Sub
'1 返回当前日期、时间（指本机系统设置的日期和时间）
  Sub t1()
    Debug.Print Date '返回当前日期
    Debug.Print Time '返回当前时间
    Debug.Print Now  '返回当前日期+时间
  End Sub

'2 格式化显示日期
   Sub t2()
     Debug.Print Format(Now, "yyyy-mm-dd")
     Debug.Print Format(Now, "yyyy年mm月dd日")
     Debug.Print Format(Now, "yyyy年mm月dd日 h:mm:ss")
     Debug.Print Format(Now, "d-mmm-yy") '英文月份
     Debug.Print Format(Now, "d-mmmm-yy") '英文月份
     Debug.Print Format(Now, "aaaa") '中文星期
     Debug.Print Format(Now, "ddd") '英文星期前三个字母
     Debug.Print Format(Now, "dddd") '英文星期完整显示
   End Sub
'3 根据年月日返回日期
   Sub t3()
     Debug.Print VBA.DateSerial(, , )
   End Sub
'4 根据小时分种返回时间
   Sub t4()
     Debug.Print VBA.TimeSerial(, , )
   End Sub

'5 返回年月日小时分秒

  Sub t5()
  Dim d
    d = "2011-10-28 01:10:03"
    Debug.Print Year(d) & "年"
    Debug.Print Month(d) & "月"
    Debug.Print Day(d) & "日"
    Debug.Print Hour(d) & "时"
    Debug.Print VBA.Minute(d) & "分"
    Debug.Print Second(d) & "秒"
  End Sub

Dim k
Sub ttt1()
Application.OnTime TimeValue("15:46:00"), "A"
End Sub
Sub a()
  MsgBox "test"
End Sub
Sub ttt2()
Application.OnTime Now + TimeValue("00:00:02"), "A"
End Sub

Sub 时间显示()
  Dim x
  If k =  Then
    k =
   End
  End If
  Range("a1") = Format(Now, "h:mm:ss")
  Application.OnTime Now + TimeValue("00:00:01"), "时间显示"
  x = DoEvents
End Sub

Sub 结束时间显示()
 k =
End Sub

---------------------
作者：预见未来to50
来源：CSDN
原文：https://blog.csdn.net/hpdlzu80100/article/details/80809356
版权声明：本文为博主原创文章，转载请附上博文链接！

time

now