USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Funcao Horas
Macaubal
MACAUBAL
SP - BRASIL
Postada em 19/06/2008 11:58 hs            
Pessoal bom dia, alguem sabe ou tem alguma função em VB que calcule a soma de horas acima de 24, por exemplo
Variavel = "48:00:00" + "00:30:00"
Utilizando TimeSerial nao dé certo, alguem pode dar um help?
 
abraços
     
Macaubal
não registrado
ENUNCIADA !
Postada em 19/06/2008 12:37 hs   
Ai Galera deu certo...

QtdSegundos = Int(Right(Hora1, 2)) + Int(Right(Hora2, 2)) + Int(Right(Hora3, 2)) + Int(Right(Hora4, 2))
Minutos = Int(QtdSegundos / 60): Segundos = QtdSegundos - (Minutos * 60)

QtdMinutos = Minutos + Int(Mid(Hora1, 4, 2)) + Int(Mid(Hora2, 4, 2)) + Int(Mid(Hora3, 4, 2)) + Int(Mid(Hora4, 4, 2))
Horas = Int(QtdMinutos / 60): Minutos = QtdMinutos - (Horas * 60)

QtdHoras = Int(Left(Hora1, 2)) + Int(Left(Hora2, 2)) + Int(Left(Hora3, 2)) + Int(Left(Hora4, 2))
Horas = Horas + QtdHoras

totalHoras = String(2 - Len(Horas), "0") & Horas & ":" & String(2 - Len(Minutos), "0") & Minutos & ":" & String(2 - Len(Segundos), "0") & Segundos
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página