SOMATORIA DE HORAS VB6

 Tópico anterior Próximo tópico Novo tópico

SOMATORIA DE HORAS VB6

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#491433 - 22/11/2019 19:59:13

XXXANGELSXXX
BELO HORIZONTE
Cadast. em:Setembro/2008


Senhores, boa noite, estou com um probleminha aqui na soma de horas em vb6, tenho guardado no banco como caracteristica decimal a quantidade de horas.. entao preciso somar essas horas e exibir em forma de horas texto exemplo.. dois registros .. 12,45 e 12,05 , ento se somarmos os dois valores d 24,50 .. ( vinte quatro horas e cinquenta minutos ).. j tentei converter para inteiro .. e depois dividir por 60.. mas nao esta dando o calculo correto que necessito.. principalmente nos minutos.. tipo..

Private Function Soma_Horas(TotalMinutos As Currency) As String
    Dim Horas As Currency
    Dim Minutos As Currency
    Horas = CInt(TotalMinutos / 60)
    Minutos = CInt(TotalMinutos * (60 / 100) * 100)
    Soma_Horas= Horas & []:[] & Minutos
End Function

o que preciso de um retorno em horas  correto, e sem [] arredondamentos.. [], se alguem tiver uma funcao melhora para isso agradeo muito, tem algum tempo que nao mexo com vb6.. perdendo a pratica.. rs. desde ja agradeo.



No importa o que o mundo...O importante so seus sonhos!No importa o que voc ...O importante o que voc quer ser.
Dvida Sanada, encerre o tpico e pontue quem ajudou!!!


#491435 - 22/11/2019 21:50:34

JABA
CABO FRIO
Cadast. em:Agosto/2005


Cara, fiz de cabea, no sei se est certo.

Private Function Soma_Horas(TotalMinutos As Currency) As String
    Dim Horas As Currency
    Dim Minutos As Currency
    Horas = CInt(TotalMinutos / 60)
    Minutos = (TotalMinutos mod 60) * 60
    Soma_Horas= Horas & []:[] & Minutos
End Function




_______________________________________________________________________________________________

Se a alma ou esprito so imateriais, como eles fazem para se localizar quando o corpo est em movimento?



#491481 - 24/11/2019 21:16:11

JABA
CABO FRIO
Cadast. em:Agosto/2005


s pegar o resto da diviso por 60, nem precisava multiplicar por 60.

Private Function Soma_Horas(TotalMinutos As Currency) As String
    Dim Horas As Currency
    Dim Minutos As Currency
    Horas = CInt(TotalMinutos / 60)
    Minutos = (TotalMinutos mod 60)
    Soma_Horas= Horas & []:[] & Minutos
End Function


_______________________________________________________________________________________________

Se a alma ou esprito so imateriais, como eles fazem para se localizar quando o corpo est em movimento?



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por XXXANGELSXXX em 22/05/2020 19:16:57