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)

 Bienvenue 
Bienvenue sur Pokémon Ultra
La date/heure actuelle est Lun 22 Jan - 12:00 (2018) Voir les messages sans réponses
 Forum   Sujets   Messages   Derniers Messages 
Pokémon Ultra V3
Pas de nouveaux messages
Royaume Ultra
Ici se trouve le règlement,les sondages, les idées et la vie du forum.
 
2 12 A toute Nouvelle con…
Mar 23 Déc - 19:33 (2008)
edouard Voir le dernier message
Pas de nouveaux messages
Stade Ultra
Venez faire une série de 100 victoire au stade Ultra. Le premier à réussir cet exploit ce verra remettre un précieux lot!
 
2 7 Le Stade Ultra
Dim 28 Sep - 11:10 (2008)
kidcell Voir le dernier message
Marquer tous les forums comme lus Toutes les heures sont au format GMT + 2 Heures
Qui est en ligne ?
Qui est en ligne ? Nos membres ont posté un total de 19 messages
Nous avons 224 membres enregistrés
L’utilisateur enregistré le plus récent est -Pokémon-
Il y a en tout 0 utilisateur en ligne : 0 Enregistré, 0 Invisible, 0 Invité et 0 Moteur de recherche
Le record du nombre d’utilisateurs en ligne est de 27 le Lun 25 Fév - 19:42 (2008)
 (Administrateur)  (Administrateur adjoint)  (Administrateur/Noteur)  (Boulet)  (Donneur de pokémon (Parc)/Noteur)  (Graphiste)  (Modérateur)  (Modérateur adjoint)  (Noteur)
Utilisateurs enregistrés : Aucun

Anniversaires du jour: Aucun anniversaire aujourd’hui
Anniversaires des 7 prochains jours: guguidu22150 (25), Imbatable (22), léa (472)
Connexion
Nom d’utilisateur:    Mot de passe:      Se connecter automatiquement à chaque visite    

Nouveaux messages Nouveaux messages    Pas de nouveaux messages Pas de nouveaux messages    Forum Verrouillé Forum Verrouillé

 Chat 
 
resize


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