Microsoft KB Archive/107416

= 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

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.