FAQ's de VB6

[jorevale]

Pregunta: ¿Cómo ajustar la cadena introducida a formato numérico: "#,##"?

Respuesta:


Private Sub Command1_Click()
'Para convertir a formato "#,##"
'Primero: Valida si han introducido "." en lugar de ","
'Segundo: Verifica la posición de ","
'Si han introducido más de tres decimales no lo acepta
VCadena1 = Text1.Text
Cero = "0"
VBúsqueda = ","
'Reemplazo "." por ","
VReemplazo1 = Replace(VCadena1, ".", ",")
Text1.Text = VReemplazo1
VCadena1 = VReemplazo1
'Si la "," está en primer caracter a la izquierda,
'que faltan dos ceros
If Right(VCadena1, 1) = "," Then
VReemplazo2 = VCadena1 + Cero + Cero
Text1.Text = VReemplazo2
Else
'Si la "," está en segundo caracter a la izquierda,
'que falta un cero
If Left(Right(VCadena1, 2), 1) = "," Then
VReemplazo2 = VCadena1 + Cero
Text1.Text = VReemplazo2
Else
'Si la "," está en tercer caracter a la izquierda
If Left(Right(VCadena1, 3), 1) = "," Then
VReemplazo2 = VCadena1
Text1.Text = VReemplazo2
Else
'Si la "," está después del tercer caracter a la izquierda
MsgBox "De eso nada... ponlo bien", vbOKOnly
Text1.Text = ""
End If
End If
End If
End Sub