如何判断两段日期是否有包括或者重叠的日子？

ャ想想ャ

请问，我有两段日期如下：判断 第二段日期 与第一段日期 是否有重叠，或 包括第一段日期
比如：在两个字符串比较：           Sdate to Edate               Sdate2 to Edate2             结果
                                              20220712-20220821         20220821-20220901       有重叠
                                                                                    20220225-20220712       有重叠
                                                                                    20220620-20220901       包括
                                                                                    20220530-20220612       无重叠
                                                                                    20220830-20221001       无重叠
请问应该如何写代码，谢谢。

xiaoyuemt

'确定 sdate<=edate

1. Sub xComp()
   
2. Dim str1, str2, t1, t2, t3, t4 As String
   
3. str1 = "20220802-20220921"
   
4. str2 = "20220803-20220821"
   
5. t1 = Split(str1, "-")(0)
   
6. t2 = Split(str1, "-")(1)
   
7. t3 = Split(str2, "-")(0)
   
8. t4 = Split(str2, "-")(1)
   
9. If (t1 <= t3 And t3 <= t2) Or (t1 <= t4 And t4 <= t2) Or (t3 <= t1 And t1 <= t4) Or (t3 <= t2 And t2 <= t4) Then
   
10.   If (t1 >= t3 And t2 <= t4) Then
    
11.      MsgBox "二包括一"
    
12.   Else
    
13.     MsgBox "有重叠"
    
14.   End If
    
15. Else
    
16.   MsgBox "没有重叠"
    
17. End If
    
18. End Sub

复制代码

iu950

附件供参考。。。

tmplinshi

1. Sub test()
   
2.     Debug.Print CompareDateRange("20220712-20220821", "20220821-20220901")
   
3.     Debug.Print CompareDateRange("20220712-20220821", "20220225-20220712")
   
4.     Debug.Print CompareDateRange("20220712-20220821", "20220620-20220901")
   
5.     Debug.Print CompareDateRange("20220712-20220821", "20220530-20220612")
   
6.     Debug.Print CompareDateRange("20220712-20220821", "20220830-20221001")
   
7. End Sub
   
8. 
   
9. Function CompareDateRange(dateRange1 As String, dateRange2 As String)
   
10.     Dim s1 As Date
    
11.     Dim e1 As Date
    
12.     Dim s2 As Date
    
13.     Dim e2 As Date
    
14. 
    
15.     s1 = DateSerial(Left(dateRange1, 4), Mid(dateRange1, 5, 2), Mid(dateRange1, 7, 2))
    
16.     e1 = DateSerial(Mid(dateRange1, 10, 4), Mid(dateRange1, 14, 2), Right(dateRange1, 2))
    
17.     s2 = DateSerial(Left(dateRange2, 4), Mid(dateRange2, 5, 2), Mid(dateRange2, 7, 2))
    
18.     e2 = DateSerial(Mid(dateRange2, 10, 4), Mid(dateRange2, 14, 2), Right(dateRange2, 2))
    
19.    
    
20.     CompareDateRange = IIf(e2 - s1 < 0 Or s2 - e1 > 0, "无重叠", _
    
21.                        IIf(s2 - s1 < 0 And e2 - e1 > 0, "包括", "有重叠"))
    
22. End Function

复制代码

tmplinshi

hcm19522

D2=IFERROR(IF(TEXT(MIN(RIGHT(A$2,8),RIGHT(B2,8))-MAX(LEFT(A$2,8),LEFT(B2,8)),"0;")-RIGHT(A$2,8)+LEFT(A$2,8)=0,"包括","有重叠"),"无重叠")