BUENAS, SIENTO MOLESTAR NUEVAMENTE. HE ESTADO BUSCANDO POR EL FOR Y NO ENCUENTRO.
COMO VEIS, EL CODIGO MUESTRA UNA SUMA, PERO EL RESULTADO DE DICHA SUMA ME LO REDONDEA, Y ESTE PROGRAMA ES PARA CALCULAR NOMINAS Y PAGOS A LA SEGURIDAD SOCIAL, POR LO TANTO NO PUEDO PERMITIRME NINGUN ERROR POR LOS DECIMALES.

DEV.Text = Val(DCC.Text) + Val(dd.Text) + Val(fp.Text) + Val(IRPF.Text)

MUCHAS GRACIAS

Ke onda bro, bueno creo lo ke buscas es esto, espero te sirva.....

Código:

DEV.Text = Format(DEV.Text, "#.##")

Bueno pues la funcion de formato, en tu caso solo puse dos deciamales, lo ke esta indicado al final asi...."#.##" esto indica ke habra dos decimales despues del punto si tu kieres poner mas basta con agregar mas simbolos #... digamos kieres 4 decimales serias asi....

Código:

DEV.Text = Format(DEV.Text, "#.####")

espero te haya ayudado ciao

Lo siento amigo, pero esa solucion que me has dado no se pork no me funciona, a lo mejor soy yo k lo estoy poniendo mal, pero no lo creo.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'SUMA LO QUE COTIZA Y NO COTIZA, PONIENDO EL RESULTADO EN EL DEVENGADO

Format(DEV.Text #.####) = Val(CYT.Text) + Val(NCNT.Text))
Dim a As Integer
Dim b As Integer
a = CYT.Text
b = NCNT.Text
DEV.Text = a + b

Hola, pues verás que por muchas soluciones de format que apliques, tal como lo estas poniendo no va a funcionar ya que lo primero que debes hacer es utilizar las variables dependiendo de lo que vayan a contener

Dim a As Integer
Dim b As Integer
a = CYT.Text
b = NCNT.Text
DEV.Text = a + b

Integer significa ENTERO o sea SIN DECIMALES por lo tanto si tu le quitas los decimales difícilmente format te los devuelva.

El mayor de los problemas es que muchas veces pasamos la vista por encima de los errores sin percatarnos de ellos.

Saludos

Muchas gracias, no es k no me percate de los errores, jeje, es k estoy empezando en esto y aun no se muy bien como tengo k usar las variables y las demas cositas. Perdona. Y gracias de nuevo.

coloca algo asi

Label54.Caption = CDbl(text1.text) + CDbl(text1.text)
text1.text = Format(text1.text, "#,##0.#0")