Private Function Sumar() As Double
Dim i As Integer
For i = 1 To ListView1.ListItems.Count
SumarPar = SumarPar + CDbl(ListView1.ListItems(i).SubItems(3))
Next i
End Function
Private Sub Command3_Click()
Label1.Caption = "Total pares: " & Val(SumarPar)
End Sub
siempre tira que la suma es 0 >:(
Así como lo has hecho no es realmente una "función", nunca devolverá un valor y viendolo desde otra perspectiva, nunca llamaste al a "rutina" en todo caso.
¿Pero es una rutina o una función? y ¿cúal es la diferencia? :huh:
la solución: cambia el nombre de la "función" a SumarPar y te devolverá el resultado de la suma ;)