FORMATACAO DE NUMERO EM HORAS, MINUTOS E SEGUNDOS

USUARIO.EXCLUIDOS 18/04/2007 14:25:56
#212555
eles estarão em numeros separados né !??

Se sim, adaptei a função...

Public Function FormatoHora(Min as Double, Seg as Double)
    Dim Horas As Long
    Dim Minutos As Long
    Dim Segundos As Long
    
    Horas = (Min - (Min Mod 60)) / 60
    Minutos = Min Mod 60
    
    FormatoHora = Format(Horas, "00") & ":" & Format(Minutos, "00") & ":" & Seg
End Function
Página 2 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar