Marcos
15 de Marzo del 2003

Buenas, necesito convertir una cadena con tres o más decimales a otra con sólo dos decimales. No puedo usar bien la función "FORMAT", tal vez por no saberlo hacer correctamente. Creo que con "TOWORDS" o "TOTEXT" (funciones) también se puede hacer, pero no se cómo habilitarlas en mi versión de Visual Basic 5.
Muchas gracias.

angeles
15 de Marzo del 2003

cadena=format(cadena,".00")
Esto fuerza sólo a dos decimales, pero te recuerdo que el separador de decimales es la coma, así que si tienes un punto deberás cambiarlo o poner:
Dim pos As Integer
pos = InStr(Text1.Text, ".")
If pos <> 0 Then
Text1.Text = Mid(Text1.Text, 1, pos - 1) _
& "," & Mid(Text1.Text, pos + 1)

End If
Text1.Text = Format(Text1.Text, ".00")

marcos
15 de Marzo del 2003

MUCHAS GRACIAAAAAAAAAAAAAS!!!!
Lo de las comas en los decimales, lo tenía para estudiar en unos días, en el proyecto que estoy haciendo, así que me sirve mucho.
Gracias otra vez.