Excellent, Dennis, a sliding pivot date, which was probably the best all-around Y2K remediation method used by anyone, esp. in a "big iron" and/or hierarchical/network database environment.
Everyone who faces this CCYY-versus-YY challenge should pay attention to this code. BTW, Razzak, I, f/one, would appreciate your consideration of a change in the doc's related to this, namely what I wrote in the previous line. That is, instead of describing date FORMATs/SEQUENCEs as 'YYYY', might describe them as 'CCYY'? Anybody else care to comment? Later, Steve in Memphis (P.S. Given last week's successful "Dead Elvis Week" (as some of us here affectionately term it) despite the (almost) daily rainfall and intermittent but intense heat, I'd just add that, although he's definitely "left the building", Elvis is still king. FWIW, Steve) ----- Original Message ----- From: "Dennis McGrath" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, August 20, 2002 7:51 PM Subject: RE: Date Dilemma > 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/ ================================================ 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/
