7 respuestas en este tema

[discorf1978]

Hola como estan,
bueno mi problema radica en que tengo un dbedit= con formato fecha
y la fecha que tomo es la del sistema
dbfecinicial=11/11/2012
pero me gustaria que la fecha final
quedara
dbefecfinal=11/12/2012
La inicial la tomo del sistema con el Date();
pero si le sumo 30 dias, no siembre
en todos los meses queda el dia igual aveces queda el 10 0 el 9?
Como podria solucinarlo????

Gracias

[Fenareth]

Hola amigo discorf1978... bienvenido a DelphiAccess

Puedes hacer uso de la función de Delphi

delphi

function IncMonth( const Date: TDateTime; NumberOfMonths: Integer = 1 ): TDateTime;

La cual recibe como parámetros la fecha inicial y el número de meses a incrementar...

Saludox !

[TiammatMX]

...dbfecinicial=11/11/2012 pero me gustaria que la fecha final quedara dbefecfinal=11/12/2012. La inicial la tomo del sistema con el Date(); pero si le sumo 30 dias, no siembre en todos los meses queda el dia igual a veces queda el 10 0 el 9? Como podria solucinarlo????...

Podrías utilizar el método que acá en el trabajo usamos:

delphi

iLaFecha := Trunc(dLaFecha);
iLaFecha := iLaFecha + 30;
dbfecinicial.Date := iLaFecha;

La razón es fácil. Internamente, cualquier fecha es un entero, ya que contabiliza un 'n' número de días a partir de una fecha base, y puede ser asignado directamente como un entero a un campo de fecha.

[Fenareth]

...dbfecinicial=11/11/2012 pero me gustaria que la fecha final quedara dbefecfinal=11/12/2012. La inicial la tomo del sistema con el Date(); pero si le sumo 30 dias, no siembre en todos los meses queda el dia igual a veces queda el 10 0 el 9? Como podria solucinarlo????...

Podrías utilizar el método que acá en el trabajo usamos:

delphi

iLaFecha := Trunc(dLaFecha);
iLaFecha := iLaFecha + 30;
dbfecinicial.Date := iLaFecha;

La razón es fácil. Internamente, cualquier fecha es un entero, ya que contabiliza un 'n' número de días a partir de una fecha base, y puede ser asignado directamente como un entero a un campo de fecha.

Ésta solución no genera el mismo problema que nos comenta discorf1978 ???... 

Se pretende sumar un mes, no exactamente 30 días... (por ejemplo Fecha Inicial: 5 de Mayo, si se suman 30 días = 4 de Junio, si se suma un mes = 5 de Junio)...

Saludox !

[TiammatMX]

Ésta solución no genera el mismo problema que nos comenta discorf1978 ???... 

Se pretende sumar un mes, no exactamente 30 días... (por ejemplo Fecha Inicial: 5 de Mayo, si se suman 30 días = 4 de Junio, si se suma un mes = 5 de Junio)...

Saludox !

¿Era éso?  Perdón, leí mal entonces  ..., pero bueno, ya tiene un "norte" de cómo solucionar el problema...

[discorf1978]

:smiley:Bueno muy gentiles fue de gran ayuda.  Gracias

[TiammatMX]

¿Y cómo solucionaste? Digo, para el registro...

[Delphius]

La razón es fácil. Internamente, cualquier fecha es un entero, ya que contabiliza un 'n' número de días a partir de una fecha base, y puede ser asignado directamente como un entero a un campo de fecha.

Errrrrrrrr (o el sonido que se haga en los juegos televisos de trivia).
Las fechas o se guardan como entero. Se guardan en coma flotante. De hecho, las fechas son la parte entera, mientas que las horas, minutos y segundos son los decimales. Entonces, vendría a ser algo como: fecha.hora

De esto se aprecia que no funciona del todo tu propuesta. Lo sano es ir por la función IncMonth que ha recomendado Fenareth.

Saludos,

Saludos,