Discussion :

[informatiquedm]

Bonsoir,

Nouvellement venu à VB.NET version 2010, je recheche de l'aide pour pouvoir convertir des chiffres précisés en Euros et en centimes pour les convertir en toutes lettres.

Exemple : 2 317,35 euros deviennent deux mille trois cent dix-sept virgule trente cinq euros

D'avance merci pour votre tuyau sur le code VB.NET !

A+ et merci !

[tomlev]

Il y a une classe pour ça dans la librairie Dvp.NET :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Imports Developpez.Dotnet
 
...
 
Dim value = 2317.35
Dim valueAsText = NumberConverter.Spell(value, 2)
' deux mille trois cent dix-sept virgule trente-cinq

(2 est le nombre de décimales à prendre en compte)

Il y a même une variante pour les montants en devises :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Imports Developpez.Dotnet
Imports Developpez.Dotnet.Language
 
...
 
Dim value = 2317.35
Dim valueAsText = NumberConverter.SpellAmount(value, KnownCurrencies.Euro)
' deux mille trois cent dix-sept euros et trente-cinq centimes