resta entre fecha !!

[richy08]

Empezado por jhonny

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 .

muchas gracias si me sirvio pero ahora tengo otro problema como saber si un numero es multiplo de 4 y cuantos dias trae el mes en el que esta la fecha