[Resolvido]Formato de Horas Negativas

Amigos do fórum,
Peguei a seguinte função que faz o cálculo entre intervalos de horas (Saída-Entrada) trazendo horas negativas.

Public Function CalculaHoras(Carga As Date, Total As Date) As String
   Dim intHoras As Integer
   Dim intMinutos As Integer
   intMinutos = DateDiff("n", Total, Carga)
   intHoras = intMinutos \ 60
   intMinutos = intMinutos Mod 60
   CalculaHoras = CStr(intHoras) & "Horas" & CStr(intMinutos) & "minutos"
End Function

Ele me traz o formato de horas negativos da seguinte maneira: " - 1 Horas - 30 minutos"

Na consulta adiconei um campo da seguinte forma:

Saldo Horas: Format(CalculaHoras([Total];[Carga]);'Hora abreviada')

Mesmo assim não deu certo! Quero a formatação de horas apareça da seguinte maneira: "-01:30" para horas negativas, pois para horas positivas aparece normalmente.

Grato pela atenção de todos.

Provavelmente a chamada da função esta com os campos invertidos, ou ate mesmo na Função...

Ex:
HEntrada= 08:00h
HSaida: 10:00h

Se vc calcular assim: HEntrada - Hsaida = -02:00h

Agora se vc Fizer assim: HSaida - HEntrada = 02:00h

Então Inverta os campos...

=CalculaHoras([HSaida];[HEntrada]) <=='Essa é a forma correta de chamar sua Função!

Olá Fábio,
Agradeço pela atenção!

Mas acontece que a Função traz o seguinte resultados para horas negativas:

- 1 horas -30 minutos.

Quero saber onde posso mudar para que me traga o seguinte formato:

- 01:30

Como resolver isso?

A sua sugestão foi de grande valia mesmo assim não me trouxe o formato pretendido.

Bom se quer apenas remover o - dos Minutos mude esta linha:


CalculaHoras = CStr(intHoras) & ":" & Replace(CStr(intMinutos), "-", "")

Assim utilizamos o Replace, para remover o sinal de - dos Minutos.

Olá Fábio,

Estamos quase lá....ao inserir a função:

Public Function CalculaHoras(Carga As Date, Total As Date) As String
Dim intHoras As Integer
Dim intMinutos As Integer
intMinutos = DateDiff("n", Carga, Total)
intHoras = intMinutos \ 60
intMinutos = intMinutos Mod 60
CalculaHoras = CStr(intHoras) & ":" & Replace(CStr(intMinutos), "-", "")
End Function

Tentei inserir mais uma coluna na consulta com a seguinte expressão: Saldo: format(datediff('nn';Carga;Concluido);'hh:mm')

Aparece os valores somente positivos no formato 01:30 e não aparece valores negativos conforme gostaria "-01:30".

Meu amigo, a mudança que fizemos foi na Função CalculaHoras() da forma como esta fazendo não esta usando a função!!!...

Saldo: format(datediff('nn';Carga;Concluido);'hh:mm')

Se vai ter uma função, use-a pra calcular a diferença!

Assim: Saldo: CalculaHoras(Carga;Concluido)