Pessoal, alguém tem uma dica p transformar minutos em horas e apresantar no formato de horário? Exemplo 130 minutos = 01:10

 

Grato!

 

 

inthour = Int(130  60)
MsgBox "Hora = " & inthour & ":" & (130 Mod 60)

Blz, já tinha achado a solução:

 

Public Function THoras(Minutos As String) As String
    On Error GoTo errHandler
    Dim h As Integer, m As Integer, s As Integer, j As Integer
    For j = 1 To Minutos
        For I = 1 To 60
            s = I
            If s > 59 Then
                s = 0
                m = m + 1
            End If
            If m > 59 Then
                m = 0
                h = h + 1
            End If
        Next
    Next
    THoras = h & ":" & Format(m, "00") & ":" & Format(s, "00")
    If Mid(THoras, 2, 1) = ":" Then THoras = "0" & THoras
    Exit Function
errHandler:
    THoras = Minutos
End Function

Obrigado!

Porq naum consigo fechar este tópico? O cadeado n tá aparecendo!

o código do Ama é mais prático e mais simples também...

 

''Hennyere'',
Procure se informar com o Webmaster ou com o Administrador.

O e-mail do Webmaster é Webmaster@vbweb.com.br

Estarei fechando seu Tópico para você.

//Fechado!