Validação de data

Veja o código para validação
de data.

Function FF_VerificaData(Controle)
   
    if trim(Controle.value)=”” then exit
function
   
    if len(Controle.value)<10 then
sl_completadata controle
   
    if not isdate(Controle.value) then
       controle.focus
       msgbox “Data Invalida!”,16
    elseif len(Controle.value)=1 or len(Controle.value)=4
then
       controle.focus
       msgbox “Data Invalida!”,16
    elseif cint(mid(Controle.value,4,2))
> 12 then 
       controle.focus
       msgbox “Mês Invalido!”,16
    elseif cint(right(Controle.value,4))
< 1900 Then
       controle.focus
       msgbox “Ano Invalido!”,16
    End If   
   
End Function