Algo need help

Question

Salu a tous
J ai un programmme à réaliser , mais je ne sais pas trop par ou commencer ...

Je veut que ce programme transforme des nombres en lettres ... que la conversion se fasse automatiquement quoi !!!

Si quelqu un voit par ou commencer ... je v dev en visual.net

teebo · Answer

Salut,Autrement dit:2=> deux23=> vingt trois ou deux trois?Qui va en mer pour son plaisir, irait en enfer pour ses vacances

matt · Answer

vi exact je n est pas précisé!!!

Ben 23 => vingt trois !!!

Comme une machine qui écrit sur les cheques !!!
On ta pe le nmbre et sa ecrit sur le cheque en tt lettres ...

Merci teebo
si tu as une idée ...

blux · Answer

Salut,

je te file brut de fonderie une fonction excel en VBA qui traduit un montant (raisonnable) en lettres...

Function Chiffres_en_Lettres(Montant)
    Résultat = ""
    Francs = Fix(Montant)
    Milliers = Fix(Francs / 1000)
    If Milliers > 0 Then
        If Milliers = 1 Then
           LibMilliers = " mille"
        Else
            LibMilliers = Cent_Mille(Milliers) & " mille"
        End If
        Résultat = LibMilliers
    End If
    Centaines = Francs - (Milliers * 1000)
    LibFrancs = Cent_Mille(Centaines)
    Résultat = Résultat & LibFrancs
    If Résultat <> "" Then
        If Francs = 1 Then
            Résultat = Résultat & " euro"
        Else
            Résultat = Résultat & " euros"
        End If
    End If
    Centimes = Fix((Montant + 0.005 - Fix(Montant)) * 100)
    LibCentimes = Un_Cent(Centimes)
    If LibCentimes <> "" Then
        Résultat = Résultat & LibCentimes
        If LibCentimes = " un" Then
            Résultat = Résultat & " centime"
        Else
            Résultat = Résultat & " centimes"
        End If
    End If
    Chiffres_en_Lettres = Résultat
End Function

Function Un_Cent(Nombre)
    Dim U0a20(19)
    U0a20(0) = "": U0a20(1) = " un": U0a20(2) = " deux": U0a20(3) = " trois"
    U0a20(4) = " quatre": U0a20(5) = " cinq": U0a20(6) = " six": U0a20(7) = " sept"
    U0a20(8) = " huit": U0a20(9) = " neuf": U0a20(10) = " dix": U0a20(11) = " onze"
    U0a20(12) = " douze": U0a20(13) = " treize": U0a20(14) = " quatorze": U0a20(15) = " quinze"
    U0a20(16) = " seize": U0a20(17) = " dix-sept": U0a20(18) = " dix-huit": U0a20(19) = " dix-neuf"
    Dim D2a9(9)
    D2a9(0) = "": D2a9(1) = "": D2a9(2) = " vingt": D2a9(3) = " trente": D2a9(4) = " quarante"
    D2a9(5) = " cinquante": D2a9(6) = " soixante": D2a9(7) = " soixante"
    D2a9(8) = " quatre-vingt": D2a9(9) = " quatre-vingt"
    If Nombre < 20 Then
        Un_Cent = U0a20(Nombre)
        Exit Function
    End If
    Dizaines = Fix(Nombre / 10)
    Un_Cent = D2a9(Dizaines)
    If Nombre < 60 Then
        Unités = Nombre Mod 10
    Else
        Unités = Nombre Mod 20
    End If
    If (Unités = 1 Or Unités = 11) And Dizaines < 8 Then Un_Cent = Un_Cent & " et"
    Un_Cent = Un_Cent & U0a20(Unités)
End Function

Function Cent_Mille(Nombre)
    Centaines = Fix(Nombre / 100)
    Dizaines = Nombre - (Centaines * 100)
    If Centaines > 0 Then
        If Centaines = 1 Then
            Cent_Mille = " cent"
        Else
            Cent_Mille = Un_Cent(Centaines) & " cent"
            If Dizaines = 0 Then Cent_Mille = Cent_Mille & "s"
        End If
    End If
    Cent_Mille = Cent_Mille & Un_Cent(Dizaines)
End Function

Tu y trouveras sûrement de bonnes idées ;-)))

A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

matt · Answer

merci pour ton aide c coolsa devrai le faire avec sa

Algo need help

4 réponses

Discussions similaires

Newsletters