horas no access com uma casa a mais na centena

Bom dia,

surgiu a necessidade de realizar o cálculo de horas no access, até aqui tudo ok, só que o campo devera conter um número a mais na casa da centena, pois se trata de horas de cursos extensos como pós graduação ex:

180:30:00
130:30:00
___________
311:00:00 - pois os trinta minutos são somados contando mais uma hora.

como proceder para a realização do cálculo.

Olá. Tente a opção de formatar data/hora e configure pra qtde de casas decimais você precisa.

Qualquer coisa pesquise aqui no fórum por somar horas.

No site do Avelino Sampaio tem um tutorial muito esclarecedor sobre cálculos com horas.

Veja isso aí.

acho que localizei a informação do Avelino e adaptei a minha realizada, funcionou com horas normais até duas dezenas daí em diante solicito a ajuda:

Option Compare Database
Public Function fncSomaHora(horaAcumulada1 As Variant, horaAcumulada2 As Variant) As Variant
Dim ha, ht, sha As Long, sht As Long
Dim TotalSegundos As Long, Horas As Long, Minutos As Long, Segundos As Long

'Passa as horas para as Matrizes, aonde podemos extrair os valores pela referência ":"
'ha = Split(IIf(horaAcumulada = 0, "000:00:00", horaAcumulada), ":")
ha = Split(IIf(horaAcumulada1 = 0, "000:00:00", horaAcumulada1), ":")
ht = Split(IIf(horaAcumulada2 = 0, "000:00:00", horaAcumulada2), ":")

sha = 3600 * ha(0) + 60 * ha(1) + ha(2) 'hora acumulada em segundos
sht = 3600 * ht(0) + 60 * ht(1) + ht(2) 'hora atual em segundos


'Total de horas extras acumuladas, em segundos
TotalSegundos = sha + sht

'Remonta a hora no formato hh:mm:ss
Horas = Int(TotalSegundos / 3600)
Minutos = Int((TotalSegundos - (Horas * 3600)) / 60)
Segundos = TotalSegundos - (Horas * 3600) - (Minutos * 60)

fncSomaHora = Format(Horas, "##00") & ":" & Format(Minutos, "00") & ":" & Format(Segundos, "00")

End Function




em um evento update do meu form chamo a função.


Me.Carga_Horaria = fncSomaHora(CargaHoraria1, CargaHoraria2)

Bom dia cakanilo.

Você leu as dúvidas do tutorial? Às vezes alguém já postou a dúvida que você tá tendo. Se não, posta lá que certamente o mestre Avelino vai te responder.

Eu vi isso aqui:

WSenna 12/12/2012 10:10:22

Amigão, como sabes, há anos me interessei pela soma de horários que ultrapassassem as 24h imposta pelo Access e hoje utilizo muito o seu modelo com satisfação.
Agora, sem querer abusar, tenho um novo problema:
Como faria para demonstrar em horas totais um período com início em 10/12/2012 10:00 e témino em 14/12/2012 05:30 ?
Avelino Sampaio 12/12/2012 13:34:56

Wsenna,

Acho que ficaria bem fácil se usarmos a função dateDiff() para retornar com os minutos do intervalo.

Exemplo, usando as datas que vc informou:

datediff("n",#12/10/2012 10:00#,#12/14/2012 05:30#) :::> 5490 minutos

Basta agora converter os minutos para o formato Horas minutos:

format(int(5490/60),"00") & ":" & format((5490 - (int(5490/60)*60)),"00") :::> 91:30

Sucesso!

Espero que ajude. Também estou pesquisando a solução pra você.

Lembrando que após 24 hrs você pode fazer um Up em sua dúvida.