Presados Senhores

Tenho um problema aqui, quando digito dados em um TEXT, O  (0 - Zero) nao aparece, gostaria de saber se alguem pode me dizer como manter o zero a esquerda.

 

meu txt esta no formato geral. ja fiz diversos procedimentos e nada

Veja esta :

Public Function ZeroEsquerda(sValor As String, nQtdeZeros) As String

  ' ******************************************************
  ' preencher com zeros a esquerda.
  'sValor -> número a ser modificado
  'nQtdeZeros -> qtde. de zeros a esquerda
  'Exemplo: ZeroEsquerda("15",5) -> resultado "00015"
  ' ******************************************************
 
  Dim nI As Integer
  Dim nQtdeSerPreenchida As Integer
  Dim sResultado As String
 
  If nQtdeZeros = 0 Then
    MsgBox "Faltou o VALOR Do Segundo Parâmetro", vbInformation + vbOKOnly, "AVISO"
    ZeroEsquerda = sValor
  Else
    nQtdeSerPreenchida = nQtdeZeros - Len(sValor)
    If nQtdeSerPreenchida < 0 Then
      ZeroEsquerda = sValor
    Else
      sResultado = sValor
   
      For nI = 1 To nQtdeSerPreenchida
        sResultado = "0" + sResultado
      Next nI
      ZeroEsquerda = sResultado
    End If
  End If

End Function 

 

Ou :

Public Function AcertaCodigo(ByVal strCodigo As String, ByVal intTamanho As Integer) As String
    strCodigo = Right(strCodigo, intTamanho)
    AcertaCodigo = String(intTamanho - Len(strCodigo), "0") & strCodigo
End Function

Síntese Para uso:

Private Sub Command1_Click()
Text1.Text = AcertaCodigo(Text1.Text, 4)
End Sub

Onde:

intTamanho  é o tamanho de zeros , ou seja, o numero de zeros a esquerda.
strCodigo     é o Texto (Integer) que você vai adicionar os zeros a esquerda.

 

Também :

Use FORMAT.

Se for um TextBox:


Se for uma Variável:

Cara, eu uso assim:

 

No evento KeyPress do seu Text, coloque este codigo:

KeyAscii = IIF(KeyAscii <> 8, IIF(IsNumeric(Chr(KeyAscii)),KeyAscii,0),KeyAscii)

 

De uma olhada na seção de dicas, que vai encontrar outros exemplos.

 

Abraços.