USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página