:::: MENU ::::

Blog

  • abr 12 / 2007
  • 3
ano_bissesto, delphi, dicas, função, function, procedimento, procedure

Ano Bissexto

 
Difficulty level not set for this Post

Em diversos sistemas, uma das principais preocupações do desenvolvedor é identificar se o ano é ou não bissexto. A explicação varia de acordo com cada sistema, mas um dos principais motivos é justamente para efetuar cálculos diversos, tais como: juros, mora, etc.

Nesse artigo você aprende a criar, de maneira bastante simples, funções que efetuam os cálculos necessários para descobrir se o ano é bissexto. Insira os métodos em sua classe ou unit de funções padrão e use sempre em seus sistemas.


Os métodos abaixo dispensam explicações mais detalhadas. Apenas escreva-as em suas units e passe a utilizá-las.

//Novo tipo de dados, TData
TData = class
Mes, Dia, Ano: Integer;

procedure DefVal(m, d, a: Integer);
function AnoBis: Boolean;
Declare uma nova variável global.
var
  Form1: TForm1;

//novo objeto "global" da classe TData
UmDia: TData;

Abaixo o código da procedure DefVal e da function AnoBis.

procedure TData.DefVal(m, d, a: Integer);
begin
  Mes := m;
  Dia := d;
  Ano := a;
end;

function TData.AnoBis: Boolean;
begin
  if (Ano mod 4 <> 0) then
  AnoBis := False
  else if (Ano mod 100 <> 0) then
    AnoBis := True
  else if (Ano mod 400 <> 0) then
    AnoBis := False
  else
    AnoBis := True;
end;
  • abr 11 / 2007
  • 4
[Arquivo]

Sejam bem-vindos

 
Difficulty level not set for this Post
Sejam bem-vindos, amigos, colegas, visitantes, programadores, analistas, webers e todos que se interessam de alguma forma por esta ferramenta de trabalho que tanto tem me ajudado ao longo de minha carreira.

Este blog é apenas um pequeno percentual do que já desenvolvi em todos os meus 10 anos e experiência. Devo muito aos meus colegas de fórum no site da Devmedia e também a tantos outros colegas de trabalho que me ajudaram a chegar até aqui.
Google+
[Fale Conosco] Contato