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