begin process at 2012 05 27 07:06:28
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

E-Commerce

 > MISE EN FORME DE PRIX POUR AFFICHAGE

MISE EN FORME DE PRIX POUR AFFICHAGE


 Information sur la source

Note :
9,43 / 10 - par 7 personnes
9,43 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :E-Commerce Classé sous :mise, forme, prix, affichage, nombre Niveau :Débutant Date de création :21/05/2001 Vu :12 742

Auteur : Aziel

Ecrire un message privé
Site perso
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 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

Source .NET (Dotnet) PAYPAL ASP.NET 2 INTEGRATOR par simo5963
Source avec Zip GESTION D'UN PANIER DE COMMERCE ÉLECTRONIQUE par SgtKabukinan
Source avec Zip Source .NET (Dotnet) E-COMMERCE ASP.NET par Jackboy
TESTER LA VALIDITÉ D'UN NUMÉRO DE CARTE DE CRÉDIT par vbtom

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) GRIDVIEW AVEC DES IMAGES par CSharpJSharp
Source .NET (Dotnet) UTILISATION DU SQLDATAREADER ET AFFICHAGE DANS DES ZONES DE ... par duce_foutou
NOMBRE DE JOUR AVANT LA FIN DE L'ANNÉE par henneuse_alain
CALCUL DU NOMBRE DE JOURS ENTRE DEUX DATES EN ASP par hugoboss2412
GENERER UN NOMBRE ALEATOIRE par Nix

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


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 &lt;A&gt; &lt;/a&gt;) 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


Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,343 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales