主题：求教,代码怎么写?学习中..

估计楼主是想超过中午12点后都要减少1小时吧?  也就是从13点开始计算~~~~

Dim h0 As Date = dr("开始时间")
Dim h1 As Date = dr("完成时间")
If dr.IsNull("开始时间") = False And dr.IsNull("完成时间") = False Then
    If h0.hour = 12 

            If  h1 < h0 Then
                h1 = h1.AddHours(24)
            End If
        dr("累计用时时")=(h1- h0).Hours-1
        dr("累计用时分")=(h1- h0).Minutes
    Else       

           ' *******.这样不停的设置条件即可```````

            If  h1 < h0 Then
                h1 = h1.AddHours(24)
            End If
            dr("累计用时时")=(h1-h0).Hours
            dr("累计用时分")=(h1-h0).Minutes
    End If
End If