Accueil > > > MISE EN FORME DE PRIX POUR AFFICHAGE
MISE EN FORME DE PRIX POUR AFFICHAGE
Information sur la source
Description
Cette fonction formate un nombre de façon à le préparer pour un affichage de prix pour tout e-commerce. Quoi de plus embêtant de voir 5137454FF ou encore 1423.3243Eur dans une liste de prix ? C'est pas clair, n'est-ce pas ? Cette fonction transformera ces nombres en chaîne de caractères tel 5.137.454 et 1.423,32 (respectivement). Bref un petit plus pour afficher vos prix.
Source
- Function MFPrix (num)
-
- Dim i
-
- IF NOT IsNull(num) THEN
-
- numtxt = CStr(num) 'convertit le nombre en string pour gestion étendue
-
- IF InStr(numtxt,".") THEN
- numtxt = Replace(numtxt,".",",") 'remplace le . par , (euro - 2 décimales)
- numpart = right(numtxt,len(numtxt)-Instr(1,numtxt,",")+1)
- numtxt = left(numtxt,Instr(1,numtxt,",")-1)
- END IF
-
- FOR i = 1 to len(numtxt)
- IF i mod 3 = 1 AND i <> 1 THEN numtemp = mid(numtxt,len(numtxt)-i+1,1)& "." & numtemp ELSE numtemp = mid(numtxt,len(numtxt)-i+1,1) & numtemp
- NEXT
-
- MFPrix = numtemp&numpart
-
- ELSE
-
- MFPrix = "0"
-
- END IF
-
- END function
-
Function MFPrix (num)
Dim i
IF NOT IsNull(num) THEN
numtxt = CStr(num) 'convertit le nombre en string pour gestion étendue
IF InStr(numtxt,".") THEN
numtxt = Replace(numtxt,".",",") 'remplace le . par , (euro - 2 décimales)
numpart = right(numtxt,len(numtxt)-Instr(1,numtxt,",")+1)
numtxt = left(numtxt,Instr(1,numtxt,",")-1)
END IF
FOR i = 1 to len(numtxt)
IF i mod 3 = 1 AND i <> 1 THEN numtemp = mid(numtxt,len(numtxt)-i+1,1)& "." & numtemp ELSE numtemp = mid(numtxt,len(numtxt)-i+1,1) & numtemp
NEXT
MFPrix = numtemp&numpart
ELSE
MFPrix = "0"
END IF
END function
Conclusion
Collez le code dans la page où vous affichez le prix.
L'appel à cette fonction se fait de cette façon : prix_affichable = MFPrix(prix_devant_etre_affiche)
Affichez ensuite "prix_affichable" et l'affaire est dans le sac.
Les tests d'intégrité ne sont pas au top, mais c'est un détail. Assurez-vous de bien envoyer un nombre dans la fonction.
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
2 chiffres derrière la virgule [ par FrancoisPignon ]
J'ai un p'tit problème... j'affiche un champ prix en euro qui malheureusement apparaît avec un certain nombre de chiffres derrière la virgule (7 je pe
Formule crystal report (à l'aide) [ par niki1291 ]
Bonjour tout le monde,Voilà, je voudrais savoir s'il est possible de parcourir le champ d'un dataset dans un formule de Crystal Report ?Je m'explique,
affichage des données sous forme de barres [ par sendor ]
Salutje dois afficher des données graphiques sous formes de barres dans une page ecrite en ASP.Apparamment il faut que je fasse cela en JAVAEst ce pos
Affichage d'un nombre limité de résultats ... [ par JJG ]
Bonjour,Voilà je voudrais pouvoir afficher un nombre e résultats limités sur une page et faire la suite des enregistrement grace à un suivant !Le nomb
empecher l'affichage du nom du lien en bas du browser [ par noufnouf ]
Bonjour,Je voudrais eviter qu'il y ait l'affichage du nom de mon lien en bas du browser. (quand on fait un lien avec <A> </a>)
ASP script et carractère ' [ par ben ]
bonjour,j'ai besoin de faire afficher des infos provenant d'une base par un script et aussi de façon normale.Mon problème est que le texte dans ma bas
comment afficher le nombre de requetes [ par jo ]
Salut,comment faire pour afficher le nombre de requetes vers un champ d'une table comme sur ce siteEXSource affichée 2425 fois et 278 fois ce mois-cim
Hébergement avec un bon rapport qualité/prix [ par Xev ]
Salut,Un hébergeur interessant avec un bon rapport qualité/prix: http://www.virtualogis.com/
ASP-SQL : Affichage d'un champs MEMO ! [ par Damien ]
Bonjour,J'éprouve de grande difficulté a afficher un champs "MEMO" d'une base SQL.Quelle est la differance entre un champs text et un champs Memo.Pour
Upload et affichage d'images [ par nephiled ]
Bonsoir à tousContexte :J'ai un script d'upload de fichier qui fonctionne très bien.Je veux uploader des images dans un répertoire "rep".Aprés, je dés
|
Derniers Blogs
IMAGINE CUP 2012, MAKE A SIGN EN FINALEIMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg
Voilà qui est fait, la nouvelle est officielle ! L'équipe belge "Make a Sign" va au pays des kangourous défendre son projet dans la catégorie Software Design. http://www.imaginecup.com/CompetitionsContent/Competition/WorldwideFinalists.aspx V...
Cliquez pour lire la suite de l'article par junarnoalg KINECT 1.5 IS OUT !KINECT 1.5 IS OUT ! par Vko
La version 1.5 du Kinect For Microsoft vient tout juste de sortir ! Plein de nouveautés: Tracking de squelette en Near Mode Détection en position assise Détection faciale avec un SDK dédié Documentation et des guideline (enfin) Un out...
Cliquez pour lire la suite de l'article par Vko LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc
Mise à jour des Web API du 14 Mai
Réservez dès maintenant votre journée du 20 juin pour le Windows Azure Dev Camp 2012 à Paris
Mise à jour de Team Foundation Service
MechCommander 2 sur Windows 8
Entity Framework 5 Release Candidate e...
Cliquez pour lire la suite de l'article par richardc REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITERREACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc
Une mauvaise utilisation de rx lors de l'écriture d'une couche d'accès à des services peut conduire à des cas embarassants avec des erreurs mal gérées, des appels qui ne partent lorsqu'ils le devraient, et même des résultats incorrects . le tout nuis...
Cliquez pour lire la suite de l'article par Groc SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVESSHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg
Dernièrement, nous avons migré le site
myTIC
vers un nouveau serveur SharePoint 2010. Dans les contenus que nous vouloins récupérer, nous avions un certain nombre de blogs.
Nous avons utilisé les commandes Power...
Cliquez pour lire la suite de l'article par junarnoalg
Forum
GRIDVIEW CHECKBOXGRIDVIEW CHECKBOX par invent001
Cliquez pour lire la suite par invent001 OUTIL MYSQLOUTIL MYSQL par nobla
Cliquez pour lire la suite par nobla
Logiciels
sDEVIS-FACTURES vlPRO (8.1.0.3)SDEVIS-FACTURES VLPRO (8.1.0.3)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO 974 Application Server (12.2.4.6)974 APPLICATION SERVER (12.2.4.6)Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc... Cliquez pour télécharger 974 Application Server vPicture (1.4.2.1)VPICTURE (1.4.2.1)Avec vPicture, hébergez vos images facilement et rapidement.
vPicture est un utilitaire simple, ... Cliquez pour télécharger vPicture Easy-Planning (2.2.1.6)EASY-PLANNING (2.2.1.6)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au... Cliquez pour télécharger Easy-Planning COM-BACKUP (2.0)COM-BACKUP (2.0)
COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...
Cliquez pour télécharger COM-BACKUP
|