Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Function to convert date to words
Message
 
À
27/03/2003 12:15:53
Stephen Hunt
Admit Computer Services Inc.
Farmingdale, New York, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00770814
Message ID:
00770827
Vues:
14
This is what came to my mind. Correct it if needed:

?dconvert(date())

*----------------------
Procedure dconvert
LPARAMETERS lDdate
LOCAL lcday, lcth

lcday=TRANSFORM(DAY(lDdate))

DO case
CASE right(lcday,1)="1"
lcth="st"
CASE right(lcday,1)="2"
lcth="nd"
CASE right(lcday,1)="3"
lcth="rd"
otherwise
lcth="th"
ENDCASE
RETURN lcday+lcth+" day of "+CMONTH(lDdate)+", "+TRANSFORM(YEAR(lDdate))



>Are there any VFP functions or 3rd party routines that can convert a date to text. IE 11/23/2002 converts to "23rd day of November, 2002"
>
>Thanks for you help
>Stephen Hunt
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform