nPrix est un réel
sPartieGauche est une chaîne
sPartieDroite est une chaîne
sValeur est une chaîne

nPrix = 2130.50
//On formatte la valeur comme voulu
sPartieGauche = NumériqueVersChaîne(nPrix,"12,2fs")
//On récupère les décimale avec le zéro si nécessaire
sPartieDroite = sPartieGauche[[ Position(sPartieGauche,",",1) + 1 A ]]
//On récupère la partie entière avec séparateur décimale
sPartieGauche = SansEspace(sPartieGauche[[ A Position(sPartieGauche,",",1) - 1 ]])

sValeur = sPartieGauche + " € " + sPartieDroite
Info(sValeur)