【VBA研究】Excel时间比较要注意的一个问题

iamlaosong文

时间比较时要注意格式转换，否则会造成误判。假定A1单元格内容为2016-9-18  18:24:26，如果我们判断这个时间是否超过18:00，下列语句的aa值是false：

        aa = TimeValue(Cells(1, 1)) <= "18:00"

因为系统会自动将常量“18:00”转换为时间值，但是，如果我们现将“18:00”赋给变量，即：
        stime = "18:00"

        aa = TimeValue(Cells(1, 1)) <= stime

这时aa的值就是true，即使把上面的赋值语句改为stime = "00:00"结果也是一样，估计系统这时把stime当成字符串，而时间值是小于1的浮点数，按说是不能比较的，但实际情况是可以，结果是true，这样的错误很容易蒙混过关，让我们发现不了。正确的方法应该是：

        stime =
TimeValue("18:00")

        aa = TimeValue(Cells(1, 1)) <= stime

这样aa才能获得正确的比较结果。
还有一个办法，就是直接计算时间值，然后赋给变量比较，这样也不会出错。时间值的计算是这样的：
以一天的时间为1，你指定的时间占一天总时间的比值就是你要的时间值，例如：
18:00:00的时间值=18/24=0.7500

18:30:00的时间值=(18*60+30)/(24*60)=0.7708
18:30:30的时间值=(18*60*60+30*60+30)/(24*60*60)=0.7711

如果是简单的时间，直接用值，比如12:00的时间值是0.5，18:00就是0.75；
如果是很细的时间，用到分和秒的时间，还是用TimeValue函数吧。