ElseIf e.DataRow("实际完成日期") > Now() AndAlso e.DataRow("实际完成日期") - Now() *24 < 12 Then
改成
ElseIf e.DataRow("实际完成日期") > Now() AndAlso (cdate(e.DataRow("实际完成日期")) - date.now).totalDays *24 < 12 Then