CONVERSION D'UNE SOMME EN LETTRES

Utilisateur anonyme - 14 févr. 2006 à 11:47
flong1981 Messages postés 2 Date d'inscription vendredi 26 avril 2013 Statut Membre Dernière intervention 26 avril 2013 - 26 avril 2013 à 13:25
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/36047-conversion-d-une-somme-en-lettres

flong1981 Messages postés 2 Date d'inscription vendredi 26 avril 2013 Statut Membre Dernière intervention 26 avril 2013
26 avril 2013 à 13:25
bonjours

comment doisje faire pour utiliser cette fonction?

merci
cs_renesada Messages postés 1 Date d'inscription mercredi 22 février 2006 Statut Membre Dernière intervention 22 mai 2006
22 mai 2006 à 14:48
bonjour avi17 , pour la correction de 'le cas de mille (1xxx)
If NbGrp 2 And I 2 And Right(Groupe, 1) = "1" Then ChiffresLettres_F = "mille" , il manque aussi le 'et' exemple = vingt et un mille ....' , merci
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
6 mars 2006 à 12:00
pardon ?
ceikalou Messages postés 1 Date d'inscription lundi 6 mars 2006 Statut Membre Dernière intervention 6 mars 2006
6 mars 2006 à 11:45
Que du bidon ..... le porte monaie sinon rien......grosse bande de rigilolo !!!!
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
17 févr. 2006 à 13:45
Gosub / Return ?
je m'en sers régulièrement....
ca a l'avantage de ne pas trop surcharger la pile..
Profil bloqué
14 févr. 2006 à 23:47
Pour Avi17 trois remarques
- C'est la première en + de 6 ans de visual Basic que je vois un Gosub Return. Cela rappelle le bon vieux Qbasic sous Dos
- tu as mis décodage des unités pour mille,millions,milliards . le terme exact serait plutôt décodage du poids numérique : tu traite les unités puis les mille, les millions et les milliards s'il y a pour ces trois derniers.
- Lorsque tu dis que la partie entière est supérieure à 12 il faut comprendre que la partie entière contient plus de 12 chiffres frappés au clavier
Sinon l'idée est très bonne et je te mets un 7 sur 10
Galain
Profil bloqué
14 févr. 2006 à 23:31
Salut Avi17 et pour répondre à Drafat70
Une petite erreur s'est glissée dans le code
Dans la ligne de code suivante il faut remplacer Right par Left et le programme arrivera à convertir 21150

'le cas de mille (1xxx)
If NbGrp 2 And I 2 And Right(Groupe, 1) = "1" Then ChiffresLettres_F = "mille"
Utilisateur anonyme
14 févr. 2006 à 11:47
SALUT AVI17 !!
je veux vous dire que j'ai pas lire le code de ton programme, mais j'ai fais des essai; hop !! la conversion n'est pas correcte, votre code contient des erreure (par exemple le programme n'arrive pas à convirtir 21550)... et voilà .... drafat70 ....... draidi@yahoo.fr
Rejoignez-nous