Lo que creo que falta aquí es el EncodeDate
Código:
procedure TFrm_GiftShop.Tbl_GiftShopFecha_RenovacionChange(Sender: TField);
var dd,mm,aa : word;
begin
// Fecha_Soporte := Tbl_GiftShopFecha_Renovacion.Value;
DecodeDate(Fecha_Soporte, DD, MM, AA);
AA := AA + 1;
Fecha_Soporte := EncodeDate(DD, MM, AA);
Tbl_GiftShopFecha_Pendiente_Renovacion.Value := Fecha_Soporte;
end;
Tambien podría ser :
Código:
procedure TFrm_GiftShop.Tbl_GiftShopFecha_RenovacionChange(Sender: TField);
var dd,mm,aa : word;
begin
// Fecha_Soporte := Tbl_GiftShopFecha_Renovacion.Value;
DecodeDate(Fecha_Soporte, DD, MM, AA);
Fecha_Soporte := EncodeDate(DD, MM, AA + 1);
Tbl_GiftShopFecha_Pendiente_Renovacion.Value := Fecha_Soporte;
end;