VBA日期比较问题

maikesimaya

望前辈帮忙指教：请查看附件，要实现以下功能，基础数据在sheet2中，点击查询安钮能将接单日介于 sheet1中开始 时间和截止时间之间的吨位统计 出来，请查看附件代码，估计是If arr1(ii, 5) >= tt1 And arr1(ii, 5) < tt2 Then，这句代码出错，好像无法进行日期比较，将这句 去掉其余代码就能执行了，谢谢。

wudixin96

你的数据源中是标准的日期格式，但是你的变量tt1和tt2是文本格式，当然无法进行比较了

maikesimaya

wudixin96 发表于 2015-6-30 10:11
你的数据源中是标准的日期格式，但是你的变量tt1和tt2是文本格式，当然无法进行比较了

请问前辈怎样将其格式转换为日期格式？

wudixin96

试试 cdate等内置函数

食言而肥120

我的办法是，将两个要比较的日期都转成Int 型 也可以解决，如 Int(date1)<=int(date2).
而且在vsto，date类型的变量也不可以做for循环的变量，如 for date1 =startDate to endDate（vba可以） ,对于这种我都是转换成int型来比的。for int(date1) =int(startDate )to int(endDate)
不知道有没有更好的办法？

maikesimaya

已经使用datevalue函数解决，感谢各位帮忙！

食言而肥120

食言而肥120 发表于 2015-7-2 14:00
我的办法是，将两个要比较的日期都转成Int 型 也可以解决，如 Int(date1)

对于日期类型的比较最近总结了新的方法：
Date.Compare(Date, Date) As Integer =1，0，-1
可以判断两个日期谁大谁小

对于for循环，循环变量不能用date类型的数据，所以需要把for循环改为while循环
dim i as integer=0
While (DateTime.Compare(dtStart.AddDays(i), dtEnd) <= 0)

    i=i+1
end while

ning84

1. Sub del1()
   
2.    Dim Rng As Range, oRng As Range
   
3.    Dim Rng1 As Range, Rng2 As Range
   
4.    Dim Rr, Str
   
5.    Dim Num1, Num2, Num, oNum
   
6.        With Sheet1
   
7.            For jj = 1 To 2
   
8.                Set Rng = .Range(.Cells(1, jj).Formula)
   
9.                RelationData Rng.Areas(1), Rng.Areas(2)
   
10.            Next jj
    
11.        End With
    
12. End Sub
    
13. 
    
14. Function RelationData(oRng1 As Range, oRng2 As Range)
    
15.       Dim Rng As Range, oRng As Range
    
16.       Dim Rng1 As Range, Rng2 As Range
    
17.       Dim Rr, Str, Num, Num1, Num2
    
18.            Num = 5
    
19.            Debug.Print oRng1.Address, oRng2.Address
    
20.            For Each Rng1 In oRng1
    
21.                Rr = 1
    
22.                For Each Rng2 In oRng2
    
23.                     If Rng2 > 0 Then
    
24.                          oNum = Num
    
25.                     ElseIf Rng2 < 0 Then
    
26.                          oNum = -Num
    
27.                     End If
    
28.                     ''
    
29.                     If Rng2 > 0 And Rng2 < 1 Then
    
30.                          Str = Application.WorksheetFunction.Ceiling(Rng2, oNum / 1440)
    
31.                          If Format(Rng1, "hh:mm") = Format(Str, "hh:mm") Then
    
32.                               If Rr = 1 Then
    
33.                                    Set oRng = Rng2
    
34.                               Else
    
35.                                   Set oRng = Union(oRng, Rng2)
    
36.                               End If
    
37.                               Rr = Rr + 1
    
38.                           End If
    
39.                        Else
    
40.                             Str = Application.WorksheetFunction.Ceiling(Rng2, oNum)
    
41. 
    
42.                             If Val(Rng1) = Val(Str) Then
    
43.                                 'Debug.Print Rr, Str, Rng1
    
44.                                 If Rr = 1 Then
    
45.                                     Set oRng = Rng2
    
46.                                 Else
    
47.                                     Set oRng = Union(oRng, Rng2)
    
48.                                 End If
    
49.                                 Rr = Rr + 1
    
50.                             End If
    
51.                        End If
    
52.                Next Rng2
    
53.                'Stop
    
54.                If Not oRng Is Nothing Then
    
55.                    Rng1(, 3) = "=" & oRng.Address(0, 0)
    
56.                    Set oRng = Nothing
    
57.                End If
    
58.                'Debug.Print Rng1(, 3).Address
    
59.            Next Rng1
    
60. End Function
    

复制代码