|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Formatar hora pra mostrar "hora:minuto h"
|
 |
|
|
|
Postada em 10/10/2007 por Vilmar Brazão
Const C_HORA = 60
Dim vrtHora As Variant
Dim vrtHoraEmMinuto As Variant
Dim vrtMinuto As Variant
Dim vrtHoraCompleta As Variant
vrtHora = 125
vrtHoraEmMinuto = Int(vrtHora / C_HORA)
vrtMinuto = vrtHora Mod C_HORA
vrtMinuto = Format(vrtMinuto, "00")
vrtHoraCompleta = vrtHoraEmMinuto & ":" & vrtMinuto & " h"
Debug.Print vrtHoraCompleta
|
|
|
|
|
