INFO: User-Defined Function to Convert a Date into Words

ID: Q107416

The information in this article applies to:

Microsoft Visual FoxPro for Windows, versions 3.0, 5.0, 6.0
Microsoft FoxPro for MS-DOS, versions 2.0, 2.5, 2.5a, 2.5b
Microsoft FoxPro for Windows, versions 2.5, 2.5a, 2.5b

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&lt;=9,STR(Nday,1,0),NumDay)
   IF Nday &gt; 3 AND Nday &lt; 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 : kbcode FxprgGeneral
Version : MS-DOS:2.0,2.5,2.5a,2.5b; WINDOWS:2.5,2.5a,2.5b,3.0,5.0,6.0
Platform : MS-DOS WINDOWS
Issue type :