Decodificando Data.

Ola Pessoal,


Atendendo a mais um pedido de um ex-aluno, vamos ver como decodificar uma data no Delphi.

Neste exemplo usarei a função DecodeDate(), mas existem outras formas de fazer a decodificação.
Lembrando que estou utilizando Delphi7.

Vamos a utilização deste em um programa meu:


procedure Tfrm_Formulario.FormActivate(Sender: TObject);
var
  dia, mes, ano:word;
begin
  DecodeDate(Date, ano, mes, dia);
  mske_data_inic.Text := '01/01/'+IntToStr(ano);
  mske_data_final.Text := DateToStr(now);
end;


Espero ter ajudado mais uma vez.

Abraços, Emanuel