Vraag : De munt van het geld die in woord voor controle in VB6 wordt vertaald en .NET 2005

Wij zoeken een oplossing of een functie of verpletteren waar wij een bedrag van de muntcontrole in woorden kunnen vertalen.  Bijvoorbeeld:

$10,953.91 in brieven/woorden, zou zijn:

het Tienduizendtal Negenhonderd drieënvijftig met 91/100

We Engelse en Spaanse…

What zoekt is de beste manier in het doen van dit?

Antwoord : De munt van het geld die in woord voor controle in VB6 wordt vertaald en .NET 2005

de code is correct….zet iittially namespace en na sub van het Eind van uw exemplaar van de vorm laod gebeurtenis het en kleef het… het werkt
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

    Schemerige oneWords als Koord = „, Één, Twee, Drie, Vier, Vijf, Zes, Zeven, Acht, Negen, Tien, Elf, Twaalf, Dertien, Veertien, Vijftien, Zestien, Zeventien, Achttien, Negentien“
    Schemerige degenen () als Koord = oneWords.Split („,“)
    Schemerige tenWords als Koord = „, Tien, Twintig, Dertig, Veertig, Vijftig, Zestig, Zeventig, Tachtig, Negentig“
    Schemerige tientallen () als Koord = tenWords.Split („,“)

    De privé Functie zet (ByVal die als Koord wordt ingevoerd) om als Koord
        input = ingevoerd. Vervang („$“, ""). Vervang (“, „, "")
        Indien ingevoerd. De lengte > 12 keert dan „Fout in inputwaarde“ terug
        Schemerige output, dollars, molens, thous, hunds, centen als Koord
        Schemerige molen, thou, hund, cent als Geheel
        Als input.IndexOf („. “) > 0 toen
            dollars = ingevoerd. Substring (0, input.IndexOf („. “)).PadLeft (9, „0“)
            centen = ingevoerd. Substring (input.IndexOf („. “) + 1) .PadRight (2, „0“)
            Als centen = „00“ toen centen = „0“
        Anders
            dollars = input.PadLeft (9, „0“): centen = „0“
        Eind als
        molen = C (dollars. Substring (0, 3), Geheel): maalt = convertHundreds (molen)
        thou = C (dollars. Substring (3, 3), Geheel): thous = convertHundreds (thou)
        hund = C (dollars. Substring (6, 3), Geheel): hunds = convertHundreds (hund)
        cent = C (centen, Geheel): centen = convertHundreds (cent)
        output = IIf (molens. Versiering = "", "", molens + „Miljoen“)
        output += thous IIf (. Versiering = thous "", "", + „Duizend“)
        output += IIf (hunds. Versiering = "", "", hunds)
        output = IIf (output. Lengte = 0, „Nul Dollars en“, output + „Dollars en“)
        output = IIf (output = „Dollars Één en“, „Één Dollar en“, output)
        output += IIf (centen = "", „Nul“, centen) +“ Centen "
        De output van de terugkeer
    De Functie van het eind

    Privé Functie convertHundreds (ByVal die als Geheel wordt ingevoerd) als Koord
        Schemerige output als Koord
        Indien ingevoerd  <>
Andere oplossingen  
 
programming4us programming4us