主题：显示System.TimeSpan无法转换String错误请费心如何解决

Dim Number As Integer
Dim QYDate As Date
DataTables("Message").load
Tables("Message").Sort = "CreateTime DESC"
QYDate  =  Tables("Message").Rows(0)("CreateTime")
Output.Show(QYDate)
Dim h1 As Integer = Date.now().hour
Dim t As TimeSpan = Date.Now - QYDate

If t.ToTALDAYS >= 1.36 And h1<17 Then '每天10-17点发送提醒一次
Output.Show("发送信息")
End If
Output.Show("不会发送信息")
Output.Show(h1)
Output.Show(t)

代码执行后显示错误：

 代码