begin process at 2012 02 12 00:07:44
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Texte

 > TRANSFORMER DES CHIFFRES EN NOMBRE ROMAIN

TRANSFORMER DES CHIFFRES EN NOMBRE ROMAIN


 Information sur la source

Note :
8,83 / 10 - par 6 personnes
8,83 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Classé sous :conversion, chiffre, arabes, romains Niveau :Initié Date de création :15/05/1999 Vu / téléchargé :15 032 / 394
Auteur : Nix

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

Comment transformer un Nombre en Chiffre Romain ?

Mettez Cette Fonction dans votre Module :

Source

  • 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)
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)


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE...
IMPRIMER LE CONTENU D'UN RICHTEXTBOX
Source avec Zip Source avec une capture TESTEUR DE REGEX (REGULAR EXPRESSIONS)
Source avec Zip Source avec une capture FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAG...
COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE
Toutes les sources de Nix

 Sources de la même categorie

Source avec Zip Source avec une capture MASQUE DE SAISIE NUMÉRIQUE par acive
Source avec Zip Source .NET (Dotnet) COMPTEUR DE NOMBRE DE MOTS DANS UN TEXTE par alpha5
Source avec Zip Source avec une capture HM - BLOCNOTE par hassenmajor
Source .NET (Dotnet) [VB.NET] CLASS DE COLORATION SYNTAXIQUE "ON THE FLY" par huzima
Source avec Zip Source avec une capture PERSONNALISEZ VOS BOÎTES DE MESSAGE (X)HTML par medjahedScript
Toutes les sources de la catégorie Texte

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) CHIFFRES ROMAINS par alpha5
Source .NET (Dotnet) CONVERSION D'UN CHIFFRE EN LETTRE par Berurier
Source avec Zip Source avec une capture CONVERTIR DES CHIFFRES ROMAINS EN CHIFFRES ARABES par Cacophrene
Source avec Zip ECRIRE DES NOMBRES EN TOUTES LETTRES (MULTI-LANGUAGE) par santiago69
Source avec Zip Source avec une capture TRADUCTEUR VB6.VBP EN VB5.VBP par joro

Commentaires et avis

Commentaire de CORBnet le 09/03/2007 22:35:49

sympa...

Commentaire de psycho le 27/10/2007 18:45:37

Pour un code aussi simple, il est tout de meme regrettable de voir un manque d'optimisation ainsi qu'un niveau "initié". Alors je vais mettre 6 (je trouve la note actuelle loin d'etre representative vis a vis de ce qui suit) et voici mes remarques.

* Nb = Nb - (Int(Nb / 10) * 10), ce n'est rien d'autre que le modulo ecrit en plus compliqué. On peut voir 3 operations "lourdes" alors qu'une seule aurait suffi. Je ne vois pas le point de complique la lecture.

*ElseIf Nb >= 4 And Nb < 5 Then , je ne sais pas si les tests sont optimise comme en C, mais puisque Nb est compris entre 1 et 10, avec les tests précédents, si Nb est >=4 alors Nb vaut forcement 4.

*Int((Nb - 5) / 1), je crois que tout le monde peut diviser par 1...

Pas mal, mais dommage...
6/10 donc.

A bientot

Commentaire de psycho le 27/10/2007 18:49:08 6/10

J'avais oublié la note...

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Conversion de chiffre vers les lettres [ par malcom78 ] Bonjour à tous, J'ai un projet pour ceux qui veulent se prendre un peu la tête en vba , Mais aussi je prends la tete dessus ne vous inquiètez pas mais conversion de texte en chiffre [ par ffaabbss ] bonjour,je vais etre bref c'est plus simple. J'aimerai faire ceci:dim variable as stringvariable = 56ab3cText5 = tabS1(Mid(variable, 5, 1))ceci pour v Ascii conversion chiffre <=> lettre [ par deetsrider ] Je voudrais rajouter +1 au code ascii de chaque lettre tapée dans un textbox puis le reinscrire dans l autre textbox avec son nouveau code ..."a" devi conversion chiffres du format texte en format chiffre [ par vicma ] Dans fichier .csv convertit en format .xls, les cellules reste en format texte.Je souhaiterais faire un macro pour convertir ma cellule active en chif conversion de chiffre en lettre [ par zober ] Salut tt le mondeVoila, je programme sous access une application pour gerer les ventes de produits d'une soci&#233;t&#233;. Je veux convertir dans l'e conversion plutot difficile [ par vinceRR ] Bonjour a tous , Voila , j'aurai besoin d'un procédé simple , un programme serait encore mieux pour pouvoir convertir un chiffre décimal en hexadécima Probleme de conversion [ par mrsebaa ] Hello! J'ai la fontion de conversion d'un chiffre en lettre. Je voudrais savoir comment convertir un chiffre d'une Function DataReport dans un label. conversion chiffre en lettre [ par aakpa ] Bonjour,Dans une application VB6, je voudrais avois la possibilité de convertir automatiquement les nombres saisis en lettre. Exemple 18 en dix huit.M CONVERSION CHIFFRE LETTRE MONNAIE LIVRE PENCE [ par florianelle ] CONVERSION CHIFFRE LETTRE MONNAIE LIVRE PENCE [ par florianelle ] Bonsoirest ce que quelqu'un aurait dans un petit coin de son ordi une macro permettant de convertir un chiffre en lettres avec pour monnaie la livre,


Nos sponsors


Sondage...

Comparez les prix


Archos 7 home tablet - 2 Go
Entre 149€ et 159€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Renewable Energy is Within Reach
Photo haleakalea 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 7,114 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)