TRANSFORMAR MINUTOS EM HORAS DATEADD VB6

MOKOVA666 09/06/2013 22:25:46
#424522
Olá todos.
Eu estou com um problema, vou mostrar a função e explicar:

Feito = Text18 * 30 / 60
Text19 = DateAdd([Ô]n[Ô], Feito, [Ô]00:00:00[Ô])
End If

O Text18 é a quantidade de peças que uma pessoa tem que fazer, então eu cato essa quantidade e faço vezes 30, que seria o tempo de 30 segundos para fazer 1 peça, e então pego o resultado e divido por 60 que me retorna em minutos.
Assim o Text19 vai me apresentar em Minutos como está la o [Ô]n[Ô] e em forma de horas, 00:00:00.
Até ai ele me faz certo, só que, passar de 24h ele não continua, exemplo, 25:00:00, 55:00:00, 250:00:00.....
Gostaria que transforma-se exemplo, 2500 Minutos.

Text19 = DateAdd([Ô]n[Ô], [txt-color=#e80000]2500[/txt-color], [Ô]00:00:00[Ô])

Obrigado
MARCELO.TREZE 10/06/2013 08:45:01
#424528 Resposta escolhida
Primeiro vamos a lógica da sua situação, se você pretende somar apenas os minutos então não existe lógica nisso 2500:00:00, ou seja, o certo seria exibir apenas 2500 minutos que é o mais correto pois no exemplo anterior seriam 2500 horas, 00 minutos e 00 segundos, estou certo?

agora se você pretende na soma dos minutos poder se passar de 24 horas é diferente, pois ficariam por exemplo 40:20:30, não sei se estou sendo claro mas este é o caminho, é isso que você pretende?
MOKOVA666 10/06/2013 17:34:20
#424565
Citação:

:
Primeiro vamos a lógica da sua situação, se você pretende somar apenas os minutos então não existe lógica nisso 2500:00:00, ou seja, o certo seria exibir apenas 2500 minutos que é o mais correto pois no exemplo anterior seriam 2500 horas, 00 minutos e 00 segundos, estou certo?

agora se você pretende na soma dos minutos poder se passar de 24 horas é diferente, pois ficariam por exemplo 40:20:30, não sei se estou sendo claro mas este é o caminho, é isso que você pretende?





sim.
No caso eu somo os minutos e o transformo em horas com o comando Dateadd.
O que eu quero é por exemplo que o programa me mostre 2500 minutos em forma de horas.
MARCELO.TREZE 10/06/2013 18:58:36
#424569
agora estamos chegando a um acordo, como eu havia dito você terá de separar horas minutos e se for o caso segundos

Dim Horas As Integer, Minutos As Integer
Dim Feito As Integer, SomaMin As Integer
Feito = Text18 * 30 / 60
SomaMin = SomaMin + Feito
Minutos  = SomaMin Mod 60[txt-color=#007100] [ô] o mod retorna o resto de uma divisão[/txt-color]
Horas = (SomaMin - minutos) / 60
Text19 = Format(Horas, [Ô]00[Ô]) & [Ô]:[Ô] & Format(Minutos,[Ô]00[Ô]) & [Ô]:00[Ô]




veja se agora retorna o resultado desejado
MOKOVA666 10/06/2013 20:17:33
#424572
Citação:

:
agora estamos chegando a um acordo, como eu havia dito você terá de separar horas minutos e se for o caso segundos

Dim Horas As Integer, Minutos As Integer
Dim Feito As Integer, SomaMin As Integer
Feito = Text18 * 30 / 60
SomaMin = SomaMin + Feito
Minutos  = SomaMin Mod 60[txt-color=#007100] [ô] o mod retorna o resto de uma divisão[/txt-color]
Horas = (SomaMin - minutos) / 60
Text19 = Format(Horas, [Ô]00[Ô]) & [Ô]:[Ô] & Format(Minutos,[Ô]00[Ô]) & [Ô]:00[Ô]




veja se agora retorna o resultado desejado



Perfeito Man, deu exatamente o que eu queria.
Muito obrigado pela ajuda, me ajudou muito
Tópico encerrado , respostas não são mais permitidas
Voltar