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
  • 2055 Vistas

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

Desconectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5624
  • País: ar
  • Actividad:
    56.67%
  • 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: 2759 		Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como saber cuantos registros tiene el Recordset

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 4142 		Último mensaje Julio 26, 2010, 11:18:21 am
por ANTRAX
Como pasar de un TextBox a otro pulsando ENTER

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 13072 		Último mensaje Julio 26, 2010, 03:41:24 pm
por ANTRAX
Llamada de un formulario mediante el nombre como string

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 2079 		Último mensaje Julio 26, 2010, 04:08:58 pm
por ANTRAX
Cómo colocar una imagen de fondo ajustada a la ventana en un MDI

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 2281 		Último mensaje Julio 26, 2010, 04:17:32 pm
por ANTRAX