 |
|
|
 Planilha de Dimensionamento de Tubulações
Hidráulicas Água Fria e Água Quente CompletaNossa planilha automática de dimensionamento de tubulações de água fria e quente é uma ferramenta desenvolvida para auxiliar engenheiros e projetistas no cálculo rápido e preciso das redes hidráulicas de edificaçoes. Por meio da inserçao de dados como vazao, diâmetro da tubulaçao, comprimento da rede, material do tubo e coeficientes hidráulicos, a planilha realiza automaticamente os cálculos necessários para verificar velocidade da água, perda de carga e dimensionamento adequado das tubulaçoes. |
||
Você está aqui: Delphi ::: Dicas & Truques ::: Data e Hora |
Como testar se um determinado ano é bissexto usando DelphiQuantidade de visualizações: 14166 vezes |
|
Em algumas situações precisamos verificar se um determinado ano é bissexto. Em Delphi isso pode ser feito com o auxílio da função IsLeapYear(), disponível na unit SysUtils. Esta função aceita um valor inteiro representando o ano que queremos testar e retorna um valor true se o ano for bissexto e false em caso contrário. Veja um trecho de código no qual testamos se o ano 2008 é bissexto:
procedure TForm1.Button1Click(Sender: TObject);
var
ano: integer;
begin
// define o ano
ano := 2008;
// vamos verificar se este ano é bissexto
if IsLeapYear(ano) then
ShowMessage('O ano ' + IntToStr(ano) + ' é bissexto')
else
ShowMessage('O ano ' + IntToStr(ano) + ' NÃO é bissexto');
end;
Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009. |
 Link para compartilhar na Internet ou com seus amigos: |
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
