Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Function to convert date to words
Message
From
27/03/2003 12:48:36
 
 
To
27/03/2003 12:15:53
Stephen Hunt
Admit Computer Services Inc.
Farmingdale, New York, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00770814
Message ID:
00770851
Views:
14
>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

alright, here is one which should work, even with the '11' mentioned earlier:
FUNC Date2String
	LPARA ;
		LcDate
	Local ;
		LcDay, ;
		LcMonth, ;
		LcYear
	
	LcDay = ALLT(STR(DAY(LcDate)))
	DO CASE
		CASE RIGHT(LcDay, 1) = "1" .and. LcDay <> "11"
			LcDay = LcDay + "st"
		CASE RIGHT(LcDay, 1) = "2"
			LcDay = LcDay + "nd"
		CASE RIGHT(LcDay, 1) = "3"
			LcDay = LcDay + "rd"
		OTHERWISE
			LcDay = LcDay + "th"
	ENDCASE
	LcMonth	= CMONTH(LcDate)
	LcYear	= ALLT(STR(YEAR(LcDate)))
	RETURN(LcDay + " day of " + LcMonth + ", " + LcYear)
ENDFUNC
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform