oPerson1 = createobject( "Person" ) oPerson1.dBirthDate = datetime() - 100 ? oPerson1.GetAge(), oPerson1.oTime.PointOfTime messagebox( "delaying between the two people" ) oPerson2 = createobject( "Person" ) oPerson2.dBirthDate = datetime() - 100 ? oPerson2.GetAge(), oPerson2.oTime.PointOfTime messagebox( "letting the objects age" ) ? oPerson1.ObjectAge(), oPerson2.ObjectAge() DEFINE CLASS Person as Custom cName = "" dBirthdate = {//} oTime = null nAge = 0 function Init() this.oTime = createobject("zaTime") return dodefault() function Destroy() this.oTime = .null. return dodefault() FUNCTION GetAge() RETURN this.oTime.PointOfTime - this.dBirthDate ENDFUNC function ObjectAge() return datetime() - this.oTime.PointOfTime ENDDEFINE DEFINE CLASS zaTime as Custom PointOfTime = {//::} function Init() this.PointOfTime = DATETIME() return dodefault() ENDDEFINE