Ver Mensaje Individual
  #6 (permalink)  
Antiguo 08/03/2007, 22:29
Avatar de Shiryu_Libra
Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 3 meses
Puntos: 88
Re: Como sumar valores de un arreglo que tienen decimales???

pitman3, no se si lo estoy evaluando bien, alguna observacion??


Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
No coinciden los tipos: 'formatnumber'
/Gestion/Gestion.asp, line 276

Código:
if RS.EoF=FALSE THEN
    while RS.EOF=FALSE

'** COMO LO TENIA ANTES DE LAS CORRECCIONES:neurotico

'   matriz4(ol)=int(matriz4(ol))+RS("importe").value
'** EL NUEVO METODO:arriba:

    matriz4(ol)=formatnumber(matriz4(ol),2) + formatnumber(RS("importe").value,2)
'**LA QUE PENSE QUE ME SALVARIA DE ROMPERME LA CABEZA:si:

'   matriz4(ol)=CDbl(matriz4(ol))+RS("importe").value
    RS.movenext
wend
como ven compañeros, que opinan?

+++++++++
Sigo analizando esta funcion....
mire que en la anterior puse el mismo formatnumber, sobre el campo de la tabla, y por eso marcaba error, uno menos, pero....

if RS.EoF=FALSE THEN
while RS.EOF=FALSE
matriz4(ol)=formatnumber(matriz4(ol),2)+RS("import e").value
RS.movenext
wend
else
matriz4(ol)=0
End if

ahora no me despliega resultado alguno

# Matriculas Abonado Pagar Deudor
1 5816175 0 10000 10000
2 5816232 0 10000 10000
3 5816250 0 10000 10000

es ironico esto, un poco frustrante e incomprensible, pero pues los errores mas sencillos, apenas entre varios lo detectan

Última edición por Shiryu_Libra; 08/03/2007 a las 23:00 Razón: modificacion de la sentencia