Ae galera seguinte preciso somar as horas de um banco de dados meus, ta somando beleza, tpw so que passava de 24:00 no formato hora zerava ae vi no macoratti tinha umas dica mas tpw o problema que apareçe tpw 31,92 tpw eu queria q apareceçe tpw 32:10

sei la algo assim preciso apresentar um total de horas.

 

alguém pode ajudar?

 

Dim tempo As Long
Dim seg As Long, min As Long, hora As Long
Dim matriz
Dim matriz2

 

matriz = Array("17:10:00", "02:05:44", "20:16:23")

tempo = 0

For i = 0 To UBound(matriz)
    matriz2 = Split(matriz(i), ":")
    tempo = tempo + (CLng(matriz2(0)) * 3600)
    tempo = tempo + (CLng(matriz2(1)) * 60)
    tempo = tempo + CLng(matriz2(2))
Next

 

'Tempo = total em segundos

 

seg = tempo Mod 60
tempo = tempo  60
min = tempo Mod 60
hora = tempo  60

 

MsgBox Format(hora, "00") & ":" & Format(min, "00") & ":" & Format(seg, "00")

depois coloque ou grave, do jeito q te atender

 

qq dúvida é só postar

 

t+

 

obs: não está aparecendo a barra invertida para dividir, grosseiramente falando o site "bloqueia" a barra... NÃO É BARRA NORMAL, é invertida pois esta barra invertida NÃO ARREDONDARÁ O RESULTADO q é um uma coisa importante ok??

tempo= tempo "barra invertida para dividir" 60

pega o valor do banco, armazena em uma variável tipo string e depois usa a função InStr para separar as horas e os minutos e depois usa a função Mid para pegar o valor e fazer o cálculo. ex:

 

    Dim hora as String

 

    numH= InStr(1, hora, ":")

    numH = numH - 1

    vr = Mid(hora, 1, numH)

 

depois é só fazer o mesmo com o minuto e com a hora do campo onde vc estiver digitando a hora que vai ser somada...

 

qualquer coisa posta aí pra galera, falow

 

Luciano

desculpa ae gente tpw nao sei se nao entedi ou oq o lance seguinte tpw tenho o campo no banco de dados duracao, mandei dar um sum nele

 

 

e depois peguei o resultado e * 24

 

tpw a soma era pra dar 29 horas e 5 minutos, mas o resultado é o seguinte

 

 

29,083333 gostaria de exibir 29 horas e 05 minutos

 

alguém esclare-se?

qual o tipo do campo em q as horas estão?

Data/Hora