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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  somando horas
Rita
não registrado
Postada em 20/06/2006 13:01 hs   
oi gente, preciso de uma ajudinha de vocês novamente.
 
tenho um campo em um bd que recebe texto, neste campo está armazenada a seguinte hora: 25:10:00.
 
preciso somar está hora a o que for digitado no campo no form, ficaria mais ou menos assim:
 
HoraBd = rs![Horas]             armazenado: "25:10:00"
HoraForm = txt1.text           digitado: "03:15:00"
 
como fazer para que eu some essas horas e tenha um resultado de 28:25:00 e assim sucessivamente podendo este valor chegar a um número de horas com até 3 digitos??
     
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 20/06/2006 13:25 hs            
transforme ele pra double
   
Rita
não registrado
Postada em 20/06/2006 13:41 hs   
oi Cardoso, já tentei isso mais não deu certo
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 20/06/2006 14:46 hs            
Olá :)
 
Transforme para segundos os dois valores, some como se fosse um inteiro (sempre tipo long) depois decomponha o valor em horas, minutos e segundos desse jeito...
exemplo:
 
Dim seg As Long
Dim min As Long
Dim horas As Long
Dim vcalc As Long
 
vcalc = 131654 'tempo total
 
seg = vcalc Mod 60 'igual a 14s
vcalc = vcalc  60
min = vcalc Mod 60 'igual a 34 min
horas = vcalc  60 'igual a 36h
 
depois coloque ou grave, do jeito q te atender, "36:34:14" como texto
 
qq dúvida é só postar
 
t+ Emoções
 
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??
vcalc = vcalc "barra invertida para dividir" 60
 
 
TÓPICO EDITADO
   
lu_sandman
CAMPINAS
SP - BRASIL
Postada em 21/06/2006 09:27 hs         
oi Rita...
olha vc também pode usar a função Instr para selecionar as horas e Mid para selecionar os segundos, depois transforma tudo em double e faz a soma:
       
dim H, Hora as double
 
H = InStr(1, HoraBd, ":")     'aqui H recebe a qtde de caracteres até encontrar :, ou seja, H = 3
H= H - 1     'aqui subtraímos 1 do valor de H para eliminar os :, ou seja, agora H = 2
Hora= CDbl(Mid(HoraBd, 1, H))     'aqui armazenamos na variável Hora o pedaço da string que
                                                ' queremos já convertida em número para realizar a soma depois,
                                                'ou seja, Hora = 25
 
depois é só fazer o mesmo com os minutos e com as horas e minutos do campo de texto e pronto, dá um pouco de trabalho, mas no final o resultado dá certo.
 
qualquer coisa é só postar aí pra galera.
 
abraços,
 
Luciano
     
Rita
não registrado
ENUNCIADA !
Postada em 21/06/2006 09:49 hs   
Obrigada pela ajuda gente, vou tentar pra ver se dá certo.
   
Página(s): 1/2      PRÓXIMA »


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