Cita:
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:
Y Listo, espero te sirva
.