Cómo convertir números arábigos a cantidades de RMB en mayúsculas en lenguaje VB
Private Sub Text2_Change() 'De minúsculas a mayúsculas
Dim i como entero
Dim j como entero
Dim myint como entero
Dim myint1 como entero
Dim mydoub como doble
Dim mystr comoDim mystr1 como cadena
Dim mystr2 como cadena
Dim mystr3 como cadena
Dim mystr4 como cadena
Dim money mientras
Dim money1 como entero
Dim money2 mientras
mystr = Text2.Text
myint = InStr(mystr, ".")
Si myint = 0 Entonces
mystr = Text2.Text
Else
mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)