Cita:
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