Calcular ganancias por Mes

[erbuson]

Hola:

Te voy a dar una idea que luego la puedes ir desarrollando pero resulta muy simple y además práctica para posteriores cálculos.

Necesitas una Matriz de 12 elementos

Dim Mensuales(12) as Currency

Tomas del elemento Fecha del Grid el mes en una variable

Mes = Month(Grid.TextMatrix(Fila, Columna))

Después sumas el Valor que contiene el Grid en Importe en la Matriz

Mensuales(Mes)=Mensuales(Mes) + Grid.TextMatrix(Fila, Columna)

Si por otra parte tienes una matriz de Labels, en un simple Bucle asignas los valores

For Mes = 1 to 12
Label(Mes)=Mensuales(Mes)
Next

Pretendo sólo darte una idea para que lo veas claro y así analices un poco tus posibles soluciones, sin embargo cualquier duda comentala y la solucionamos.

Saludos