主题：计算天数

窗口控件上分别有入院日期，住院第二天，住院第三天，住院第七天，出院日期，住院天数等控件，其中入院日期和出院日期手工录入，其他三个控件自动添加日期和住院天数，请问大师这些控件的代码，谢谢！！！

DataColChanged事件中加入下面的代码：

我改的代码：

Select Case e.DataCol.Name

    Case "入院日期","出院日期"

        Dim dr As DataRow = e.DataRow

        If dr.IsNull("入院日期") OrElse dr.IsNull("出院日期") Then

            dr("住院天数") = Nothing

        Else

            Dim tp As TimeSpan = dr("出院日期") - dr("入院日期") 

            dr("住院天数") = tp.TotalDays

        End If

End Select

出院日期尚未填写（病人在院时）时候第二天和第七天怎么算，上面代码入院日期和出院日期都填写的情况下有效，

Select Case e.DataCol.Name
    Case "入院日期","出院日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("入院日期") OrElse dr.IsNull("出院日期") Then
            dr("住院天数") = Nothing
        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

此主题相关图片如下：qq图片20150608233340.png

代码如何？