MASK EDITION BOX.........

MATHEUS1346 17/12/2009 11:40:09
#329899
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
LEANDRO 17/12/2009 12:18:31
#329905
Dim ANO as String
Ano = Right(mskDtaNasc.Text,4)
mskDtaNasc.Mask = [Ô]####[Ô]
mskDtaNasc.Text = Ano
Tópico encerrado , respostas não são mais permitidas