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)
Stade 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 Post-it : Règles
0 R30 319 Lun 1 Sep - 11:21 (2008)
R30 Voir le dernier message
Pas de nouveaux messages  Le Stade Ultra
5 R30 632 Dim 28 Sep - 11:10 (2008)
kidcell Voir le dernier message
Montrer les sujets depuis:  
Pokémon Ultra Index du Forum -> Pokémon Ultra V3 -> Stade 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