Qwerty
02 de Junio del 2004

Tengo la siguiente Funcion que realiza una suma de cantidades con decimales, pero el resultado siempre me da un numero entero, 驴qu茅 pasa? AYUDENME!

Function sumatotal() As Single
Dim s1!, s2!, s3!, s4!, s5!, s6!, s7!, s8!, s9!, s10!, st!
s1! = CSng(Val(I1.Text))
s2! = CSng(Val(I2.Text))
s3! = CSng(Val(I3.Text))
s4! = CSng(Val(I4.Text))
s5! = CSng(Val(I5.Text))
s6! = CSng(Val(I6.Text))
s7! = CSng(Val(I7.Text))
s8! = CSng(Val(I8.Text))
s9! = CSng(Val(I9.Text))
s10! = CSng(Val(I10.Text))
st! = s1! + s2! + s3! + s4! + s5! + s6! + s7! + s8! + s9! + s10!
Total.Text = Format(st!, "#,##0.00")
End Function

Si las cantidades son 3,40 + 1,10, + ... el resultado = 4,00 隆no me suma los decimales!

peris
02 de Junio del 2004

porque no lo pones como double?

Yuval
02 de Junio del 2004

Me podriais decir que hace la funcion csng?
GRACIAS!!!!

Yuval
02 de Junio del 2004

GRACIAS!!! ya me conteste.
Devuelve una expresi贸n que se convirti贸 en Variant del subtipo Single.