Timer for delete record

As Fred states ....

You can automate in a kind of way by tracking the current date less x

I used this code in the GLOBAL script area to delete old jobs and its associate child forms over approx 6 years old (ie ignoring leap years etc

but as this one run when you log on also have an admin table form and have this in a button too ! for admin type tasks

let myDate := today() - 2190;
let myDel := dialog("Delete Multiple jobs from History File", "DELETE ALL JOBS OVER 6 YEARS OLD FROM CURRENT JOB FILE?

Warning:- Once these jobs have been Deleted - They are gone forever!", ["Yes", "No"]);
if myDel = "Yes" then
    let mySure := dialog("Sure?", "Are you Sure?", ["Yes", "No"]);
    if mySure = "Yes" then
        delete (select PurchaseOrders where 'Order Date' < myDate);
        delete (select DeliveryNotes where 'Delivery Date' < myDate);
        delete (select JobDockets where 'Order Date' < myDate);
        alert("Records have been deleted from the system")
    else
        alert("Okay - Nothing has been deleted")
    end
else
    alert("Okay - Nothing has been deleted")
end