Validar ano Bissexto com Delphi

Veja nesta dica como validar o ano bissexto com Delphi.

Olá galera, nesta dica irei mostrar uma função para validar se o ano é bissexto ou não.

 

Vamos cariar a seguinte função

 

function TFrmPrincipal.bissexto(Data: TDateTime): Boolean;

var

  Dia,Mes,Ano : Word;

begin

  DecodeDate(Data,Ano,Mes,Dia);

  if Ano mod 4 <> 0 then

   Result := False

  else

    if Ano mod 1 <> 0 then

      Result := True

end;

 

Usando a função

 

procedure TFrmPrincipal.BtnValidarClick(Sender: TObject);

begin

  if bissexto(DateTimePicker1.Date) then

    ShowMessage('ano bissexto')

  else

     ShowMessage('nao bissexto');

end;

 

Fico por aqui ate à próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br

Artigos relacionados