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.