VBA 日期和时间计算

2020年3月29日21:48:03 2 46 views

日期和时间计算

计算两个日期相隔天数,月数,年数,小时,分种,秒

Sub tt1()
    Dim d1, d2 As Date
    d1 = #11/21/2011#
    d2 = #12/1/2011#
    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 = 1 To 10000000
  Next x
  
  Debug.Print Timer - t
End Sub

日期时间加减

Sub tt3()
    Dim d1, d2 As Date
    d1 = "2001-10-1 00:00:00"
    Debug.Print VBA.DateAdd("d", 10, d1) '加上10天
    Debug.Print VBA.DateAdd("m", 10, d1) '加上10个月
    Debug.Print VBA.DateAdd("yyyy", 10, d1) '加上10年
    Debug.Print VBA.DateAdd("yyyy", -10, d1) '减少10年
    Debug.Print VBA.DateAdd("h", 10, d1) '加上10小时后的时间
    Debug.Print VBA.DateAdd("n", 10, d1) '加上10分种后的时间
    Debug.Print VBA.DateAdd("s", 10, d1) '加上10秒后的时间
End Sub

 

 

 

历史上的今天

  1. 2019:  织梦dedecms文章内容页调取所属栏目的链接和名称(0)


欢迎来到菜鸟头头的个人博客,下方有我的微信二维码,对互联网感兴趣或有共同爱好的朋友,可加个好友一起交流学习。
本文章百度已收录,若发现本站有任何侵犯您利益的内容,请及时邮件或留言联系,我会第一时间删除所有相关内容。

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

目前评论:2   其中:访客  1   博主  1

    • avatar 小姚工作室 0

      VBA和VB是一样的吗?