Smart Dates

Smart dates are stored as the number of days lapsed since December 31, 1900 (base date). Fields in this format can be easily manipulated and compared to other date fields. Below are some examples using the field AC:BRTHDATE which has a MDYY format.

In a table request, you can provide a new display format by simply specify the display format (e.g., 06-15-1960). For example:

PRINT AC:BRTHDATE/M-D-YY

To display the date in a natural date literal, (e.g., JUN 15, 1960) simply specify the display format in a table report request. For example:

PRINT AC:BRTHDATE/MTDYY

To define the date as a YYMD format, simply specify the new date format. For example:

NEWDATE/YYMD=AC:BRTHDATE;

To convert the date to an alpha format, use the following define:

NEWDATE/A8MDYY=AC:BRTHDATE;

FOCUS does not support date formats without the year component (i.e., MD or DM). To select the month or day of a particular date field, you must first convert it from a smart date to an alpha format and then use an Edit define to select the date component. For example:

NEWDATE/A8MDYY=AC:BRTHDATE;

MONTH/A2=EDIT(NEWDATE, '99$$$$$$);

Here are tips for using smart dates in DEFINEs:

Date values must be enclosed in single quotes. For example:

TEST/A3=IF AC:APPTXDTE GT '05291998'

THEN 'YES' ELSE 'NO';

Date values which display as 'blank' are actually stored as the integer 0. Use that value when screening. For example:

TEST/A3 = IF AC:APPTXDTE EQ '0'

THEN 'YES' ELSE 'NO';

FOCUS documentation.