Validar data

[Renato Knupp]

Galera estou com um problema, vou adicionar um form em uma planilha. dentro dele eu terei varias textbox (20) e terei que inserir em cada uma, uma data no formato dd/mm/aa hh:mm, mas parece que no vba não tem uma opção em propriedades para inserir máscara, então eu fiz uma rotina para criar a mascara que está abaixo:

Private Sub TextBox1_Change()
Dim text, i As String
text = TextBox1.text

If Len(text) = 2 Then
text = text + "/"
TextBox1.text = text
TextBox1.SelStart = 4
End If

If Len(text) = 5 Then
text = text + "/"
TextBox1.text = text
TextBox1.SelStart = 6
End If

If Len(text) = 8 Then
text = text + " "
TextBox1.text = text
TextBox1.SelStart = 10
End If

If Len(text) = 11 Then
text = text + ":"
TextBox1.text = text
TextBox1.SelStart = 13
End If

End Sub

só que como eu faço para validar essa data? o vba não tem uma opção mais prática para mascara e validação? não achei nenhum tópico no forum sobre o assunto.

Editado Março 26, 2009 por kuroi
Adicionar tag CODE

[kuroi]

a funcao Format() poe a mascara pra você não??

TextBox1.Text = Format(TextBox1.Text, "DD/MM/YYYY HH:MM")

e o IsDate() valida a data:

If IsDate(TextBox1.Text) Then
    'data válida
Else
    'data inválida
End If[/code]

[Renato Knupp]

Em que evento eu uso a mascara do format , não consegui utiliza-la em nenhum evento da tex nem no active do form.

A função isdate () não valida, eu usei a data 90/09/09 12:00 e ele validou, ele so não valida se o mes for maior que 12.

[Michelle Alves]

Oi gente, vou dar um pitaco....

Se for digitar no Textbox, pode usar BeforeUpDate, mas se for automática a máscara pode ser inserida no Initialize do FORM.

[kuroi]

A função isdate () não valida, eu usei a data 90/09/09 12:00 e ele validou, ele so não valida se o mes for maior que 12.

validou porque ele acha q ta no formato YY/MM/DD. ele acha é dia 9 de setembro de 1990.

você vai ter q passar assim pra funcionar 90/09/2009

ou então vai ter q fazer sua propria funcao q valide data.