Questione : La valuta dei soldi tradotta in parola per controlla VB6 e .NET 2005

Stiamo cercando una soluzione o una funzione o stiamo dirigendo dove possiamo tradurre un importo del controllo delle valute in parole.  Per esempio: il

$10,953.91 nelle lettere/parole, sarebbe: i diecimila novecento cinquantatre del

con il ricerca di 91/100

We

What dello Spagnolo ed inglese… sono il migliore senso nel fare questo?
class= del

Risposta : La valuta dei soldi tradotta in parola per controlla VB6 e .NET 2005

il codice è corretto….mettere il namespace iittially e dopo il sommergibile dell'estremità della vostra copia di evento del laod della forma esso ed incollarlo… che funziona
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 fiochi come stringa = “, una, due, tre, quattro, cinque, sei, sette, otto, nove, dieci, undici, dodici, tredici, quattordici, quindici, sedici, diciassette, diciotto, diciannove„
    Oscurare ones () come stringa = oneWords.Split (“, ")
    Oscurare i tenWords come stringa = “, dieci, venti, trenta, quaranta, cinquanta, sessanta, settanta, ottanta, novanta„
    Oscurare i dieci () come stringa = tenWords.Split (“, ")

    Convertito riservato di funzione (ByVal ha immesso come stringa) come stringa
        input = immesso. Sostituire (“$„, ""). Sostituire („, “, "")
        Se immesso. Lunghezza > 12 allora ritorno “errore nel valore dell'input„
        Uscita fioca, dollari, laminatoi, thous, hunds, centesimi come stringa
        Laminatoio fioco, thou, hund, centesimo come numero intero
        Se input.IndexOf (“.") > 0 allora
            dollari = immesso. Sottostringa (0, input.IndexOf (“.")) .PadLeft (9, “0„)
            centesimi = immesso. Sottostringa (input.IndexOf (“.") + 1).PadRight (2, “0„)
            Se centesimi = “00„ allora centesimi = “0„
        Altrimenti
            dollari = input.PadLeft (9, “0„): centesimi = “0„
        Concluder se
        laminatoio = l$tipo C (dollari. Sottostringa (0, 3), numero intero): laminatoi = convertHundreds (laminatoio)
        thou = l$tipo C (dollari. Sottostringa (3, 3), numero intero): thous = convertHundreds (thou)
        hund = l$tipo C (dollari. Sottostringa (6, 3), numero intero): hunds = convertHundreds (hund)
        centesimo = l$tipo C (centesimi, numero intero): centesimi = convertHundreds (centesimo)
        uscita = IIf (laminatoi. Disposizione = "", "", laminatoi + “milione ")
        uscita += IIf (thous. Disposizione = "", "", thous + “mille ")
        uscita += IIf (hunds. Disposizione = "", "", hunds)
        uscita = IIf (uscita. Lunghezza = 0, “dollari zero e„, uscita + “dollari e ")
        uscita = IIf (uscita = “un dollaro e„, “un dollaro e„, uscita)
        uscita += IIf (centesimi = "", “zero„, centesimi) +„ centesimi "
        Uscita di ritorno
    Funzione di conclusione

    convertHundreds riservati di funzione (ByVal immesso come numero intero) come stringa
        Uscita fioca come stringa
        Se immesso  <>
Altre soluzioni  
 
programming4us programming4us