Hola a todos tengo el siguiente código:
Public Dim saldoAnterior As Integer = 0
Public Dim saldoActual As Integer=0
Public Dim saldoAnteriorCosto As Double=0
Public Dim saldoActualCosto As Double=0
Public Function DameTotal(ByVal saldoInicial As Integer, ByVal CantidadEntrada As Integer,ByVal CantidadSalida As Integer) As Integer
if(saldoAnterior=0) then
saldoAnterior=saldoInicial+ CantidadEntrada - CantidadSalida
return saldoAnterior
else if(saldoActual=0)
saldoActual=saldoAnterior+CantidadEntrada-CantidadSalida
return saldoActual
else
return saldoActual+CantidadEntrada-CantidadSalida
end if
End Function
Lo que quiero hacer es una función para un kárdex por ejemplo tengo:
saldoinicial=4
cantidadEntrada=3
cantidadSalida=2
saldo=4+3-2
saldoanterior=saldo
saldo=5
después con ese saldo anterior debe seguir haciendo los cálculos y la cantidad entrada y salida también van a ser diferentes ya que es lo que entra y sale de productos debería quedar así
cantidadentrada 3
cantidadsalida 2
saldo=saldoanterior+cantidadEntrada-cantidadSalida
saldo=5+3-2
saldo=4
El código de arriba hace eso pero sólo para 3 veces lo que quiero es que me haga n veces es decir para cualquier cantidad que se ingrese,no se como hacer para que se me vaya almacenando el saldo que va calculando para seguir haciendo los cálculos de antemano gracias por su ayuda
