como formar una fecha futura.....

[ronimaxh]

Buen día si descompogo una fecha con la función:

Código Delphi [-]
DecodeDate(date,periodo,mes,dia);
// para hacer unos calculos, luego quiero asignar una fecha futura cambiando el //mes y el periodo, cuando quiero la fecha futura en el formato original de fecha como lo hago.

ejemplo:

si periodo=2008;
mes=11;
dia=14;

fecha_futura:=periodo+mes+dia; //(me da una fecha erronea, quiero la fecha futura real)

[*Caro*]

Hola ronimaxh, para incrementar años a una fecha cuentas con la función IncYear y par incrementar meses la función IncMonth de la unidad Dateutils.

Saluditos

[tcp_ip_es]

a parte de lo que te comenta Caro, creo que lo que preguntas es como volver a ponerle el formato fecha sería más o menos asi....

Código Delphi [-]
procedure bla bla ...
var mifecha:tdatetime;
begin 
 mifecha:=strtodate(periodo+'/' + mes + '/' + dia);
end

[*Caro*]

Hola amiguito tcp, creo que no sería necesario volverle a poner formato ni tampoco descomponerlo con DecodeDate, ya que ambas funciones te reciben un DateTime y te devuelven un DateTime.

Código Delphi [-]
var
 FechaFutura : TDateTime;
begin
 FechaFutura := IncYear(Date,1); //Incrementamos un año
 FechaFutura := IncMonth(FechaFutura,2); //Incrementamos 2 meses al resultado anterior
 showmessage(DateTimeToStr(FechaFutura));

Saluditos

[tcp_ip_es]

Empezado por Caro

Hola amiguito tcp, creo que no sería necesario volverle a poner formato ni tampoco descomponerlo con DecodeDate, ya que ambas funciones te reciben un DateTime y te devuelven un DateTime.

Si yo no me refería a tus funciones ya se que incyear e incmonth reciben y devuelven un date, lo que pasa es que yo entendí a ronimaxh

Empezado por ronimaxh

// para hacer unos calculos, luego quiero asignar una fecha futura cambiando el //mes y el periodo, cuando quiero la fecha futura en el formato original de fecha como lo hago.

que lo que queria era que después de hacer un decodedate y tratar los numeros por separado como volver a componer la fecha y por eso le puse el strtodate...

asi que ahora le toca a ronimaxh pronunciarse

[*Caro*]

Empezado por tcp_ip_es

Si yo no me refería a tus funciones ya se que incyear e incmonth reciben y devuelven un date, lo que pasa es que yo entendí a ronimaxh
........
que lo que queria era que después de hacer un decodedate y tratar los numeros por separado como volver a componer la fecha y por eso le puse el strtodate...

Lo que yo he entendido es que justamente se refería a los calculos de incrementar años o meses a una fecha, tal vez he entendido mal, como dice contraveneno con EncodeDate también se puede volver a formar la fecha.

Saluditos

[ronimaxh]

Gracias amigos no conocia esa función les agradezco mucho.

[ContraVeneno]

yo pensé que con "EncodeDate" sería suficiente para volver a formar la fecha.