Fórum Trocar somente o ano de uma data por um ano de outra data #261040
03/12/2004
0
Trocar somente o ano de uma data por um ano de outra data
Rr
Curtir tópico
+ 0
Responder
Posts
03/12/2004
Rômulo Barros
Procedure TrocarAno(ADataAntiga : TDateTime; ANovoAno : Byte); Var Ano, Mes, Dia : Word; Begin DecodeDateTime(ADataAntiga,Ano,Mes,Dia); Ano := ANovoAno; EncodeDate(Ano,Mes,Dia); End;
Responder
Gostei + 0
03/12/2004
Emerson Nascimento
DataNova := RecodeYear( DataComOAnoIncorreto, YearOf(DataComOAnoCorreto) );
acrescente a unit DateUtils na cláusula uses.
acrescente a unit DateUtils na cláusula uses.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)