Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Function to convert date to words
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00770814
Message ID:
00770841
Views:
13
Think it needs some work. ;)

You'd get 11st, 12nd, 13nd with what you've got.



>This is what came to my mind. Correct it if needed:
>
>?dconvert(date())
>
>*----------------------
>Procedure dconvert
>LPARAMETERS lDdate
>LOCAL lcday, lcth
>
>lcday=TRANSFORM(DAY(lDdate))
>
>DO case
>CASE right(lcday,1)="1"
> lcth="st"
>CASE right(lcday,1)="2"
> lcth="nd"
>CASE right(lcday,1)="3"
> lcth="rd"
>otherwise
> lcth="th"
>ENDCASE
>RETURN lcday+lcth+" day of "+CMONTH(lDdate)+", "+TRANSFORM(YEAR(lDdate))
>
>
>
>>Are there any VFP functions or 3rd party routines that can convert a date to text. IE 11/23/2002 converts to "23rd day of November, 2002"
>>
>>Thanks for you help
>>Stephen Hunt
Fred
Microsoft Visual FoxPro MVP

foxcentral.net
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform