3. Cómo ajustar la cadena introducida a formato numérico: "#,##"
Páginas: [1]   Ir Abajo
« anterior próximo »

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

  • 0 Respuestas
  • 2060 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5635
  • Actividad:
    56.67%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

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

  • en: Julio 26, 2010, 12:38:04 pm
Código: Visual Basic
  1. Private Sub Command1_Click()
  2. 'Para convertir a formato "#,##"
  3. 'Primero: Valida si han introducido "." en lugar de ","
  4. 'Segundo: Verifica la posición de ","
  5. 'Si han introducido más de tres decimales no lo acepta
  6. VCadena1 = Text1.Text
  7. Cero = "0"
  8. VBúsqueda = ","
  9. 'Reemplazo "." por ","
  10. VReemplazo1 = Replace(VCadena1, ".", ",")
  11. Text1.Text = VReemplazo1
  12. VCadena1 = VReemplazo1
  13. 'Si la "," está en primer caracter a la izquierda,
  14. 'que faltan dos ceros
  15. If Right(VCadena1, 1) = "," Then
  16. VReemplazo2 = VCadena1 + Cero + Cero
  17. Text1.Text = VReemplazo2
  18. Else
  19. 'Si la "," está en segundo caracter a la izquierda,
  20. 'que falta un cero
  21. If Left(Right(VCadena1, 2), 1) = "," Then
  22. VReemplazo2 = VCadena1 + Cero
  23. Text1.Text = VReemplazo2
  24. Else
  25. 'Si la "," está en tercer caracter a la izquierda
  26. If Left(Right(VCadena1, 3), 1) = "," Then
  27. VReemplazo2 = VCadena1
  28. Text1.Text = VReemplazo2
  29. Else
  30. 'Si la "," está después del tercer caracter a la izquierda
  31. MsgBox "De eso nada... ponlo bien", vbOKOnly
  32. Text1.Text = ""
  33. End If
  34. End If
  35. End If
  36. End Sub
« Última modificación: Mayo 12, 2014, 03:15:40 pm por Expermicid »
En línea

Páginas: [1]   Ir Arriba
« anterior próximo »
 

Manual de como bloquear CTRL+ALT+SUP, ALT+TAB, Y OTROS con Visual Basic en WinXP

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 2771 		Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como Imprimir en tamaño especial en Impresoras Matriciales en XP

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 2453 		Último mensaje Julio 26, 2010, 11:14:36 am
por ANTRAX
Como impedir cambiar el tamaño de una ventana redimensionable

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 2467 		Último mensaje Julio 26, 2010, 11:33:48 am
por ANTRAX
Como pasar de un texto a otro usando Enter

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 2430 		Último mensaje Julio 26, 2010, 10:28:10 am
por ANTRAX
Como ingresar solo numeros en un campo de texto

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 2234 		Último mensaje Julio 26, 2010, 10:24:49 am
por ANTRAX