begin process at 2010 03 18 14:23:36
  Trouver un code source :
 
dans
 
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é :12 706 / 371

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

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) CLASSE DE TRADUCTION SIMPLIFIÉE/ TRADUCTION AUTOMATIQUE D'UN... par mafieulemouton
Source avec Zip Source avec une capture AYOUBPAD2009 par ayoube2009
Source avec Zip Source avec une capture PILOTAGE D'AFFICHEURS LCD SUR PORT SÉRIE OU USB par mays
Source avec Zip Source avec une capture TRAITEMENT DE TEXTE RTF par zozo14
FORMATAGE D'UNE CELLULE EXCEL VIA UNE SYNTAXE HTML par 8Tnerolf8

 Sources en rapport avec celle ci

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
Source avec Zip Source avec une capture CHIFFRES EN LETTRES 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 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 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 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

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

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 : 1,856 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales