[VB6] media di valori da flexgrid

[Lugaid]

scusate se apro 2 volte una discussione uguale ma il post precedente era stato chiuso...

allora il codice è questo

somma = 0
sommaq = 0
media = 0
mediaq = 0

For i = 1 To flex.Rows - 1
    
    flex.Col = 3
    flex.Row = i
    somma = somma + Val(flex.TextMatrix(i, 3))
    sommaq = sommaq + (Val(flex.TextMatrix(i, 3))) * (Val(flex.TextMatrix(i, 3)))

Next i

Text1.Text = i - 1
media = somma / (i - 1)
mediaq = sommaq / (i - 1)
Text2.Text = media
Text3.Text = Sqr(mediaq)

se nella tabella vi sono valori interi, le medie vengono visualizzate in maniera corretta, mentre se vi sono valori decimali, es .05 .03 .01... la medie vengono sempre 0.

Questo è il codice del modulo

Dim fn As Integer
Dim somma As Variant
Dim sommaq As Variant
Dim media As Variant
Dim mediaq As Variant

confido in un vostro aiuto...

[GudFella]

utilizza come separatore dei decimali la virgola
e fai la somma tipo

somma = CDbl(somma) + CDbl(valore)

[Lugaid]

grazie dell'aiuto, ma nn posso mettere la virgola... i dati nella flex sono un migliaio di dati decimali separati da . nn posso fare a quel modo!

[GudFella]

fai un replace quando leggi il dato dalla griglia ...

[Lugaid]

LOL funziona anche con . grazie tantissime!!! :metallica