主题：日期比较

validateEdit事件

If e.Col.name = "第二列" Then
    Dim d1 As Date = e.Row("第一列")
    d1 = new Date(1900, 1, 1, d1.Hour, d1.Minute, d1.Second)
    Dim d2 As Date = e.text
    d2 = new Date(1900, 1, 1, d2.Hour, d2.Minute, d2.Second)
    Dim sp As TimeSpan = d2-d1
    If sp.TotalHours < 6 Then
        e.cancel = True
        msgbox("不满足")
    End If
End If