Section courante

A propos

Section administrative du site

FORMATPERCENT

Format de pourcentage
Visual Basic

Syntaxe

Function FormatPercent(expression[,NumDigAfterDec[,IncLeadingDig[,UseParForNegNum[,GroupDig]]]])

Paramètres

Nom Description
expression Ce paramètre permet d'indiquer l'expression à convertir.
NumDigAfterDec Ce paramètre permet d'indiquer le nombre de décimal.
IncLeadingDig Ce paramètre permet d'indiquer si le nombre de zéro soit affiché par valeurs fractionnaire :
Valeur Description
-2 Cette valeur permet d'indiquer qu'il faut utiliser la valeur par défaut.
-1 Cette valeur permet d'indiquer qu'il faut que le nombre de zéro soit affiché par valeurs fractionnaire.
0 Cette valeur permet d'indiquer qu'il ne faut pas que le nombre de zéro soit affiché par valeurs fractionnaire.
UseParForNegNum Ce paramètre permet d'indiquer s'il faut placer les valeurs négatifs entre parenthèse :
Valeur Description
-2 Cette valeur permet d'indiquer qu'il faut utiliser la valeur par défaut.
-1 Cette valeur permet d'indiquer qu'il faut placer les valeurs négatifs entre parenthèse.
0 Cette valeur permet d'indiquer qu'il ne faut pas placer les valeurs négatifs entre parenthèse.
GroupDig Ce paramètre permet d'indiquer s'il faut regrouper les nombres en utilisant les délimiteurs régionales :
Valeur Description
-2 Cette valeur permet d'indiquer qu'il faut utiliser la valeur par défaut.
-1 Cette valeur permet d'indiquer qu'il faut regrouper les nombres en utilisant les délimiteurs régionales.
0 Cette valeur permet d'indiquer qu'il ne faut pas regrouper les nombres en utilisant les délimiteurs régionales.

Description

Cette fonction retourne une expression formaté avec un pourcentage.

Remarques

Exemple

Voici un exemple d'une utilisation typique de cette fonction :

  1. Sub Main()
  2.  MsgBox "10000 = " & FormatPercent(10000) & vbCrLf & _
  3.         "10000.587,2 = " & FormatPercent(10000.587,2) & vbCrLf & _
  4.         "10000.587,2,,,0 = " & FormatPercent(10000.587,2,,,0) & vbCrLf & _
  5.         "13567 = " & FormatPercent(13567) & vbCrLf & _
  6.         "13567.8977 = " & FormatPercent(13567.8977) & vbCrLf & _
  7.         "30000 = " & FormatPercent(30000) & vbCrLf & _
  8.         "30000.587,2 = " & FormatPercent(30000.587,2) & vbCrLf & _
  9.         "30000.587,2,,,0 = " & FormatPercent(30000.587,2,,,0) & vbCrLf & _
  10.         "31567 = " & FormatPercent(31567) & vbCrLf & _
  11.         "31567.9877 = " & FormatPercent(31567.9877)
  12. End Sub

on obtiendra le résultat suivant :

10000 = 1 000 000,00%
10000.587,2 = 1 000 058,70%
10000.587,2,,,0 = 1000058,70%
13567 = 1 356 700,00%
13567.8977 = 1 356 789,77%
30000 = 3 000 000,00%
30000.587,2 = 3 000 058,70%
30000.587,2,,,0 = 3000058,70%
31567 = 3 156 700,00%
31567.9877 = 3 156 798,77%


Dernière mise à jour : Lundi, le 19 novembre 2012