Les Snippets

Connexion

Obtenir le cardinal (anglais) d'un nombre

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 27/02/2007 09:57:40 et initié par Renfield [Liste]
Date de mise à jour : 27/02/2007 09:59:05
Vue : 2464
Catégorie(s) : Maths, Algorithme
Langages dispo pour ce code :
- VB6, VBA



Langage : VB6 , VBA
Date ajout : 27/02/2007
Posté par Renfield [Liste]
DateMAJ : 27/02/2007

Private Function GetCardinal(ByVal vnValue As Long) As String
   If vnValue >= 11 And vnValue <= 13 Then
       GetCardinal = "th"
   Else
       Select Case (vnValue Mod 10)
           Case 1
               GetCardinal = "st"
           Case 2
               GetCardinal = "nd"
           Case 3
               GetCardinal = "rd"
           Case Else
               GetCardinal = "th"
       End Select
   End If
End Function 
Remarque :
Permet d'obtenir :
8th / 9th / 10th / 11th / 12th / 13th / 14th / 15th / 16th / 17th / 18th / 19th / 20th / 21st / 22nd / ...

Snippets en rapport avec : Nombre, Cardinal, Th



Codes sources en rapport avec : Nombre, Cardinal, Th

{Visual Basic, VB6, VB.NET, VB 2005} CHIFFRE EN LETTRE FONCTION
Une petite fonction simlpe pour transformer un chiffre en lettre. Exemple: "15193" >> dix ...

{PHP} COMPTER LE NOMBRE DE FICHIERS DANS UN DOSSIER
Après pas mal de recherche, je n'ai pas réellement trouvé un code qui me convenait. J'ai donc trouvé...

{Delphi} DÉCOUVRIR LE NOMBRE MYSTÈRE
Petit jeu tout simple développé par mes soins, il faut découvrir un nombre entier compris entre 1 et...

{Visual Basic, VB6, VB.NET, VB 2005} VACHE TAUREAU BY CHIHAOUI
Salut ! bref, un jeu populaire Vache Taureau! l'Ordi génère un nombre aléatoire et l'utilisateur ...

{C / C++ / C++.NET} MANIPULATION DE NOMBRE COMPLEXE
ce programme permet de faire les operation suivante sur des nombres complexes: - Multiplication d'u...

{Javascript / DHTML} CONVERSION DES NOMBRES EN LETTRE
Permet de convertir des nombres(chiffres) en leur équivalent en lettre (ex: 1=un). Respecte l'accord...

{Javascript / DHTML} CARDINAUX ET ORDINAUX
Traduire les nombres en toutes lettres. S'il y a des erreurs, merci de me le faire savoir..............

{PHP} COMPTEUR DE VISITES AVEC IMAGE PNG
Bonjour, j'ai créé un compteur de visite, dont vous pouvez changer les couleur du fond et du texte...

{SQL} COUNT DU NOMBRE DE LIGNES D'UNE TABLE INSTANTANÉ SQL SERVER 6.5 ET 2000
Cette requête permet de lister les tables utilisateurs ainsi que le nombre de lignes de chaque table...

{Visual Basic, VB6, VB.NET, VB 2005} CLASSE QUI PERMET DE CONVERTIR UN NOMBRE EN LETTRES
Ce code est celui d'une classe permettant de réaliser de la convertion d'une valeur numérique en le...