读书人

vb6.0+access 时间相加有关问题!

发布时间: 2012-03-09 21:42:55 作者: rapoo

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

VB code
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 

读书人网 >VB

热点推荐