Article ID: 107416
Article Last Modified on 3/3/2005
APPLIES TO
- Microsoft Visual FoxPro 3.0 Standard Edition
- Microsoft Visual FoxPro 5.0 Standard Edition
- Microsoft Visual FoxPro 6.0 Professional Edition
- Microsoft FoxPro 2.0
- Microsoft FoxPro 2.5b for MS-DOS
- Microsoft FoxPro 2.5a
- Microsoft FoxPro 2.5b for MS-DOS
- Microsoft FoxPro 2.5b
- Microsoft FoxPro 2.5a
- Microsoft FoxPro 2.5b
This article was previously published under Q107416
The following user-defined function (UDF) uses the FoxPro functions CDAY(), CMONTH(), DTOC(), and DTOS() to obtain the character representations of the day and month. It then computes the "st", "nd", "rd", and "th" suffixes and returns the date in words to the calling procedure.
TheDate = {01/01/93}
@ 10,20 SAY SpellDat(TheDate)
RETURN
*********************************************************************
* Function.: SPELLDAT
* Notes....: This function converts a date into a specific format in
* words. For example, 01/01/93 = Friday, January 1st, 1993
*
* Parameters: Mdate - The expression to convert.
*********************************************************************
FUNCTION SpellDat
PARAMETER Mdate
Mday = CDOW(Mdate)
Mmonth = CMONTH(Mdate)
Numday = SUBSTR(DTOC(Mdate),4,2)
NumYear = SUBSTR(DTOS(Mdate),1,4)
Nday = VAL(NumDay)
HalfDay = VAL(SUBSTR(NumDay,2,1))
NumDay = IIF(Nday<=9,STR(Nday,1,0),NumDay)
IF Nday > 3 AND Nday < 21
Suff = "th"
ELSE
Suff = SUBSTR("thstndrdthththththth",(HalfDay*2)+1,2)
ENDIF
RETURN (Mday+", "+Mmonth+" "+NumDay+Suff+", "+NumYear)
Additional query words: VFoxWin FoxDos FoxWin long alpha alphabet
Keywords: kbinfo kbcode KB107416
