主题：计算天数

上面代码入院日期和出院日期都填写的情况下有效 ，出院日期尚未填写（病人在院时）时候计算第二天和第七天的代码怎么改，我改了好多次都是错的，麻烦您帮我改一下，谢谢！！！！！

比如两个独立窗口时（如下图）
此主题相关图片如下：qq图片20150608233243.png

Select Case e.DataCol.Name
    Case "入院日期","出院日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("入院日期") OrElse dr.IsNull("出院日期") Then
            dr("住院天数") = Nothing
            If dr.IsNull("入院日期") = False Then
                dr("住院第二天") = dr("入院日期").AddDays(1)
                dr("住院第七天") = dr("入院日期").AddDays(6)
            End If
        Else
            Dim tp As TimeSpan = dr("出院日期") - dr("入院日期")
            dr("住院天数") = tp.TotalDays
            'If tp.TotalDays > 1 Then
            dr("住院第二天") = dr("入院日期").AddDays(1)
            'End If
            'If tp.TotalDays > 6 Then
            dr("住院第七天") = dr("入院日期").AddDays(6)
            'End If
        End If
End Select

谢谢您的帮助！

唉,很基础的问题都要问,就是不愿动脑筋.