第43集	日期与时间专辑

189、 返回当前日期、时间（指本机系统设置的日期和时间）

Sub t1()

Debug.Print Date '返回当前日期

Debug.Print Time '返回当前时间

Debug.Print Now  '返回当前日期+时间

End Sub

190、 格式化显示日期Format函数

Sub t2()

Debug.Print Format(Now, “yyyy-mm-dd”)  '2018-06-28

Debug.Print Format(Now, “yyyy年mm月dd日”)  '2018年06月28日

Debug.Print Format(Now, “yyyy年mm月dd日 h:mm:ss”)  '2018年06月28日 10:37:44

Debug.Print Format(Now, “d-mmm-yy”) '英文月份  28-Jun-18

Debug.Print Format(Now, “d-mmmm-yy”) '英文月份 28-June-18

Debug.Print Format(Now, “aaaa”) '中文星期  星期四

Debug.Print Format(Now, “ddd”) '英文星期前三个字母 Thu

Debug.Print Format(Now, “dddd”) '英文星期完整显示  Thursday

End Sub

191、 根据年月日返回日期DateSerial

Sub t3()

Debug.Print VBA.DateSerial(2011, 10, 1)    '2011/10/1

End Sub

192、 根据小时分钟返回时间TimeSerial

Sub t4()

Debug.Print VBA.TimeSerial(1, 2, 1)    '1:02:01

End Sub

193、 返回年月日小时分秒

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

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

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

195、 计算两时间的差（常用）

Sub tt2() '计算两时间的差

Dim t, x

t = Timer

For x = 1 To 10000000

Next x

Debug.Print Timer - t

End Sub

196、 日期时间加减DateAdd

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

197、 OnTime方法

安排一个过程在将来的特定时间运行（既可以是具体指定的某个时间，也可以是指定的一段时间之后）。使用 Now + TimeValue(time) 可安排经过一段时间（从现在开始计时）之后运行某个过程。使用 TimeValue(time) 可安排某个过程只运行指定的时间。



Dim k

Sub ttt1()

Application.OnTime TimeValue(“15:46:00”), “a”   '指定时间运行a过程

End Sub
Sub ttt2()

Application.OnTime Now + TimeValue(“00:00:02”), “a” '现在开始2秒后运行a过程

End Sub
Sub a()

MsgBox “test”

End Sub

'--------------------------------------------------------------------------------------------------

Sub 时间显示()

Dim x

If k = 1 Then

k = 0

End

End If

Range(“a1”) = Format(Now, “h:mm:ss”)

Application.OnTime Now + TimeValue(“00:00:01”), “时间显示”

x = DoEvents  '转让控制权，以便让操作系统处理其它的事件。

End Sub
Sub 结束时间显示()

k = 1  '运行此过程，将结束时间显示程序

End Sub

分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.168-NO.169内容是：
NO. 170：如何利用VBA代码，限制重复值的录入
NO. 171：如何利用VBA代码，使用消息框显示当月最后一天的日期
VBA过程代码170：如何利用VBA代码，限制重复值的录入
Private Sub Worksheet_Change(ByVal Target As Range)
   With Target
    If .Column <> 1 Or .Count > 1 Then Exit Sub
    If WorksheetFunction.CountIf(Range("A:A"), .Value) > 1 Then
      .Select
      MsgBox "不能输入重复的人员编号!", 64
       Application.EnableEvents = False
       .Value = ""
       Application.EnableEvents = True
     End If
  End With
End Sub
代码的解析说明：工作表的Change事件过程，使A列单元格只能录入唯一的人员编号。
代码中使用工作表的CountIf 函数来判断在A列单元格输入的人员编号是否重复。在示例中以所录入的人员编号与A列单元格区域进行比较，如果CountIf 函数的返回值大于1，说明录入的是重复编号。在清除前将Application对象的EnableEvents属性设置为False，禁止触发事件。因为如果不禁用事件，那么在清除重复值的过程中会不断地触发工作表的Change事件，从而造成代码运行的死循环。经过以上的设置，在工作表的A列中只能录入唯一的人员编号，如果录入重复值会进行提示不能输入重复的人员编号!
——————————————————————————————————————————————————————————————————————————————
VBA过程代码171：如何利用VBA代码，使用消息框显示当月最后一天的日期
Sub mynz() 
      Dim MyDateStr As Byte
      MyDateStr = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
      MsgBox "本月的最后一天是" & Month(Date) & "月" & MyDateStr & "号"
  End Sub
代码的解析说明：上述的Mynz过程配合使用了4个VBA内置函数Year、Month、Day和DateSerial完成计算并使用消息框显示当月最后一天的日期。Date为当前的具体日期。 Month(Date) + 1 表示当前月的下个月。 Day(DateSerial(Year(Date), Month(Date) + 1, 0)) 表示当前月的下个月的前一天。
VBA是实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我“积木编程”思想的体现。每一讲都是较大块的“积木”，可以独立的完成某些或者某类的过程，有需要的朋友可以联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。其一：“VBA代码解决方案”PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；其二“VBA数据库解决方案”PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。其三“VBA数组与字典解决方案”PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。其四“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，半年精进VBA”，越早参与，回馈越多。现在录制到第二册的95讲。