Welcome Guest: S’enregistrer | Connexion
 
FAQ | Rechercher | Membres | Groupes
 
Function NbEnRomain(Nb As Integer) As String Dim ChiffreRomain As String ChiffreRomain = String(Int(Nb / 1000), "M") Nb = Nb - (Int(Nb / 1000) * 1000) If Nb >= 900 Then ChiffreRomain = ChiffreRomain & "CM" ElseIf Nb >= 500 And Nb < 900 Then ChiffreRomain = ChiffreRomain & "D" & String(Int((Nb - 500) / 100), "C") ElseIf Nb >= 400 And Nb < 500 Then ChiffreRomain = ChiffreRomain & "CD" Else ChiffreRomain = ChiffreRomain & String(Int(Nb / 100), "C") End If Nb = Nb - (Int(Nb / 100) * 100) If Nb >= 90 Then ChiffreRomain = ChiffreRomain & "XC" ElseIf Nb >= 50 And Nb < 90 Then ChiffreRomain = ChiffreRomain & "L" & String(Int((Nb - 50) / 10), "X") ElseIf Nb >= 40 And Nb < 50 Then ChiffreRomain = ChiffreRomain & "XL" Else ChiffreRomain = ChiffreRomain & String(Int(Nb / 10), "X") End If Nb = Nb - (Int(Nb / 10) * 10) If Nb >= 9 Then ChiffreRomain = ChiffreRomain & "IX" ElseIf Nb >= 5 And Nb < 9 Then ChiffreRomain = ChiffreRomain & "V" & String(Int((Nb - 5) / 1), "I") ElseIf Nb >= 4 And Nb < 5 Then ChiffreRomain = ChiffreRomain & "IV" Else ChiffreRomain = ChiffreRomain & String(Int(Nb / 1), "I") End If NbEnRomain = ChiffreRomain End Function ' Pour L'executer ex : NbEnRomain(1225)
Royaume Ultra
Modérateur: Aucun
Utilisateurs parcourant actuellement ce forum : Aucun

 
Poster un nouveau sujet
 Sujets   Réponses   Auteur   Vus   Derniers Messages 
Pas de nouveaux messages  A toute Nouvelle constitution, Nouveau règlement (Par ici)
10 R30 735 Mar 23 Déc - 19:33 (2008)
edouard Voir le dernier message
Pas de nouveaux messages [TOURNOI] COUPE G4.5 le 21 décembre 2008 à PARIS 7ème
à gagner : Wii, Nintendo DSi, jeux SSBB/DP/Platine/Ranger 2, figurines, boosters et mangas Pokémon
0 Gauthier BOUCHET 308 Dim 7 Déc - 17:09 (2008)
Gauthier BOUCHET Voir le dernier message
Montrer les sujets depuis:  
Pokémon Ultra Index du Forum -> Pokémon Ultra V3 -> Royaume Ultra Toutes les heures sont au format GMT + 2 Heures
Poster un nouveau sujet
Page 1 sur 1
Sauter vers:  
Nouveaux messages Nouveaux messages    Pas de nouveaux messages Pas de nouveaux messages    Annonce Annonce
Nouveaux messages [ Populaire ] Nouveaux messages [ Populaire ]    Pas de nouveaux messages [ Populaire ] Pas de nouveaux messages [ Populaire ]    Post-it Post-it
Nouveaux messages [ Verrouillé ]    Pas de nouveaux messages [ Verrouillé ]
Surveiller les nouveaux sujets de ce forum

Portail | Index | créer forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
phpBB
Template by BMan1
Traduction par : phpBB-fr.com