retirar ano da data

Delphi

07/03/2003

como faço para retirar o ano de uma data sendo ela postada deste jeito
´25/10/98´??


Bruno

Bruno

Curtidas 0

Respostas

Anonymous

Anonymous

07/03/2003

Pode ser feito de duas formas:

1a. Forma:
var Dia, Mes, Ano: word;
begin
    DecodeDate( DataInformada,Ano,Mes,Dia );
end;

2a. Forma:
var Ano:string;
begin
    Ano := FormatDateTime( ´yyyy´,DataInformada );
end;

Utilize o valor da variável Ano.
Note que no primeiro exemplo a variável é um inteiro o no segundo exemplo a valor é uma string.


GOSTEI 0
POSTAR