Amigos, gostaria que analisasem essa rotina que desenvolvi.

 

Será que está correta?

 

Dim HH As Integer
                Dim MM As Integer
                HH = Val(Left(rstHorasTrab("HORAS_TRABALHADAS"), 2)) + Val(Left(rstHorasTrab("HORAS_TRABALHADAS2"), 2))
                MM = Val(Right(rstHorasTrab("HORAS_TRABALHADAS"), 2)) + Val(Right(rstHorasTrab("HORAS_TRABALHADAS2"), 2))
                HH = HH * 60
                HH = HH + MM
                MM = HH - Int(HH)
                HH = (HH / 60) - MM
               
                If MM >= 60 Then
                    MM = MM / 60
                    HH = HH + Int(MM)
                    If MM <= 1.99 Or MM >= 60 Then
                       Do While MM >= 60 Or MM <= 1.99
                            MM = MM / 60
                            HH = HH + Int(MM)
                       Loop
                    End If
                 End If
                rstHorasTrab.Edit
                rstHorasTrab("TOT_HORAS_TRABALHADAS") = strzero(Str(HH), 2) + ":" + strzero(Str(MM), 2)
                rstHorasTrab("REFERENCIA_FOLHA") = cbo_mes.Text
                rstHorasTrab("ANO_FOLHA") = txt_ano.Text
                rstHorasTrab.Update
                
                   
                '----------------------------------
                'Sua Rotina.....
                '----------------------------------