Arrrrgg!!, ayuda con suma de singles!

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.