Question

Excel VBA 怎样进行时间比较大小

Answer 1

只要是时间格式可以用if直接比较。
例如下面这个自定函数就是求两个时间中哪一个时间最接近当前日期：
Function TimeCompared(a as date,b as date) as date
if a>=b then
TimeCompared=a
else
TimeCompared=b
end if
End Function

Sub test() ‘函数的调用
dim a as date,b as date
a="2007-7-1 11:20:00":b="2007 -7-2 14:25:14" '格式一样时
'当"17:25:36"与“2007-1-5 05:25:39”进行比较时，“17:25:36”将被默认为1899年12月30日的17点25分36秒
Msgbox TimeCompared（a,b）
end sub

Answer 2

f Max_a < .Cells(i, zongbiaolie) Then Max_a = .Cells(i, zongbiaolie):Maxline = .Cells(i, 1)If Min_a > .Cells(i, zongbiaolie) Then Min_a = .Cells(i, zongbiaolie):Minline = .Cells(i, 1)在 if max_a < XX 后，必须 max_a = XX ，就是及时更换max_a的值，否则您得到的只是i序列中，最后一个比max_a大的值。最小值的情况也一样，得到的是i序列中最后一个比min_a小的值，而不是所有i序列的最小值。