Pagina 2 di 2 primaprima 1 2
Visualizzazione dei risultati da 11 a 18 su 18

Discussione: Sommare array

  1. #11
    abbbelllo! togli response.end

  2. #12
    Ricapitolo un pò
    da un form (<input type="text" ecc.) passo dei valori da un minimo di 1 ad un massimo di 16.
    La pagina che raccoglie i dati
    var_im_FATT=Request.form("imp_FATTURA")
    con Response.Write
    mi visualizza
    10,33, 10,50, 123,25, 123,43, , , , , , , , , , , ,
    poi levo le virgole
    var_im_FATT_1 = split(var_im_FATT, ", ")


    For i=0 TO UBound(var_im_FATT_1) -1
    Response.Write var_im_FATT_1(i)&"
    "
    Next
    e visualizzo
    10,33
    10,50
    123,25
    123,43

    perchè non riesco nella somma ? scusami se insisto

  3. #13
    guarda, ti posto la mia pagina.

    codice:
    <%
    RequestSimulata="10,50, 10,33, 20,47, 30,50, 40,50, 123,25, 321,25,,,,,,,,"
    var_im_FATT_1 = SPLIT(RequestSimulata, ", ")
    somma=CDbl(0)
    For i=0 TO UBound(var_im_FATT_1) -1
       Response.Write var_im_FATT_1(i) & "
    "
       importo=var_im_FATT_1(i)
       importo=replace(importo,".","")
       importo=replace(importo,",",".")
       somma=somma + CDbl(importo)
    Next
    Response.Write "maGGica somma...: " & somma & "
    "
    %>
    vedi tu...

  4. #14
    controlla anche che non sia vuoto, visto il modo barbaro che hai di passare i dati

    codice:
    ...
    importo=trim(importo)
    If importo<>"" Then
       somma=somma + CDbl(importo)
    End If
    ...

  5. #15
    anzi, siccome alla barbarie non c'è mai fine... usa

    codice:
    If IsNumeric(importo) Then 
       somma=somma + CDbl(importo)
    End If

  6. #16
    Hai proprio ragione delle barbarie, però un poco mi sento soddisfatto a dove sono arrivato (data la mia età) grazie di tutto la somma la fa però la virgola sparisce ossia come totale mi dà 26751 e non 267,51
    Scusami ancora e di nuovo grazie per la tua attenzione

  7. #17
    var_im_FATT_1 = split(var_im_FATT, ", "):
    somma=CDbl(0)
    For i=0 TO UBound(var_im_FATT_1) -1

    Response.Write var_im_FATT_1(i) & "
    "

    importo= var_im_FATT_1(i)
    importo=trim(importo)
    If IsNumeric(importo) Then
    somma=somma + CDbl(importo)
    End If
    Next
    Response.Write "maGGica somma...: " & somma & "
    "

    In questo modo riesco a stampare il gisto importo:
    maGGica somma...: 267,51
    Immensamente grazie, vorei farlo di persona ma credo siamo lontani ti auguro buon fine settimana

  8. #18
    Originariamente inviato da vincanto1955
    Immensamente grazie, vorei farlo di persona ma credo siamo lontani ti auguro buon fine settimana
    allora lasciami una birretta pagata guarda in firma

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.