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

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)