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

Esta matéria foi postada originalmente no ASP4Developers por Thiago Machado Souza (site), que na época era "Programador Desbravador, buscando quebrar todas as fronteiras além do horizonte da arte de programar !
www.thiagomachado.com.br". Hoje, vai saber...