PROB COM CALCULO DE TEMPO
ola pessoal eu novamente
preciso de uma dica, fiz este codigo
Dim t As Single
Dim q As Single
Dim tt As Single
t = txtmintotal.Text
q = 60
tt = (t / q)
txthora.Text = tt
meu tempo esta em minutos mas
quando executa este parte do cofigo
tt = (t / q)
fica ex 2.90
seria 2h 50
sera q da pra amurrumar
at +
preciso de uma dica, fiz este codigo
Dim t As Single
Dim q As Single
Dim tt As Single
t = txtmintotal.Text
q = 60
tt = (t / q)
txthora.Text = tt
meu tempo esta em minutos mas
quando executa este parte do cofigo
tt = (t / q)
fica ex 2.90
seria 2h 50
sera q da pra amurrumar
at +
QUAL é O OBJETIVO DESSA FUNÇÃO?
Deve dar para fazer com menos linhas, mas assim ja funciona...
Vais ter e que adaptar as variaveis...
Dim texto, pauta, zini, talim, coiso, minutos
texto = txtcoiso.Text
pauta = InStr(texto, ".")
coiso = pauta + 1
zini = pauta - 1
talim = Mid(texto, coiso, 2)
minutos = talim * 0.6
txtHora.Text = Left(texto, zini) & "H" & minutos & "m"
Para converter as décimas em minutos basta multiplica-las por 0.6!!!
No fim encerra o tópico que eu ando a precisar de pontos...
Vais ter e que adaptar as variaveis...
Dim texto, pauta, zini, talim, coiso, minutos
texto = txtcoiso.Text
pauta = InStr(texto, ".")
coiso = pauta + 1
zini = pauta - 1
talim = Mid(texto, coiso, 2)
minutos = talim * 0.6
txtHora.Text = Left(texto, zini) & "H" & minutos & "m"
Para converter as décimas em minutos basta multiplica-las por 0.6!!!
No fim encerra o tópico que eu ando a precisar de pontos...
Oi Patoloco, consegui resolver, tenta ai:
Dim t As Single
Dim q As Single
Dim tt As Single
t = txtmintotal.Text
q = 60
tt = (t / q)
txtHora.Text = Format(DateAdd("N", CDbl(txtmintotal.Text), Trim(tt)), "HH:MM:SS")
Dim t As Single
Dim q As Single
Dim tt As Single
t = txtmintotal.Text
q = 60
tt = (t / q)
txtHora.Text = Format(DateAdd("N", CDbl(txtmintotal.Text), Trim(tt)), "HH:MM:SS")
E ae PATOLOCO blz?
Conforme eu tinha te passado nesse link., veja isso em VB... divindo o valor por 60 obtem-se a quantidade de horas, o resto da divisão a parte em minutos restantes.
Tempo em minutos = X
Convertendo:
Horas = Fix(X / 60)
Minutos = X \ 60
Exmplos 174 min (que deve ser o valor usado por você no seu exemplo.
Horas = Fix(174/60) = 2h
Min = 173 \ 60 = 54min
Simples, não?
Conforme eu tinha te passado nesse link., veja isso em VB... divindo o valor por 60 obtem-se a quantidade de horas, o resto da divisão a parte em minutos restantes.
Tempo em minutos = X
Convertendo:
Horas = Fix(X / 60)
Minutos = X \ 60
Exmplos 174 min (que deve ser o valor usado por você no seu exemplo.
Horas = Fix(174/60) = 2h
Min = 173 \ 60 = 54min
Simples, não?
Opss, uma pequena correção.
Exemplo:
174 min (que deve ser o valor usado por você no seu exemplo) equivale a:
Horas = Fix(174/60) = 2h
Min = 174 \ 60 = 54min
ou ainda usando o seu código (tt = (t / q)):
hora = Fix(t / q)
min = (t - Fix(t / q)) * 60
Exemplo:
174 min (que deve ser o valor usado por você no seu exemplo) equivale a:
Horas = Fix(174/60) = 2h
Min = 174 \ 60 = 54min
ou ainda usando o seu código (tt = (t / q)):
hora = Fix(t / q)
min = (t - Fix(t / q)) * 60
Outra correção:
ou ainda usando o seu código (tt = (t / q)):
hora = Fix(t / q)
min = ((t / q) - Fix(t / q)) * 60 (isso equivale a (2.90 - 2) * 60)
ou ainda usando o seu código (tt = (t / q)):
hora = Fix(t / q)
min = ((t / q) - Fix(t / q)) * 60 (isso equivale a (2.90 - 2) * 60)
Jose.niz mas oq significa FIX pq e uma funcao
pessoal muito obrigado deu certo
olha valeu msm
olha valeu msm
Tópico encerrado , respostas não são mais permitidas