@prefix event: <http://eulersharp.sourceforge.net/2003/03swap/event#>.
@prefix math: <http://www.w3.org/2000/10/swap/math#>.
@prefix xsd: <http://www.w3.org/2001/XMLSchema#>.
@prefix dce: <http://purl.org/dc/elements/1.1/>.
@prefix dct: <http://purl.org/dc/terms/>.

<> dce:title """Age rule"""@en;
dce:creator """Hans Cools"""@en;
dce:publisher """Agfa Healthcare/Belgium"""@en;
dce:description """Rule to calculate an age of a being."""@en;
dce:language """English"""@en.

{
?ANY event:snapshot ?snapshot.
?being a dct:PhysicalResource; event:exists ?existence.
?existence a event:Existence; event:begins ?begin.
?begin math:lessThan ?snapshot.
(?snapshot ?begin) math:difference ?sec.
(?sec "P1Y"^^xsd:duration) math:integerQuotient ?years.
(?sec "P1Y"^^xsd:duration) math:remainder ?R.
(?R "P1D"^^xsd:duration) math:integerQuotient ?days.
}
=> {?being event:hasAge [event:hasYears ?years; event:hasDays ?days].}.