date + daysThe r-dadd.p procedure finds all unshipped orders that are at least one week overdue. If the order is not shipped and the promised date is more than seven days ago, the procedure finds the record for the customer who placed the order and displays the order and customer data.
DISPLAY "ORDERS SCHEDULED TO SHIP MORE THAN ONE WEEK LATE".FOR EACH Order NO-LOCK WHERE Order.ShipDate = ?:IF TODAY > (Order.PromiseDate + 7) THEN DO:FIND Customer OF Order NO-LOCK.DISPLAY Order.OrderNum Order.CustNum Customer.Name Order.PromiseDateCustomer.Terms.END.END.
![]()
To add a specific number of days and a specific number of milliseconds to a DATETIME, use the DATETIME function. For example:
new-datetime = DATETIME( DATE(old-datetime) + days,MTIME(old-datetime) + milliseconds ).The DATETIME function ensures that the time portion remains within the valid range, by adding day(s) to the date part when the time part goes over the number of milliseconds in a day.
![]()
new-datetime-tz = DATETIME-TZ( DATE(old-datetime-tz) + days,MTIME (old-datetime-tz) + milliseconds,TIMEZONE(old-dateime-tz) ).The DATETIME-TZ function ensures that the time portion remains within the valid range, by adding day(s) to the date portion when the time part goes over the number of milliseconds in a day.
© 2012 Progress Software Corporation and/or its subsidiaries or affiliates. |