Formato de Horas Negativas

Question

Amigos do fórum,

Estou criando um Sistema de Cálculo de Horas no MS-ACCESS 2013.

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.

---

Marcelo Silva

Answer 1

O Access não armazena datas (e horários) de valores negativos, apenas positivos.

No seu caso, você terá que criar um campo adicional chamado, por exemplo IsPositive que será uma espécie de "flag" se o horário é positivo ou não. Então, adapte seu código.

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 2

Outra opção seria você armazenar os horários como outro tipo de dados - como Simples - e adaptar os cálculos para que 1 hora represente, por exemplo, 1 unidade do tipo de dados simples.

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br