User-Defined Function to Convert a Date into Words

• Microsoft Visual FoxPro for Windows, version 3.0
• Microsoft FoxPro for MS-DOS, versions 2.0, 2.5, 2.5a, and 2.5b
• Microsoft FoxPro for Windows, version 2.5, 2.5a, and 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<=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)