检查，如果时间范围落在之间不工作

Question

我需要检查，如果时间落在下午3时31分00秒和上午6时29分○○秒

这是在即时窗口什么时候返回我调试之间。

?TimeValue(TEMP.Cells(i, tAssgnStart)) >= WorksheetFunction.Min(TimeValue("15:31:00"), TimeValue("06:29:00")) 
False 
?TimeValue(TEMP.Cells(i, tAssgnStart)) 
02:00:00 
?WorksheetFunction.Min(TimeValue("15:31:00"), TimeValue("06:29:00")) 
0.270138888888889 
?cdate(WorksheetFunction.Min(TimeValue("15:31:00"), TimeValue("06:29:00"))) 
06:29:00 

?TimeValue(TEMP.Cells(i, tAssgnStart)) <= WorksheetFunction.Max(TimeValue("15:31:00"), TimeValue("06:29:00")) 
True 
?TimeValue(TEMP.Cells(i, tAssgnStart)) 
02:00:00 
?WorksheetFunction.Max(TimeValue("15:31:00"), TimeValue("06:29:00")) 
0.646527777777778 
?cdate(WorksheetFunction.Max(TimeValue("15:31:00"), TimeValue("06:29:00"))) 
15:31:00 

我尝试了很多东西，但由于某种原因我无法正确理解它。 任何人都可以告诉我我在做什么错在这里？

Answer 1

Sub Tester() 

    Dim t, x 
    For x = 1 To 23 
     t = TimeValue(Format(x, "00") & ":00:00") 
     Debug.Print Format(t, "hh:mm:ss"), t > TimeValue("15:31:00") Or _ 
              t < TimeValue("06:29:00") 
    Next x 

End Sub 

输出：

01:00:00  True 
02:00:00  True 
03:00:00  True 
04:00:00  True 
05:00:00  True 
06:00:00  True 
07:00:00  False 
08:00:00  False 
09:00:00  False 
10:00:00  False 
11:00:00  False 
12:00:00  False 
13:00:00  False 
14:00:00  False 
15:00:00  False 
16:00:00  True 
17:00:00  True 
18:00:00  True 
19:00:00  True 
20:00:00  True 
21:00:00  True 
22:00:00  True 
23:00:00  True 

Answer 2

你的方法在概念上是错误的。在Excel（VBA）中，有一天是一个整数。 Debug.Print CLng（Date）会给你今天的整数。明天将是今天+1。今天开始于00:00，并将于24:00结束。因此，每小时等于1/24，每分钟1/24/60，每秒1/24/60/60等等。时间是Double值，可以非常精确。更粗略地说，43028.5是表示2017年10月20日中午12点的日期/时间值。

显然15:31（0.646527777777778）晚于06:29（0.270138888888889）。如果你想指定明天的06:29，你将不得不添加一天，例如1.270138888888889或43029.270138888888889。要确定时间是否在43028.646527777777778和43029.270138888888889之间不会对您造成问题，还是将它？

Debug.Print CDbl（Now）会为您提供当前日期和时间的日期/时间值。 Cdbl（TIMEVALUE（ “15:31”））将返回时间值的一小部分1.

Answer 3

Variatus给出的时间和日期值是如何很好的概述存储在Excel中。为了仅比较一些任意值的时间值，我会做类似于下面的操作，其中减去您使用的值的整数部分将确保只比较变量的时间部分。

Function isBetweenTimes(fromTime As Date, toTime As Date, timeToCheck As Date) As Boolean 
    Dim f As Double, t As Double, c As Double 

    f = CDbl(fromTime): f = f - Int(f) 
    t = CDbl(toTime): t = t - Int(t) 
    c = CDbl(timeToCheck): c = c - Int(c) 

    isBetweenTimes = CBool(c >= f And c <= t) 
End Function 

Sub testFunction() 
    Dim fromTime As Date, toTime As Date, timeToCheck As Date 

    fromTime = #6:29:00 AM# 
    toTime = #3:31:00 PM# 
    timeToCheck = #2:00:00 PM# 

    Debug.Print isBetweenTimes(fromTime, toTime, timeToCheck) 
End Sub 

如果您还在意哪些日期的值，你显然不需要做减法。