Hola a todos!!!, tengo un problemita con la función Downto to q va dentro del for, supuestamente esta en vez de incrementar, decrementa, pero Delphi no me la toma, a mi sistema lo realizo con Delphi 7, BD SQL Manager 2008, Motor Firebird, desde ya agradezco su ayuda... Aquí dejo el código asi se entiende mejor:
Código Delphi
[-] For m Downto to 12 do
begin
a:=a+1;
m:=m-11;
end;
DM.DSET_pacEDAD.Value:=a;
DM.DSET_pacMESES.Value:=m;
Donde DM= Data_Module.
DSET_pac= Tabla Pacientes en la BD.
a= A un contador q anteriormente está inicializado en 0 y corresponde a los años.
m= Son los meses.
Lo q busco con esto es a partir de haber obtenido con la función MonthsBetween la cantidad de meses q han transcurrido de una fecha hasta la actualidad, obtener a cuantos años y meses equivalen esos meses, por ejemplo:
37 Meses= 3 años y 1 mes.
Hasta luego y nuevamente muchas gracias!