Cita:
Empezado por duilioisola
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;
|
no puedo cansarme de darles las gracias a todos por ayudarme a resolver este problema.
duiliosola, estuve provando con la runtida que me enviaste pero me esta sumando el dia no el año, solo quiero sumarle uno al año.