Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Convert two-digit year in date
Message
 
To
30/10/2007 17:05:25
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
Miscellaneous
Thread ID:
01265173
Message ID:
01265799
Views:
8
>Also
>SET CENTURY ON
>SET CENTURY TO 19 ROLLOVER 20
>? CTOD("01/01/50") && 01/01/1950
>? CTOD("01/01/10") && 01/01/2010
>
>This was introduce for the Y2K issue. Every think before today is in this century, and every thing after today date is considered last century.

Greg,
If you use SET CENTURY TO 19 ROLLOVER 20 my mother's birthday 01/10/19 would convert to 01/10/2019 instead of the correct 01/10/1919.

I think you woud want to use either
SET CENTURY TO 19 ROLLOVER 8 && good for two months then change the 8 to 9
or
rollyear = VAL(SUBSTR(STR(YEAR(DATE()) + 1),3,2))
SET CENTURY TO 19 ROLLOVER rollyear && gives you 99 years ago

Sammie
>
>>The Patient.ptDOB below is a 2-digit date. What is the simplest way to convert it to a 4-digit year date in a SQL statement? Thanks!
>>
>>
>>PADR(THIS.Strip(TRANSFORM(Patient.PtDOB, '@T')), 30, ' ')   AS PID_07_00_DateOfBirth, ;
>>
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform