Made Time an Ada Function