Function SumaCampos(CampoUno As Double, CampoDos As Double) As Double
 SumaCampos = Int(CampoUno + CampoDos) + Int(Round(( _
     CampoUno + CampoDos - Int(CampoUno + CampoDos)) * 100, _
     2) / 60) + Round((Round((CampoUno + CampoDos - Int( _
     CampoUno + CampoDos)) * 100, 2) Mod 60) / 100, 2)
End Function