Fórum Ajuda com data #372201

function DiasPorMes(AMonth: Integer): Integer;
const DaysInMonth: array[1..12] of Integer = (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
 if not(aMonth in [1..12]) then
   Result := 0
 else
   Result := DaysInMonth[AMonth];
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  xDia,xMes:Integer;
begin
  xDia := strtointdef(copy(Edit1.Text,0,2),0);
  xMes := strtointdef(copy(Edit1.Text,4,2),0);
  if xDia <= DiasPorMes(xMes) then
    showmessage(´Válido´)
  else
    showmessage(´Invalido´);
end;