Encontrar coma (,) en cadena de texto y borrarla
Publicado por Omar (56 intervenciones) el 05/03/2009 20:25:38
Que tal foro.
Tengo una funcion para convertir numeros a letras, pero le aplico el formatnumber para que los valores me aparezcan bien y a partir de ahi no me da bien el valor con letra, el detalle es la coma. Alguien me puede decir como ubicarla y despues eliminarla ?
Si tengo yo 250000.00 me pone el texto bien, pero si tengo 250,000.00 ahi viene el problema.
Este es mi codigo:
Alguien me puede dar una ayudita ?
De antemano, gracias.
Tengo una funcion para convertir numeros a letras, pero le aplico el formatnumber para que los valores me aparezcan bien y a partir de ahi no me da bien el valor con letra, el detalle es la coma. Alguien me puede decir como ubicarla y despues eliminarla ?
Si tengo yo 250000.00 me pone el texto bien, pero si tengo 250,000.00 ahi viene el problema.
Este es mi codigo:
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
Function SumarImporte()
Dim I As Currency
Dim Contador As Currency
'*****VARIABLES DE VALORES*****
Dim Subt As Currency
Dim Iva As Currency
Dim Tot As Currency
Dim CTot() As String
For I = 1 To MSFGridReg.Rows - 1
Contador = Contador + MSFGridReg.TextMatrix(I, 4)
Next I
Subt = ContadorTXTSUB.Text = FormatNumber(Subt, 2)
Iva = Subt * 0.15
TXTIVA.Text = FormatNumber(Iva, 2)
Tot = Subt + Iva
TXTTOT.Text = FormatNumber(Tot, 2)
CTot = Split(TXTTOT.Text, Mid$(Format$(1.1, "#.#"), 2, 1))
With tNum2Text
TXTLETRA.Text = "***" + " " + .Numero2Letra(CTot(0), , , , , Masculino, Masculino) + " " + TipoMoneda + " " + CTot(1) + "/" + "100" + " " + "***"
End With
End Function
Alguien me puede dar una ayudita ?
De antemano, gracias.
Valora esta pregunta
0