Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 09 05:21:46

ESSAYEZ WINDOWS 7 GRATUITEMENT DèS DEMAIN par fabien

LUCENE - IGNORER LES ACCENTS LORS DE L'INDEXATION ET LA RECHERCHE | IGNORE DIACRITICS par cyril

MESH OBJECTS BROWSER - MOB 1.0 SUR CODEPLEX par redo

MICROSOFT TAG par khamlon

[LINQTOSQL] REQUêTES ASYNCHRONES SIMULTANéES par NeuroCypher

RE : DATE DE CRéATION D'UN FICHIER par Renfield

RE : MACRO WORD RECHERCHE DE PUCE par Orohena

RE : RECHERCHE D'UNE VALEUR DANS EXCEL EN VBS par SAFENil

RE : AFFICHER DYNAMIQUEMENT LA VALEUR DE LA COULEUR POINTéE PAR LA SOURIS SUR UNE IMAGE par Orohena

RE : "SI" AVEC PLUS PETIT/PLUS GRAND par weginale

+ de logiciels à télécharger

1 330 603 membres
67 nouveaux aujourd'hui
14 644 membres club

Trouver une ressource

Trouvez une ressource parmi 39 262 codes, 1 223 252 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONVERTION CHIFFRE ROMAIN&LT;&GT;DECIMAL

Information sur la source

Catégorie :API Niveau : Débutant Date de création : 23/07/2003 Date de mise à jour : 23/07/2003 08:45:50 Vu / téléchargé: 2 888 / 177

Auteur : metalcoder

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Convertit un nombre romain en decimal

@+

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

CnvRomain.exe24 576 octets
CnvRomain.frm 5 093 octets
CnvRomain.vbp 628 octets
CnvRomain.vbw 45 octets

Télécharger le zip

Sources du même auteur

PLANNING HORAIRE POUR NOUNOU

LOGICIEL DE FACTURATION EN BOULANGERIE

MIEUX COMPRENDRE LA METHODE ADO

CHANGER L'IMPRIMANTE PAR DEFAUT

EXEMPLE D'ETAT POUR REMPLACER LE DATAREPORT OU CRYSTAL REPOR...

Toutes les sources de metalcoder

Sources de la même categorie

UTILISER L'API DE GOOGLE (CALENDRIER) SOUS MS-DOS par Any_Problem_Have_Solution

WIFI MANAGÉ (WLANAPI) EN VB.NET par fadelovesky

GÉNÉRER UN DOCUMENT RTF EN VBA/VB AMÉLIORÉ par Triboutmatthieu

GÉNÉRER UN DOCUMENT RTF EN VBA/VB par Orohena

MENU POPUP AVEC IMAGE par zork74

Toutes les sources de la catégorie API

Commentaires et avis

Commentaire de Urgo le 23/07/2003 09:01:56

Le truc bien maintenant serait de faire l'inverse :)

Commentaire de Urgo le 23/07/2003 09:02:03

Le truc bien maintenant serait de faire l'inverse :)

Commentaire de metalcoder le 23/07/2003 09:21:54

j'avais fait cette source avec un gars pour son BTS je crois. j'ai pas le temps mais si j'en trouve je rajouterai la fonction.

@+

Commentaire de JoePatent le 23/07/2003 15:27:44

Il manque de la validation. CCCCCCCC = 800 selon ce programme.
Il serait bien d'indiquer qu'il ne s'agit pas d'un chiffre romain. Mais sinon c'est bien. Je suis un peu décu aussi que la fonction inverse n'existe pas... mais bon ! :-)

Commentaire de philoo91 le 05/08/2003 14:10:26

Kikou la bande,
Réjouissez vous v'la t'y pas qu'y a l'inverse : (Limité à 3999)

Public Function Arabe_To_Romain(ByVal Value As Integer) As String
  Dim Roms    As String
  Dim RetVal  As String

  Dim I       As Integer
  Dim K       As Integer

  Roms = "IVXLCDM"

  RetVal = ""
  If Value < 4000 Then
    For I = 1 To Len(Text1)
      K = 2 * (Len(Text1) - I) + 1
      Select Case Mid(Text1, I, 1)
        Case "1": RetVal = RetVal & Mid(Roms, K, 1)
        Case "2": RetVal = RetVal & Mid(Roms, K, 1) & Mid(Roms, K, 1)
        Case "3": RetVal = RetVal & Mid(Roms, K, 1) & Mid(Roms, K, 1) & Mid(Roms, K, 1)
        Case "4": RetVal = RetVal & Mid(Roms, K, 1) & Mid(Roms, K + 1, 1)
        Case "5": RetVal = RetVal & Mid(Roms, K + 1, 1)
        Case "6": RetVal = RetVal & Mid(Roms, K + 1, 1) & Mid(Roms, K, 1)
        Case "7": RetVal = RetVal & Mid(Roms, K + 1, 1) & Mid(Roms, K, 1) & Mid(Roms, K, 1)
        Case "8": RetVal = RetVal & Mid(Roms, K + 1, 1) & Mid(Roms, K, 1) & Mid(Roms, K, 1) & Mid(Roms, K, 1)
        Case "9": RetVal = RetVal & Mid(Roms, K, 1) & Mid(Roms, K + 2, 1)
      End Select
    Next I
  End If

  Arabe_To_Romain = RetVal

End Function

Commentaire de JoePatent le 05/08/2003 19:50:12

Salut Philoo,

J'ai refais une source qui incorpore maintenant les deux conversions. Je me suis servit de la récursive qui permet de faire le tout en quelques lignes...

Il me manque de l'info pour la validation mais le reste fonctionne bien... Si jamais tu veux y jeter un coup d'oeil.