Trocar somente o ano de uma data por um ano de outra data

Delphi

03/12/2004

Trocar somente o ano de uma data por um ano de outra data


Rr

Rr

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

03/12/2004

Procedure TrocarAno(ADataAntiga : TDateTime; ANovoAno : Byte);
Var
   Ano, Mes, Dia : Word;
Begin
   DecodeDateTime(ADataAntiga,Ano,Mes,Dia);
   Ano := ANovoAno;
   EncodeDate(Ano,Mes,Dia);
End;



GOSTEI 0
Emerson Nascimento

Emerson Nascimento

03/12/2004

DataNova := RecodeYear( DataComOAnoIncorreto, YearOf(DataComOAnoCorreto) );

acrescente a unit DateUtils na cláusula uses.


GOSTEI 0
POSTAR