Converter Segundos Em (minutos E Segundos)

[Lello]

Bom dia

Tenho uma Duvida como posso converter segundos em minutos e segundos

ex. 125,31 segundos vai ser igual a 2,09 ( Dois minutos e nove segundos )

217,30 segundos vai ser igual a 3,62 (tres minutos e sessenta e dois segundos)

3,62 - como faço para corrigir este erro

formula usada

217,30 / 60

[kuroi]

3,62 não é 3 minutos e 62 segundos e sim 3 e 62/100 minutos, entendeu? pra ver quando da em segundos, você tem que fazer 62 / 100 * 60 = 37,2.

ou seja 3,62 minutos equivale a 3 minutos, 37 segundos e 2 décimos.

[Lello]

Eu consegui fazer , mas tem como simplificar o codigo

seg = 217.3 / 60

For i = 1 To Len(seg)

X1 = X1 & Mid(seg, i, 1)

If Mid(seg, i, 1) = "," Then

X2 = Mid(seg, i + 1, 3)

Exit For

End If

Next i

MsgBox X1 & Mid(Str(Val(X2) / 100) * 60, 1, 2)

[kuroi]

acho que ate tem uma funcao que pega so o que está depois da virgula, mas não sei qual é. mas da pra fazer assim:

seg = 217.3 / 60
x = Int(seg) & " minutos e " & Int((seg * 100) - (Int(seg) * 100)) * 60 / 100  & " segundos"
msgbox x[/code]

[Graymalkin]

Por que não utilizar TimeSerial()? Exemplo:

    segundos = 217
    tempo = TimeSerial(0, 0, segundos)
    MsgBox tempo

Certo? ;)

Graymalkin

[Lello]

Muito obrigado , esta funcao timeserial() eu não conhecia