De volgende code doet het; zoals je ziet werkt ie alleen maar op de jaren. Dus voor de '€" staat waarop je sorteert, daarna wat je afdrukt.
_FILEMODE( ".html", "ifNewer" )
_FILENAME( "asce_gen_beperking.html" )
_WRITBEGI
_SETDEF(HUIDIG)
_SETADD(HUIDIG)
_SETDEF(X)
_SETDEF(Y)
_SETDEF(asce_set)
_SETFILL(asce_set,_ASCE, _SELECTIE_ASCE)
_SETBEGI(asce_set)
_SETADD(X,[:_DIA_leeftijd_jaren._FILL("0",3)_SURN _NAMEFIRS € _GENENUM _DIA_leeftijd_jaren._FILL(" ",3) _NAMEFIRS _SURN:])
_SETEND
_SETSORT(X, _SORTNOCA)
_SETBEGI(X)
_SETCLR(Y)
_SETADD(Y,[:_SETSTRI:])
_SETSPLICE(Y,[:_SETSTRI:],"€")
_SETEXP(Y,2,_SETSTRI) <br />
_SETEND
_WRITEND
_FUNCBEGI(_SELECTIE_ASCE)
[:_SETORDE(HUIDIG)[&_CHILBEGI[&1[?7 > _GENENUM?]&]_CHILEND&]:]
_FUNCEND
_FUNCBEGI(_DIA_leeftijd_jaren)
[?_BIRTDATE _BAPTDATE _BIRRDATE?]?
_BEGI
_DEAT?
_BEGI
[?_DEATDATE _DEARDATE _BURIDATE?]?
_BEGI
[&_BIRTDATE _DEATDATE&]?_BEGI[:_BIRTDATE([:_DIFFDATE(_DEATDATE)_Y:]:]?_BEGI[:_BIRTDATE([:_DIFFDATE(_DEATDATE)_Y:]):]_ELSE[::]_END[::]_ELSE
[&_BIRTDATE _DEARDATE&]?_BEGI[:_BIRTDATE([:_DIFFDATE(_DEARDATE)_Y:]:]?_BEGI[:_BIRTDATE([:_DIFFDATE(_DEARDATE)_Y:]):]_ELSE[::]_END[::]_ELSE
[&_BIRTDATE _BURIDATE&]?_BEGI[:_BIRTDATE([:_DIFFDATE(_BURIDATE)_Y:]:]?_BEGI[:_BIRTDATE([:_DIFFDATE(_BURIDATE)_Y:]):]_ELSE[::]_END[::]_ELSE
[&_BIRRDATE _DEATDATE&]?_BEGI[:_BIRRDATE([:_DIFFDATE(_DEATDATE)_Y:]:]?_BEGI[:_BIRRDATE([:_DIFFDATE(_DEATDATE)_Y:]):]_ELSE[::]_END[::]_ELSE
[&_BIRRDATE _DEARDATE&]?_BEGI[:_BIRRDATE([:_DIFFDATE(_DEARDATE)_Y:]:]?_BEGI[:_BIRRDATE([:_DIFFDATE(_DEARDATE)_Y:]):]_ELSE[::]_END[::]_ELSE
[&_BIRRDATE _BURIDATE&]?_BEGI[:_BIRRDATE([:_DIFFDATE(_BURIDATE)_Y:]:]?_BEGI[:_BIRRDATE([:_DIFFDATE(_BURIDATE)_Y:]):]_ELSE[::]_END[::]_ELSE
[&_BAPTDATE _DEATDATE&]?_BEGI[:_BAPTDATE([:_DIFFDATE(_DEATDATE)_Y:]:]?_BEGI[:_BAPTDATE([:_DIFFDATE(_DEATDATE)_Y:]):]_ELSE[::]_END[::]_ELSE
[&_BAPTDATE _DEARDATE&]?_BEGI[:_BAPTDATE([:_DIFFDATE(_DEARDATE)_Y:]:]?_BEGI[:_BAPTDATE([:_DIFFDATE(_DEARDATE)_Y:]):]_ELSE[::]_END[::]_ELSE
[&_BAPTDATE _BURIDATE&]?_BEGI[:_BAPTDATE([:_DIFFDATE(_BURIDATE)_Y:]:]?_BEGI[:_BAPTDATE([:_DIFFDATE(_BURIDATE)_Y:]):]_ELSE[::]_END[::]_ELSE
_END[::]_END[::]_END[::]_END[::]_END[::]_END[::]_END[::]_END[::]_END
_END
_ELSE
[:[:[?_BIRTDATE?]?_BEGI[::]_BIRTDATE([:_DIFFDATE(_CURRDATE)_Y:])_END:]|[:[?_BIRRDATE?]?_BEGI[::]_BIRRDATE([:_DIFFDATE(_CURRDATE)_Y:])_END:]|[:[?_BAPTDATE?]?_BEGI[::]_BAPTDATE([:_DIFFDATE(_CURRDATE)_Y:])_END:]:]
_END
_END
_FUNCEND