como sumar una fecha

[esimon]

Hola como esta?

Tengo una tabla llamada Hoteles, en la cual tengo dos campos de fecha
Fecha_Renovacion y proxima_fecha_renovacion, estos campos son tipo Date/Time y estoy utilizando Access lo que quiero hacer es lo siguiente:

cuando yo digite una fecha en el campo Fecha_Renovacion, en el campo Proxima_Fecha_Renovacion me muetre un año depues de la fecha de renovacion.

Ej. Fecha_Renovacion = 14/11/2007
Proxima_Fecha_Renovacion 14/11/2008, esto es porque la renovaciones se hacen anual.

mucha gracias

[jhonny]

Revisa la función IncYear que se encuentra en la unidad DateUtils y la cual se usa, asi:

Código Delphi [-]
//Esto te devolvera un año mas adelante que Fecha_Renovacion
ProximaFechaRenovacion := IncYear(Fecha_Renovacion);

Si quieres mas años tendras que pasarle el segundo parametro, asi, por ejemplo:

Código Delphi [-]
//Esto te devolvera dos años mas adelante que Fecha_Renovacion
ProximaFechaRenovacion := IncYear(Fecha_Renovacion, 2);

Espero te sirva .

[esimon]

mucha gracias jhonny por tu informacion, no pude resolver con el codigo que me dige, pero si algo como esto

var
  Frm_GiftShop: TFrm_GiftShop;
  Fecha_soporte : Tdate;
  DD, MM, AA   : word;

procedure TFrm_GiftShop.Tbl_GiftShopFecha_RenovacionChange(Sender: TField);
begin
   // Fecha_Soporte := Tbl_GiftShopFecha_Renovacion.Value;
    DecodeDate(Fecha_Soporte, DD, MM, AA);
    AA := AA + 1;
    Tbl_GiftShopFecha_Pendiente_Renovacion.Value := Fecha_Soporte;
end;

pero resulta cuando instroduco la fecha en el campo fecha_renovacion, en la proxima fecha a renovar siempre sale la misma no se que estoy haciendo mal.

[jhonny]

Empezado por esimon

mucha gracias jhonny por tu informacion, no pude resolver con el codigo que me dige, pero si algo como esto

Con que Delphi estas trabajando y porque no te funciona, sale algun error?, deberia funcionarte, yo lo he probado con D6.

[esimon]

estoy usando Delphi 7

[jhonny]

Empezado por esimon

estoy usando Delphi 7

Bueno, entonces debe funcionarte, recuerda que debes agregar la unidad DateUtils.

[[eduarcol]]

Deberia funcionar, de hecho yo trabajo con incmonth en lugar de incyear y va de maravillas asi como te dice jhonny danos info sobre porq no te funciona

[[duilioisola]]

Lo que creo que falta aquí es el EncodeDate

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 :

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;

[esimon]

Empezado por duilioisola

Lo que creo que falta aquí es el EncodeDate

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 :

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.

[esimon]

tengo que agradecele a todos los que me ayudaron por la experician que expresan se puede decir que es dudoso que yo pueda ayudarlo pero nadie sabe para mi seria mas que un placer poder ayudarlo en algo y a ti jhonny que no puede usar la rutina que me enviaste pero voy a tratar de ver como puedo usarla para aprendermela y aqui pongo la rutina que use, por si otro tiene la misma inquitud que yo.

[code]
procedure TFrm_GiftShop.Tbl_GiftShopFecha_RenovacionChange(Sender: TField);
begin
Fecha_Soporte := Tbl_GiftShopFecha_Renovacion.Value;
DecodeDate(Fecha_Soporte, AA, MM, DD);
AA := AA + 1;
Fecha_Soporte := EncodeDate(AA, MM, DD);
Tbl_GiftShopFecha_Pendiente_Renovacion.Value := Fecha_Soporte;
end;
[/codo]
es la misma que me envio duiliodola, la unica diferencia esta en la decodificacion de la fecha.

mil gracias a todos sigan pasandola bien