Pessoal alguem tem uma função para somar horas que começam de um dia para outro,

Exemplo:

HoraInicial : 23:00

HoraFinal : 00:30

Resultado : 01:30

Sendo que os valores serão inseridos em duas textobox.

 

Tenta assim:

 

No General

Dim vIni, vIni2 As Integer
Dim vFin, vFin2 As Integer

Private Sub Form_Load()
vIni = Format(Time, "hh")
vIni2 = Format(Time, "mm")
End Sub

 

Private Sub Form_Unload(Cancel As Integer)

vFin = Format(Time, "hh")
vFin2 = Format(Time, "mm")
MsgBox Val(vIni) + Val(vFin) & ":" & Val(vIni2) + Val(vFin2)
End Sub

Nossa que viagem....não tinha lido o post direito..... é bem simples faz assim:

 

'No General

Dim vRes1, vRes2 As Integer

------------------------------------------------------------------------------
Private Sub Command1_Click()
vRes1 = Val(Mid(txtini, 1, Len(txtini) - 3)) + Val(Mid(txtfinal, 1, Len(txtfinal) - 3))
vRes2 = Val(Mid(txtini, 4, Len(txtini) - 2)) + Val(Mid(txtfinal, 4, Len(txtfinal) - 2))

If vRes1 >= 24 Then
    vRes1 = vRes1 - 24
End If
    If vRes2 >= 60 Then
        vRes2 = vRes2 - 60
    End If
   
txtres = vRes1 & ":" & vRes2
End Sub

------------------------------------------------------------------------------