CALCULO DE HORAS

Citação:

:
Maxcim,

Veja se a rotina abaixo lhe serve.

Pelo que entendi você precisa considerar a pausa do dia também, almoço, jantar, lanches, etc.

é isso mesmo?

Private Sub Command1_Click()
Dim tempogasto As Double

If txttempoproducao > txttempotrab Then
tempogasto = (Val(txttempoproducao) / Val(txttempotrab)) - Val(txtpausa)
If Weekday(Date) = 6 Then
txttempogasto = tempogasto + 3
Else
txttempogasto = tempogasto
End If
Else
tempogasto = (Val(txttempotrab) / Val(txttempoproducao)) - Val(txtpausa)
If Weekday(Date) = 6 Then
txttempogasto = tempogasto + 2
Else
txttempogasto = tempogasto
End If
End If
End Sub