vb6.0+access 时间相加问题!急
我用vb6.0+access做了个记录的小软件,用datagrild做查询显示,我想在结果页(就是datagrild显示页)做个按钮和textbox来显示datagrild里的一列时间的累加结果(00:00:00),datagrild.text,datagrild.value返回的值和date类型加显示类型不匹配,这个东西到底应该怎么做啊,谢谢各位高手,小弟急需。
ps:累加的时间要不受24:00:00限制。
在此表示感谢,我是菜菜一个,还望大人们给个正解。!谢谢谢谢了!
[解决办法]
加on error resume next
Private Sub Command1_Click()On Error Resume Next Dim A As Integer, ab As Date Dim HH As Long, MM As Long, SS As Long For A = 0 To 6 DataGrid1.Row = A ab = DataGrid1.Columns("工时") HH = HH + Split(ab, ":")(0) MM = MM + Split(ab, ":")(1) SS = SS + Split(ab, ":")(2) Next MM = MM + SS \ 60 SS = SS Mod 60 HH = HH + MM \ 60 MM = MM Mod 60 Text1.Text = Format(HH, "00") & ":" & _ Format(MM, "00") & ":" & _ Format(SS, "00") End Sub