|
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
|
PATOS DE MINAS MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 20/06/2006 13:25 hs
transforme ele pra double
|
|
|
|
Postada em 20/06/2006 13:41 hs
oi Cardoso, já tentei isso mais não deu certo
|
|
|
|
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+  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
|
|
|
|
|
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.
|
|
|
|