Mise en forme de prix pour affichage

Commenter

Contenu du snippet

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 / Exemple : 


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.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.