TODAY function

Returns the current system date.

Syntax 

 

TODAY

Example 

This procedure prints the date in the first line at the top of each page of a report. Instead of using TODAY in the FORM statement, the procedure uses a variable to hold the date. This ensures that the same date appears on all pages of the report, even if this procedure runs through midnight.

 

r-today.p

DEFINE VARIABLE rptdate AS DATE NO-UNDO.   OUTPUT TO PRINTER.   rptdate = TODAY. FORM HEADER rptdate "Customer List" AT 34   "Page" AT 66 PAGE-NUMBER FORMAT ">>>9" SKIP(2)   WITH NO-BOX PAGE-TOP. VIEW.   FOR EACH Customer NO-LOCK:   DISPLAY Customer.Name AT 1 Customer.Address AT 31     Customer.City + ", " + " " + Customer.State FORMAT "x(35)" AT 31     WITH NO-BOX NO-LABELS CENTERED. END.

PAGE-TOP frames are re-evaluated on every new page. Therefore, if you do not use a variable for the date, a different date is displayed on the following page(s) if the report starts before midnight and ends after midnight.

See also 

ADD-INTERVAL function, DATE function, DATE-FORMAT attribute, DATETIME function, DATETIME-TZ function, DAY function, ETIME function, INTERVAL function, ISO-DATE function, MONTH function, MTIME function, NOW function, TIME function, TIME-SOURCE attribute, TIMEZONE function, WEEKDAY function, YEAR function, YEAR-OFFSET attribute