To all,

Here is some code I run at start of all apps to nail down the pivot date and
never have to mess with it again.

-- SET YEAR AND CENTURY SETTINGS TO -90 +10 YEAR RANGE
SET DATE FOR MM/DD/YY
SET DATE SEQ MMDDYY
SET VAR vYearText TEXT = (CTXT(INT(FORMAT(.#DATE,'YYYY')) - 90))
SET VAR vTmp TEXT = (SGET(.vYearText,2,1))
SET DATE CENTURY &vTmp
SET VAR vTmp = (SGET(.vYearText,2,3))
SET DATE YEAR &vTmp


-- Dennis McGrath
mailto:[EMAIL PROTECTED]

-- Productivity Tools for R:Base Programmers
http://www.enteract.com/~mcgrath/dennis

-- Full time consultant with:
SQL Resources Group
Steve Hartmann
Oak Park, IL
mailto:[EMAIL PROTECTED]


================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/

Reply via email to