CALCULAR DATA/HORA INICIO E FINAL

JLIMA89 13/02/2015 22:53:01
#444512
BOA NOITE PESSOAL,

TO PRECISANDO DE AJUDA, SOU NOVO NO VB6.

ENTÃO QUAL SERIA MINHA DUVIDA, EU PRECISO VER QUANTO TEMPO UM EQUIPAMENTO FICOU PARADO POR EXEMPLO
ELE TEM A [Ô]DATA E HORA QUE TEVE O INICIO DA PARADA[Ô] E QUANDO ELE COMEÇA A RODA DE NOVO A DATA E HORA DE FINALIZOU A PARADA.

EX: DATA E HORA INICIAL 22/09/2014 15:29:00 DATA HORA FINAL 22/09/2014 15:47:00 = A DURAÇÃO EM HORAS 0,30

NO EXCEL A FORMULA é ESSA [Ô] (DATA HORA FINAL - DATA E HORA INICIAL) * 1440 /60

MAS N TO CONSEGUINDO EM V6

'POR FAVOR ME AJUDE
MARCELO.TREZE 15/02/2015 18:33:21
#444529
use o datediff

exemplo

resultado = datediff([Ô]h[Ô],datahorafinal,datahorainicial)
FFCOUTO 15/02/2015 19:04:56
#444531
Completando o que o Marcelo postou.

é melhor você calcular o intervalo em minutos e dividir por 60 e ter o resultado mais preciso.
Olhando o exemplo que você postou daria 18 minutos de parada o que representa 0,3 horas.
Então ficaria assim:

dif = DateDiff([Ô]n[Ô], data_hora_final, data_hora_inicio)
resultado = dif / 60
JLIMA89 15/02/2015 23:09:02
#444537
Citação:

:
Completando o que o Marcelo postou.

é melhor você calcular o intervalo em minutos e dividir por 60 e ter o resultado mais preciso.
Olhando o exemplo que você postou daria 18 minutos de parada o que representa 0,3 horas.
Então ficaria assim:

dif = DateDiff([Ô]n[Ô], data_hora_final, data_hora_inicio)
resultado = dif / 60



Fabiano, infelizmene ainda n conseguir vc poderia me ajudar.?
FFCOUTO 16/02/2015 09:09:01
#444541
Amigo, o que você não conseguiu? Qual a sua dúvida agora?

dif = DateDiff([Ô]n[Ô], data_hora_final, data_hora_inicio)

Essa linha calcula a diferença de minutos entre as duas datas, a variável data_hora_final e data_hora_inicio são os valores que você vai usar para calcular. Ela pode vir do banco de dados ou do form onde você lança os valores.

resultado = dif / 60

Aqui é feita a conversão para horas, lembre-se uma hora = 60 minutos.
JLIMA89 16/02/2015 21:25:36
#444552
Citação:

:
Amigo, o que você não conseguiu? Qual a sua dúvida agora?

dif = DateDiff([Ô]n[Ô], data_hora_final, data_hora_inicio)

Essa linha calcula a diferença de minutos entre as duas datas, a variável data_hora_final e data_hora_inicio são os valores que você vai usar para calcular. Ela pode vir do banco de dados ou do form onde você lança os valores.

resultado = dif / 60

Aqui é feita a conversão para horas, lembre-se uma hora = 60 minutos.


Citação:

:
Amigo, o que você não conseguiu? Qual a sua dúvida agora?

dif = DateDiff([Ô]n[Ô], data_hora_final, data_hora_inicio)

Essa linha calcula a diferença de minutos entre as duas datas, a variável data_hora_final e data_hora_inicio são os valores que você vai usar para calcular. Ela pode vir do banco de dados ou do form onde você lança os valores.

resultado = dif / 60

Aqui é feita a conversão para horas, lembre-se uma hora = 60 minutos.



FAbiano

to usando o seguinte codigo

Dim dif As Long
Dim resultado As Long
Dim valor1 As String
Dim valor2 As String
valor1 = Text1.Text
valor2 = Text2.Text



dif = DateDiff([Ô]n[Ô], valor1, valor2)

resultado = dif / 60
Label2.Caption = resultado

mas so me rertona o valor de 1 hora os minutos n aparecem na Label
OMAR2011 16/02/2015 23:18:04
#444556 Resposta escolhida
Mude o sinal.

http://www.scriptbrasil.com.br/forum/topic/102401-funcao-para-somar-horas/
FFCOUTO 19/02/2015 10:10:21
#444599
JLIMA89,

Abaixo segue uma função para converter minutos em formato HH:mm.

Public Function ConvertLongToTime(ByVal TheTime As Long) As String
   Dim hrs As Long, min As Long  [ô]Declara as variáveis
   Dim sTime As String
   
   hrs = Abs(TheTime) \ 60    [ô]Armazena a qtde de horas
   min = Abs(TheTime) Mod 60  [ô]Armazena a qtde de minutos
   
   [ô]Completa a hora com os minutos
   sTime = Format$(hrs, [Ô]00[Ô]) & [Ô]:[Ô] & Format$(min, [Ô]00[Ô])
   
   [ô]Retorna o resultado
   ConvertLongToTime = sTime
End Function


Usando o seu código basta fazer
dif = DateDiff([Ô]n[Ô], valor1, valor2)
Label2.Caption = ConvertLongToTime(dif)
CHDSSANTOS 23/02/2015 20:41:35
#444712
Boa noite JLIMA89!

Já tive este problema também e realmente realizar este processo via código é chato.
Com o código o resultado do calculo é sempre em horas.

Se der certo avisa.
Abraço.
OMAR2011 23/02/2015 23:59:08
#444722
E se as hora for [txt-color=#e80000]Dtb = [Ô]22/08/2014 17:59:30.[Ô][/txt-color]
Vai funcionar?
Houve um erro.
CHDSSANTOS 24/02/2015 07:45:23
#444725
Omar2011,

Bom dia!

Refiz o teste com a hora que você falou e não deu erro algum.
E esse ponto depois da data que vc postou, será que não foi ele que causou o erro?
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar