FORMATO HORA EM TEXTBOX

JPAULO101 29/05/2015 10:00:40
#447163
Caros. por gentileza, alguém teria alguma exemplo de como deixar o TexrBox no formato hora [txt-color=#0000f0]hh:mm:ss[/txt-color]. Desde já agradeço.
KURTGU 29/05/2015 10:27:05
#447168
Aqui tem sobre data e hora
http://www.macoratti.net/vb_datas.htm



Se ajudei feche o topico e pontue....
LUIZCOMINO 29/05/2015 13:50:16
#447175 Resposta escolhida
Se é para mascar o text box use uma funcao que criei algum tempo

coloque ela no modulo




Enum TipoCampo
     texto = 1
     numero = 2
 End Enum

  Public Function Mascarar(Text As TextBox, Mascara As String, KeyAscii As Integer, Optional Tipo As TipoCampo)
  [ô]Luiz Comino   20/06/2012
  If Tipo = numero Then
  If Not ((KeyAscii >= Asc([Ô]0[Ô]) And KeyAscii <= Asc([Ô]9[Ô])) Or KeyAscii = 8) Then
  KeyAscii = 0
  Exit Function
  End If
  End If
  
    If vbKeyBack = KeyAscii Then Exit Function
    Text.MaxLength = Len(Mascara)
    
    Dim MtzDigitos() As String
    Dim MtzMsk()     As String
    Dim qtd          As Integer
    Dim I, X         As Integer
    
    For I = 1 To Len(Mascara)
        X = X + 1
        If Mid(Mascara, I, 1) <> [Ô]#[Ô] Then
           qtd = qtd + 1
           ReDim Preserve MtzDigitos(qtd)
           ReDim Preserve MtzMsk(qtd)
           MtzDigitos(qtd) = X - 1
           MtzMsk(qtd) = Mid(Mascara, I, 1)
        End If
    Next
    For I = 1 To UBound(MtzMsk)
        If Len(Text) = MtzDigitos(I) Then
           Text = Text & MtzMsk(I)
           Text.SelStart = Len(Text)
        End If
    Next
  
End Function

e no evento keypress do text box coloque

Mascarar text1,[Ô]##:##:##[Ô],KeyAscii

agora se for só para formatar o campo faça assim

text1.tex=format(campodataehora,[Ô]hh:mm:ss[Ô])
JPAULO101 29/05/2015 15:22:52
#447182
Era realmente o que estava precisando, muito LUIZCOMINO.
Tópico encerrado , respostas não são mais permitidas
Voltar