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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Cálculo de Horas
SergioHG
MATÃO
SP - BRASIL
ENUNCIADA !
Postada em 20/10/2005 13:02 hs            
Boa tarde.
Alguém sabe se é possível somar horas no vb dando resultado desta forma
160:00:00
 
Cento e Sessenta horas???
   
Gboese
SANTO ANDRÉ
SP - BRASIL
ENUNCIADA !
Postada em 20/10/2005 14:59 hs            
Acho que você vai ter que somar por mid...
Colocando algumas validações que quando for maior que 60 para somar um no próximo... Acho que esta é a única forma
 
Abraços

Gustavo Boese
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 20/10/2005 15:09 hs            
Não só no vb mas também para o excel é do mesmo jeito exemplo:
a="10/10/2005 12:00:00"
b="15/10/2005 12:00:00"
c=(b-a)*24
 
resultado c=124

dsmn
   
Alfterra
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 20/10/2005 16:20 hs            
Pode crê, algum tempo atrás precisava fazer isso, pra pegar a hora usa instr pq pode ter 2 3... numeros que compoe as horas depois c pode usar o mid pra minutos e segundos que sempre terao 2 numeros, depois é só fazer os calculos horas * 3600 e minutos * 60, depois soma tudo e horas+minutos+segundos agora vc tem o total de segundos e com a logica de 3600 pra hora e 60 pra minuto fazemos um for next e montamos a hora de novo no formato q queremos......ufaaaaaaaaaaaaaa......pra eu gar até aki foi vários neuronios pro saco...................
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/10/2005 07:56 hs            
se voce quiser já formatado pode fazer da seguinte forma:
A = "10/10/2005 12:00:00"
b = "15/10/2005 13:30:30"
C = (CDate(b) - CDate(A)) * 24
HORA = Fix(C)
d = (C - HORA) * 100
MINUTO = Fix(d) * 60 / 100
E = (d - Fix(d)) * 100
SEGUNDO = Fix(E * 60 / 100)
HORAFINAL = Trim(Str(HORA)) + ":" + Right("0" + Trim(Str(MINUTO)), 2) + ":" + Right("0" + Trim(Str(SEGUNDO)), 2)

dsmn
   
Gardenal
CAMPINAS
SP - BRASIL
ENUNCIADA !
Postada em 21/10/2005 08:23 hs            
É Facil,
Você pode usar simplesmente a Função DateAdd.
Falow... T+

"Penso 99 vezes e nada descubro. Deixo de pensar, mergulho no silêncio, e a verdade me é revelada."
  -  Albert Einstein
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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