Buscar por:

Validação de data

Código

{ 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;