Microsoft KB Archive/107416

From BetaArchive Wiki
Knowledge Base


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

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