- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 显示System.TimeSpan无法转换String错误请费心如何解决 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146822)
-- 发布时间：2020/3/3 11:34:00
-- 显示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)
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)
代码执行后显示错误：
代码-- 发布时间：2020/3/3 13:13:00
--
Output.Show只能输出字符串，或者能够转换为字符串的对象
Output.Show(t.TotalDays)