Cuestión : La moneda del dinero traducida a la palabra para llega VB6 y .NET 2005

Estamos buscando una solución o una función o estamos encaminando donde podemos traducir una cantidad del control de divisas a palabras.  Por ejemplo: el

$10,953.91 en letras/palabras, sería: ¿los diez milésimos noveciento cincuenta y tres del

con buscar de 91/100

We el

What… son la mejor manera de hacer esto?
class= del

Respuesta : La moneda del dinero traducida a la palabra para llega VB6 y .NET 2005

el código está correcto….poner el namespace iittially y después de submarino del extremo de su copia del acontecimiento del laod de la forma él y pegarlo… que trabaja
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:

    oneWords déviles como secuencia = “, una, dos, tres, cuatro, cinco, seises, siete, ocho, nueve, diez, once, doce, trece, catorce, quince, dieciséis, diecisiete, dieciocho, diecinueve”
    Amortiguar unos () como secuencia = oneWords.Split (“, ")
    Amortiguar los tenWords como secuencia = “, diez, veinte, treinta, cuarenta, cincuenta, sesenta, setenta, ochenta, noventa”
    Amortiguar los diez () como secuencia = tenWords.Split (“, ")

    Convertido privado de la función (ByVal entró como secuencia) como secuencia
        entrada = entrado. Substituir (“$”, ""). Substituir (”, “, "")
        Si está entrado. Longitud > 12 entonces vuelta “error en valor de la entrada”
        Salida dévil, dólares, molinos, miles, hunds, centavos como secuencia
        Molino dévil, mil, hund, centavo como número entero
        Si input.IndexOf (“.") > 0 entonces
            dólares = entrado. Subsecuencia (0, input.IndexOf (“.")) .PadLeft (9, “0”)
            centavos = entrado. Subsecuencia (input.IndexOf (“.") + 1).PadRight (2, “0”)
            Si centavos = “00” entonces centavos = “0”
        
            dólares = input.PadLeft (9, “0”): centavos = “0”
        Terminar si
        molino = C (dólares. Subsecuencia (0, 3), número entero): molinos = convertHundreds (molino)
        mil = C (dólares. Subsecuencia (3, 3), número entero): miles = convertHundreds (mil)
        hund = C (dólares. Subsecuencia (6, 3), número entero): hunds = convertHundreds (hund)
        centavo = C (centavos, número entero): centavos = convertHundreds (centavo)
        salida = IIf (molinos. Ajuste = "", "", molinos + “millón ")
        salida += IIf (miles. Ajuste = "", "", miles + “mil ")
        salida += IIf (hunds. Ajuste = "", "", hunds)
        salida = IIf (salida. Longitud = 0, “dólares cero y”, salida + “dólares y ")
        salida = IIf (salida = “un dólares y”, “un dólar y”, salida)
        salida += IIf (centavos = "", “cero”, centavos) +” centavos "
        Salida de vuelta
    Función del final

    convertHundreds privados de la función (ByVal entrado como número entero) como secuencia
        Salida dévil como secuencia
        Si está entrado  <>
Otras soluciones  
 
programming4us programming4us