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

0001-01-02 15:00:00
1900-01-01 22:00:00

 

輸入的時候只輸入時間時，默認的日期是1900-01-01，但進行日期計算時卻有時是1900-01-01，有時又是以0001-01-01進行計算，這是怎麼回事？

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

 

你要根据情况变通处理。

分別有兩組時間為時間A1，時間A2，時間B1，時間B2

在DataColChanged設置以下代碼，得到的時間都不對

Select Case e.DataCol.Name
    Case "時間A1","時間A2"

        SystemReady = False
        If e.DataRow(e.DataCol.Name) < e.DataRow("時間B" & e.DataCol.Name.SubString(e.DataCol.Name.Length-1)) Then
            e.DataRow(e.DataCol.Name) = e.DataRow(e.DataCol.Name).AddDays(1)
        Else
            If e.DataRow(e.DataCol.Name).Day > 1 Then
                e.DataRow(e.DataCol.Name) = e.DataRow(e.DataCol.Name).AddDays(1-e.DataRow(e.DataCol.Name).Day)
            End If
        End If
        SystemReady = True
End Select

把项目发上来，你列设置有错，或者数据有错。

我需要得到的結果是根據兩個時間組的時間變動進行時間差的計算結果，另外就是不需要日期顯示的

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

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

 

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

不對，是要判斷兩個時間，如果時間2大於時間1，則為當天時間，如果時間2小於時間1，則為第二天時間，所以時間二的日期要加1天，然後計算兩個時間的時間差，時間2永遠都是大於時間1的

 

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") 
        Else
            sp = e.DataRow("時間A2").AddDays(1)  - e.DataRow("時間A1")
        End If
        e.DataRow("時間A時間差") = sp.TotalMinutes
        SystemReady = True
End Select

 

要的是這樣的效果，但是計算出來的結果就是不對

7楼代码有什么问题?测试没问题啊.180分钟不是正确的结果吗?

如果列按日期時間格式去計算就沒錯，但是將列設置成時間空日期的，然後再去計算就會出現

0001-01-02 15:00:00
1900-01-01 22:00:00

 

這兩種情況參與計算，結果就錯了

不要这样做不就好了.