高手请进（一个奇怪问题）

Question

时间怎么把它加起来
cdate(sum)=cdate(text1.text)+cdate(text.text)＋cdate(text3.text)＋------
这样加起来如果sum超过24小时会出错，变成1899-12-31　4:20:20.
怎么克服？？

Answer 1

使用DateAdd()函数可以实现Datetime类型数据的计算.不过看楼主的意思好像是要进行累加,不知道具体的需求是什么?

Answer 2

Cooly(☆回答问题不要分儿☆) 
是啊，是要时间累加起来

Answer 3

你的Text控件中的值分别是什么?
如果仅仅是要进行小时的累加,可以考虑使用DateAdd()下面的例子就是当前时间+1小时
msgbox DateAdd("h",1,now())

Answer 4

Cooly(☆回答问题不要分儿☆) 是这样子的Private Sub Command1_Click()str1 = "select cdate(sum (工作工时) )from 运送员工工作 where 姓名 ='" & Combo1.Text & "' and 运送日期>=cdate('" & CDate(DTPicker1.Value) & "') and 运送日期<=cdate('" & CDate(DTPicker2.Value) & "')"
Adodc2.RecordSource = str1
Adodc2.Refresh '刷新
Set DataGrid2.DataSource = Adodc2
'DataGrid2.Refresh '刷新
Label5.Caption = "统计结果:在这段时间共工作了"
Label8.Caption = Adodc2.Recordset.Fields(0)