User-Defined Function to Convert a Date into Words

ID: Q107416

2.50 2.50a 2.50b 3.00| 2.00 2.50 2.50a 2.50b

WINDOWS              | MS-DOS

The information in this article applies to:

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 reference words: VFoxWin 3.00 FoxDos FoxWin 2.00 2.50 2.50a 2.50b long alpha alphabet KBCategory: KBSubcategory: FxprgGeneral
Keywords          : kbcode FxprgGeneral 
Version           : 2.50 2.50a 2.50b 3.00| 2.00 2.50
Platform          : MS-DOS WINDOWS

Last Reviewed: May 22, 1998