SALDO NA HORA

IRENKO 02/10/2006 09:14:45
#174920
Tenho 03 text sendo:

Text1 = hora inicial
text2= hora final
text3= resultado

horário normal = 07:00 as 17:00

gostaria de pegar somente o excedente ex:

07:00 - 18:00 no caso 1 hora

como faço esse calculo?
LOOZE 02/10/2006 09:20:40
#174922
Estas 8 horas podem ser uma variavel. ou seja, hoje vc quer 8 amanha quer 6 .... se for o que to pensando... então pode criar um banco onde armazene o valor que deseja realmente senão faça.

Resultado = DateDiff("h", Inicial, Final) - 8
IRENKO 02/10/2006 10:06:14
#174929
Private Sub CommandButton1_Click()
'On Error GoTo TratarErro

Dim VarHoraInicial As Date
Dim VarHoraFinal As Date

VarHoraInicial = TxtHinicial.Text
VarHoraFinal = TxtHfinal.Text

TxtSaldo.Text = DateDiff("h", VarHoraInicial, VarHoraFinal)

End Sub

Fiz conforme acima, porem se eu digito 17:00 em um text e 19:30 no outro o resultado é 2. Como faço para formatar o resultado correto 02:30?
FABIO.LOUREIRO 02/10/2006 11:06:33
#174945 Resposta escolhida
Sub xxteste()
x = TotalTempoCorrido("07:00", "17:30", "08:00")
End Sub

' Clacula o tempo com a diferença 
Public Function TotalTempoCorrido(ByVal Inicial As String, ByVal Final As String, ByVal Diferença As String) As String

Dim x, y As String
        x = DateDiff("N", CDate(Inicial), CDate(Final))
        x = Format(Int(x / 60), "00") & Format(x Mod 60, "00")
        x = Format(x, "00:00")
        y = DateDiff("N", CDate(Diferença), CDate(x))
        y = Format(Int(y / 60), "00") & Format(y Mod 60, "00")
        y = Format(y, "00:00")
        TotalTempoCorrido = y
End Function


Até mais.
Tópico encerrado , respostas não são mais permitidas
Voltar