Marcos
12 de Octubre del 2004

Como puedo hacer para que en un label o un textbox al aparecer el resultado de una formula matemática lo haga solo con 4, 3 o2 cifras decimales

sereno
12 de Octubre del 2004

solo cambia la propiedad format de tu text o label, asi como el formato de tu resultado con la funcion format

Marcos
12 de Octubre del 2004

Eso ya lo habia intentado pero no me funciona, no se si tendré que hacer algo especial.

Bartolom
12 de Octubre del 2004

Debes hacer lo siguiente. Supongamos que el resultado aparece en tu TextBox durante el evento Click de un botón. entonces, dentro de ese evento debes trabajar el resultado con una variable de tipo Single (para poder trabajar con decimales) y asignarle formato según número de decimales. Sería algo así:
(Este ejemplo es un cálculo simple, tú lo adaptas a tu aplicación). Este ejemplo multiplica las variables a*b y guarda el resultado en c (las tres variables de tipo Single), luego el valor de c, ya formateado con 3 decimales, lo escribe en el text1.

Private Sub Command1_Click()
Dim a, b, c As Single
a = 2.2
b = 2.34
c = Format(a * b, "#,##0.000")
Text1 = c
End Sub

Si quieres con cuantro decimales, entonces, en vez de
c = Format(a * b, "#,##0.000")

escribes,

c = Format(a * b, "#,##0.0000")

Saludos!
Bartolom
Chile