Edad!

[[ElDioni]]

Hola y_a_p,

creo que no has entendido lo que te proponía Caro, en la función

Código Delphi [-]
FechaInicio:=IncYear(FechaInicio, Anyos);

es lo siguiente:

A la FechaInicio (Caro la ha llamado así pero en realidad es la fecha de nacimiento del paciente) le está sumando los años resultantes después de hacer el YearsBetween y que hemos guardado en la variable Anyos.

Pongamos que la FechaInicio es 01/02/2008 y hoy es 01/03/2011 por lo tanto al hacer el YearsBetween tendremos guardado Anyos=3, luego a la fecha inicio le sumamos esos años por lo que tendríamos 01/02/2011, si ahora hacemos

Código Delphi [-]
Meses := MonthsBetween(FechaInicio, Now);

tendremos meses=1.

Espero que esto te haya despejado las dudas que tuvieras.

Saludos.