如下代码出现错误提示，是什么问题？

编译错误：没有为类型date和object定义运算符“-”

Select Case e.DataCol.Name
    Case "状态"
        If e.DataRow("状态") = "closed" Or e.DataRow("状态") = "请假" Or e.DataRow("状态") = "出差" Or e.DataRow("状态") = "未提交" Then
            e.DataRow("关闭日期") = Date.Now
        Else
            e.DataRow("关闭日期") = Nothing
        End If
    Case "开始日期","关闭日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("开始日期") Then
            dr("持续天数") = Nothing
        Else
            If dr.IsNull("关闭日期") Then
                Dim d1 As Date = Date.Today
                Dim tp1 As TimeSpan = d1 - dr("开始日期")
                dr("持续天数") = tp1.TotalDays + 1
            Else
                Dim tp As TimeSpan = dr("关闭日期") - dr("开始日期")
                dr("持续天数") = tp.TotalDays + 1
            End If
        End If
    Case "E列"
        \'代码三
End Select