Função que retorna tempo no formato dd:hh:mm com uma entrada em segundos

07/11/2012

Boa tarde galera! acabei de fazer uma funçãozinha bacana que surgiu aqui no trabalho, dei uma procurada aqui no forum e
não achei... por isso estou mandando!

Se você tiver um tempo em segundos e quiser transformá-lo no formato dd:hh:mm , ai está!

Function retornaHorario(ByVal tempoEmSegundos As Decimal) As String
Dim _numeroQualquer As Decimal = tempoEmSegundos
Dim _numeroHoras As Decimal = 0
Dim _numeroMinutos As Decimal = 0
Dim _numeroSegundos As Decimal = 0

_numeroHoras = ((_numeroQualquer / 60) \ 60)

_numeroMinutos = ((_numeroQualquer - (_numeroHoras * 60 * 60)) \ 60)

_numeroSegundos = _numeroQualquer - (_numeroHoras * 60 * 60) - (_numeroMinutos * 60)
Return String.Format("::", _numeroHoras.ToString("00"), _numeroMinutos.ToString("00"), _numeroSegundos.ToString("00"))
End Function



Abraços!!

Twitter/@caiouechi

Respostas

07/11/2012

Robson Robsonalves.net

Hahaha! Ficou Bom!!

Já tive que fazer alguns cálculos aqui de horas úteis trabalhada, no sistema do suporte.

Só que eu não precisava dos segundos, então fiquei na base dos minutos e trabalhei com o Resto da divisão (% ou Mod).
Pegando a hora e os minutos efetivamente!

Bom Trabalho!
Responder Citar