Saber as Estações do Ano (Primavera Verão Outono e Inverno)

Delphi

15/10/2013

Oi.
Alguém sabe ou tem uma rotina para saber em qual estação do ano estamos?

Obrigado.
Rafael Silva

Rafael Silva

Curtidas 0

Respostas

Gustavo Bretas

Gustavo Bretas

15/10/2013

E ae Rafael, tudo certo?

Baixa o Arquivo (untEstacaoAno.dcu) nesse link: https://www.dropbox.com/sh/1ht8adiotzlw22i/qs7TMeJ17X

Declara a biblioteca no uses do formulário que vc vai usar o método, e chama ela da seguinte forma

  case TEstacaoAno.GetEstacao(DateTimePicker1.Date) of
    eaPrivamera : ShowMessage('Primavera');
    eaVerao : ShowMessage('Verão');
    eaOutono : ShowMessage('Outono');
    eaInverno : ShowMessage('Inverno');
    eaNaoClassificado : ShowMessage('Não Classificado');
  end;


Substitua o DateTimePicker1.Date pelo componente ou variável que vc esta usando.

Apesar de TEstacaoAno ser uma classe não é necessário criá-la para usar o método, blz?

Espero ter ajudado!

Abraço!
GOSTEI 0
POSTAR