resta entre fecha !!

[jhonny]

Empezado por richy08

Hola buen dia yo tengo un problema utilizando las fechas y quiero saber si alguien me puede dar una solucion mira estoy tratando de aumentar un mes cierta fecha por ejemplo 06/20/2007 al utilizar la funcion incmonths() el resultado que me da 07/18/2007 y yo lo que quiero que haga es que me incremente el mes y vuelva a caer en el mismo dia osea que el resultado debe ser 07/20/2007 si alguien me puede decir como solucionarlo gracias.

Si no te funciona IncMonth pues podemos hacerlo a mano...
Coloca la siguiente función:

Código Delphi [-]
 
function IncMes(Fecha :TDate) :TDate;
var
  mes, dia, ano :Word;
begin
  decodedate(Fecha, ano, mes, dia);
  Inc(mes);
  Result := encodedate(ano, mes, dia);
end;

Luego podras usarla asi:

Código Delphi [-]
Fecha := IncMes(Fecha);

Y Listo, espero te sirva .