主题：日期列中的空日期到底是什麼?

等价的，日期是从1900开始计算的。

你要根据情况变通处理。

 看不懂你的代码，是不是这个意思？

Select Case e.DataCol.Name
    Case "時間A1","時間A2"
        SystemReady = False
        Dim sp As TimeSpan
        If e.DataRow("時間A1") > e.DataRow("時間A2") Then
            sp = e.DataRow("時間A1") - e.DataRow("時間A2")
        Else
            sp = e.DataRow("時間A2") - e.DataRow("時間A1")
        End If
        e.DataRow("時間A時間差") = sp.TotalMinutes
        SystemReady = True
End Select

 计算相差，如果是第二种情况，就加24小时，自己处理一下即可

Select Case e.DataCol.Name
    Case "時間A1","時間A2"
        SystemReady = False
        Dim sp As TimeSpan
        If e.DataRow("時間A2") >= e.DataRow("時間A1") Then
            sp = e.DataRow("時間A2") - e.DataRow("時間A1")
            e.DataRow("時間A時間差") = sp.TotalHours
        Else
            sp = e.DataRow("時間A1") - e.DataRow("時間A2")          
            e.DataRow("時間A時間差") = 24 - sp.TotalHours
        End If
       
        SystemReady = True
End Select