"2023年05月22日-2023年05月28日配电带电作业计划完成情况表""4月15日周（六）"从这两个句子中提取日期比较大小 vba

以下是一个简单的 VBA 代码示例，可以提取这两个句子中的日期并进行比较：

Sub CompareDates()
    Dim str1 As String
    Dim str2 As String
    Dim date1 As Date
    Dim date2 As Date
    
    ' 从第一个句子中提取日期
    str1 = "2023年05月22日-2023年05月28日配电带电作业计划完成情况表"
    date1 = DateSerial(Mid(str1, 1, 4), Mid(str1, 6, 2), Mid(str1, 9, 2))
    date2 = DateSerial(Mid(str1, 14, 4), Mid(str1, 19, 2), Mid(str1, 22, 2))
    
    ' 从第二个句子中提取日期
    str2 = "4月15日周（六）"
    date2 = DateSerial(Year(Date), Mid(str2, 1, 2), Mid(str2, 4, 2))
    
    ' 比较日期
    If date1 > date2 Then
        MsgBox "第一个日期比第二个日期晚。"
    ElseIf date1 < date2 Then
        MsgBox "第一个日期比第二个日期早。"
    Else
        MsgBox "两个日期相等。"
    End If
End Sub

请注意，此示例仅适用于您提供的特定日期格式，并且可能需要进行修改以适应不同的日期格式。