FORMATACAO DE NUMERO EM HORAS, MINUTOS E SEGUNDOS

FLAVIOGUILHERME 17/04/2007 17:26:13
#212386
Boa tarde amigos !!!
Preciso formatar uma variável que contem a seguinte informação:
75,00 - Preciso que esse número vire horas, minutos e segundos ex: 01:15:00.
Alguém pode dar uma força ?
Obrigado.
VBAPRENDE 17/04/2007 17:38:28
#212390
Divide o valor pelos minutos, minutos pelos segundos. Sempre comparar se o valor da para ser dividido em horas ou minutos.

Valor / Minuto
ex:75 / 60 = 1,25 Um Minuto e 25 segundos.
4000 / 60 = 66,67 / 60 = 1:1:11
Valor / Minuto / Segundo

é +/- assim.

Espero ter ajudado !!!!
FLAVIOGUILHERME 17/04/2007 17:54:18
#212395
Obrigado VBAPRENDE.
Mas o problema esta sendo na hora de formatar o valor que foi gerado ex:
75,00 = 1,25 = [txt-color=#ff0000]01:25:00 Esse é o problema[/txt-color]
Minutos 1 hora e 25 minutos = 1 hora e 25 minutos

Deixar com o seguinte formato 1,25 = 01:25:00.
VBAPRENDE 17/04/2007 17:56:28
#212397
Ok to fazendo um exemplo aqui...
VBAPRENDE 17/04/2007 18:01:46
#212398
Para achar a hora certa temos que saber se esse valor é em hora ou minuto ou segundo.

Porque 75,00 se for pra achar Horas vai ser 01:15:00
75,00 se for pra achar minutos vai ser 00:01:15

Como vai saber se é em horas ou em minutos?

Qual é o seu objetivo com isso?
FLAVIOGUILHERME 18/04/2007 13:41:22
#212530
Vai sempre estar em minutos ex: 75,00 minutos.
Preciso pegar 75,00/60 e deixar o resultado com esse formato 01:15:00.
O problema é como formatar o 1,25 do resultado e deixar 01:15:00 ?
USUARIO.EXCLUIDOS 18/04/2007 13:49:34
#212535
Dim t As Single
Dim q As Single
Dim tt As Single
t = txtmintotal.Text 'Aqui entra os minutos (75)
q = 60
tt = (t / q)
msgbox Format(DateAdd("N", CDbl(txtmintotal.Text), Trim(tt)), "HH:MM:SS")

Espero ter ajudado.
FLAVIOGUILHERME 18/04/2007 14:07:45
#212545
Exatamente isso FRAU.
Muito obrigadooooooooooo.
TAMANINI 18/04/2007 14:10:23
#212546
No seu caso, não existirá segundos ou vai existir?
Senão poderia ser assim:
Format(int(75 / 60), "00") & ":" & Format(int(75 mod 60), "00") & ":00"
USUARIO.EXCLUIDOS 18/04/2007 14:10:39
#212547 Resposta escolhida
Usa essa função aqui que deve lhe atender!

Public Function FormatoHora(Num As Double)
    Dim Horas As Long
    Dim Minutos As Long
    Dim Segundos As Long
    
    Horas = (Num - (Num Mod 60)) / 60
    Minutos = Num Mod 60
    
    FormatoHora = Format(Horas, "00") & ":" & Format(Minutos, "00") & ":00"
End Function
FLAVIOGUILHERME 18/04/2007 14:19:08
#212553
Se existir segundos por ex: 75 minutos e 35 segundos como eu poderia proceder ?
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar