MASK EDITION BOX.........
Gente... O negócio é o seguinte.... Estou usando um Mask Edition Box ( na verdade 5) para que o usuário poste a data. Depois preciso fazer uma conta de que a data atual menos a data de cadastro seja menor que 14 e mostre um erro (até ai eu sei...). Como eu faço a edição para o mask mostrar somente o ano?
código: Private Sub mskDtaNasc_Change()
mskDtaNasc.Mask = [Ô]##/##/####[Ô]
End Sub
deste já, agradeço.
grato
Matheus
código: Private Sub mskDtaNasc_Change()
mskDtaNasc.Mask = [Ô]##/##/####[Ô]
End Sub
deste já, agradeço.
grato
Matheus
Dim ANO as String
Ano = Right(mskDtaNasc.Text,4)
mskDtaNasc.Mask = [Ô]####[Ô]
mskDtaNasc.Text = Ano
Ano = Right(mskDtaNasc.Text,4)
mskDtaNasc.Mask = [Ô]####[Ô]
mskDtaNasc.Text = Ano
Tópico encerrado , respostas não são mais permitidas