主题：关于日期的计算.请教!!

请帮忙修改以下代码:

Select Case e.DataCol.Name
    Case "开始日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("开始日期") OrElse dr.IsNull("Date") Then
            dr("天数") = Nothing
        Else
            Dim tp As TimeSpan = dr("开始日期") - 今天日期      '这个今天日期应该如何写?我使用 Date.Today,不行/

            dr("天数") = tp.TotalDays
        End If
End Select