关于VBA中的当前时间计算剩余或者超过时间

超级无敌爆爆龙

想要有个时间计算的宏。逻辑如下
如果现在的时间在18:30分前。
显示：你距离下班时间还剩余**小时**分钟
如果现在的时间在18点30分以后，
显示：你已经加班**小时**分钟了

中间的*号应该是通过计算得出的。

自己有尝试做。但是好像怎么都不对。求大大帮忙

1. Sub 比较时间()
   
2. Dim 时间1, 时间2, 时间差
   
3. 时间1 = TimeValue(Now())
   
4. 时间2 = TimeValue("20:00")
   
5. If 时间1 <= 时间2 Then
   
6. 时间差 = 时间1 - 时间2
   
7. 时间3 = TimeValue(Now())
   
8. MsgBox "距离下班时间还要" & Format(时间差, "hh :mm") & "小时"
   
9. Else
   
10. 时间差 = 时间2 - 时间1
    
11. MsgBox "童鞋你已经加班" & Format(时间差, "hh") & "小时" & Format(时间差, "mm") & "分钟啦！快回家！"
    
12. End If
    
13. End Sub
    

复制代码

超级无敌爆爆龙

自己发现问题了。原来MM不仅可以指分钟。还可以作为month来用。改成N就行。修改后的代码如下给大家参考下

1. Sub timereminder()
   
2. Dim 时间1, 时间2, 时间差, 时间3
   
3.     时间1 = TimeValue(Now())
   
4.     时间2 = TimeValue("18:00")
   
5.         If 时间1 >= 时间2 Then
   
6.     '        时间差 = 时间1 - 时间2
   
7.             MsgBox "灭霸你好，都已经" & Format(时间1, "hh") & "点" & Format(时间1, "n") & "分了，你咋还在加班呢？发完快回家！"
   
8.         Else
   
9.             时间差 = 时间2 - 时间1
   
10.             MsgBox "距离下班还有" & Format(时间差, "hh") & "小时" & Format(时间差, "n") & "分钟哟~加油鸭！"
    
11.         End If
    
12. End Sub
    
13. 
    

复制代码

liulang0808

Format(时间1, "hh:mm") 看看这样是否可行吧

超级无敌爆爆龙

liulang0808 发表于 2019-5-10 21:41
Format(时间1, "hh:mm") 看看这样是否可行吧

嗯嗯放在一起是可以的。单独拿分钟出来就会变成月份。已经搞定了。谢啦