Código Delphi [-] var CantAnios : Integer; begin CantAnios := YearsBetween(Now, Fecha); if CantAnios>10 then .....................
var CantAnios : Integer; begin CantAnios := YearsBetween(Now, Fecha); if CantAnios>10 then .....................