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

[marcoszorrilla]

Tiene razón jhonny, yo hago esta prueba con Delphi 7 utilizando variables en vez de campos y funciona perfectamente.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
f1:TDate;
f2:TDate;
begin
f1:=Date;
f2:=IncYear(f1);
edit1.Text:=FormatDateTime('dd/mm/yyyy',f2);
end;

Un Saludo.

[esimon]

gracias nuevamente por darme luz en la oscuridad, cuando me dice que tengo que agregar la unidad, aque te esta refiriendo

Empezado por jhonny

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

espero que comprenda el poco conocimiento, sobre la porgramacion

[[maeyanes]]

Checa en la unidad donde quieres hacer la suma de fechas, debes tener una sección llamada implementation:

Código Delphi [-]
implementation

uses DateUtils; // agregas la unidad DateUtils

Saludos...

[jhonny]

Empezado por esimon

gracias nuevamente por darme luz en la oscuridad, cuando me dice que tengo que agregar la unidad, aque te esta refiriendo

espero que comprenda el poco conocimiento, sobre la porgramacion

Ahhh, , mira, en la parte superior de la unidad debe decir una cosa parecida a esta:

Código Delphi [-]
unit Prueba;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, RxMemDS, StdCtrls, DBTables, ComCtrls, Grids, DBGridEh, ExtCtrls,
  ToolWin, ImgList, PrnDbgeh, SrwTypes, DBCtrls, Math, GridsEh;

Entonces cuando te digo que necesitas agregar la unidad DateUtils, quiere decir que a todas esas unidades que vez allí relacionadas, debes agregarle la DateUtils, lo cual quedaria asi:

Código Delphi [-]
unit Prueba;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, StdCtrls, DBTables, ComCtrls, Grids, ExtCtrls,
  ToolWin, ImgList, DBCtrls, Math, GridsEh, DateUtils;

Espero te sirva .

Nota: Parece que maeyanes se a adelantado .

[esimon]

muy buen dia a todos y mil gracias nuevamente por toda la atencion prestada.
jhonny ya hice la declaracion, pero me dice que la fecha_renovacion y proxima_fecha_renovar no estan declarada, ya esta eso me dice que tengo que desclararla, me gustaria que me siga arrojando un poco mas de luz y es posible.

mil gracias

[jhonny]

Donde las tienes declaradas, eso solo lo sabes vos, ya que vos mismo haz dicho que son unos campos de la base de datos, entonces, solo basta con que coloques alli dichos campos, en lugar de las variables que te mostre como ejemplo .

[[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

[[maeyanes]]

Pusiste en el uses de la unidad la referencia a la unidad DateUtils?

Con esa unidad solo tienes que hacer:

Código Delphi [-]
procedure TFrm_GiftShop.Tbl_GiftShopFecha_RenovaciónChange(Sender: TField);
var
  Fecha_Soporte: TDateTime;

begin
  Fecha_Soporte := Sender.Value;
  IncYear(Fecha_Soporte);
  Tbl_GiftShopFech_Pendiente_Renovacion.Value := Fecha_Soporte
end;

Saludos...