DIMINUIR HORAS
Boa tarde a todos.
Como faco para diminuir horas ex.:
txt1.text = 85:00:00 [ô] somatorios das horas extras hh:mm:ss
txt2.text = 35:00:00[ô] total de horas de folga
Resultado = 50:00:00 [ô] total de horas restantes
Grato.
Como faco para diminuir horas ex.:
txt1.text = 85:00:00 [ô] somatorios das horas extras hh:mm:ss
txt2.text = 35:00:00[ô] total de horas de folga
Resultado = 50:00:00 [ô] total de horas restantes
Grato.
Usa isso:
Ou esta função:
DateDiff([Ô]n[Ô], Text2.Text, Text1.Text) / 60Ou esta função:
Private Function CalculaDiferenca(ByVal pm_hora_inicial As String, ByVal pm_hora_final As String) As String
Dim intHora As Integer
Dim intMinutos As Integer
Dim intSegundos As Integer
intHora = Hour(pm_hora_final) - Hour(pm_hora_inicial)
intMinutos = Minute(pm_hora_final) - Minute(pm_hora_inicial)
intSegundos = Second(pm_hora_final) - Second(pm_hora_inicial)
CalculaDiferenca = TimeSerial(intHora, intMinutos, intSegundos)
End Function
ROBIU, a function deu certo ate certo ponto.
Como eh um somatorio de horas (50:25:00) a function naun aceita acima de 12 horas e neste caso eh 50 horas.
Tem alguma outra forma?
Como eh um somatorio de horas (50:25:00) a function naun aceita acima de 12 horas e neste caso eh 50 horas.
Tem alguma outra forma?
Valeu Robiu.
Consegui atraves de dicas aqui do site.
Muito obrigado.
Consegui atraves de dicas aqui do site.
Muito obrigado.
Tópico encerrado , respostas não são mais permitidas