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