Delphi dicas

Validação de data

{ Função para verificar se determinada data

digitada pelo usuário é válida}

function criticadata(data:string):Boolean;

var

dia : String;

mes : String;

ano : String;

begin

        dia := copy(data,1,2);

        mes := copy(data,4,2);

        ano := copy(data,7,4);

        Result := False;

        if StrToInt(dia) < 31 then

        begin

                if StrToInt(mes) < 12 then

                begin

                        if (StrToInt(ano) > 1900) and (StrToInt(ano) < 2099) then

                        begin

                                if StrToInt(dia) <= StrToInt(copy(DateToStr(EndOfTheMonth(StrToDate('15/'+mes+'/'+ano))),1,2))then

                                Result := True;

                        end;

                end;

        end



        //para chamar a função:

        if not criticadata(edit1.Text) then

        begin

                ShowMessage('erro de data');

                exit;

        end;