Estadistica o probabilidad

A ver a quien se le ocurre una posible solucion, a este dilema que tengo.

Resulta que debo a traves de alguna formula o codigo, establecer posibles
combinaciones para lograr ciertos objetivos. esto me lleva para ser mas
claro mostrarles un ejemplo

De un rango de pesos dado.. por ejemplo de 1 a 1.4 Kl.

Lograr detallar el rango quitandole 100 gramos desdel el maximo hasta

al minimo en este caso 1. Kl.

Con esto pedile al programa que me agrupe estos pesos.. para lograr

por ejemplo 25 Kl.

Tabla
Peso Unidad
1.4 1
1.3 1
1.2 1
1.1 1
1.0 1
Entonces saber cuantas piezas de cada peso necesito para lograr los 25 Kl.

con ello todas las posibles bombinaciones..

Espero haber sido muy Claro.

Saludos Cordiales, esto ya lo postie en microsoft.public.es.access, pero
igual lo hago acá por si a alguien se le ocurre algo. yo en realidad. me
declaro inconpetente.. es esto.. y no lo logro hacer por ningun lado..



Nego

Como hago para que me funcione ?

"Sashka" escribió en el mensaje
news:
> ojalá te sirva.
>
> Public Function calcula(ByVal total As Long, ByVal mini As Double, ByVal
> maxi As Double) As Variant
> Dim i As Double, valores() As Single, x As Long, cant() As Long
> Dim entero As Long, a1 As Double
> ReDim valores(0)
> valores(0) = maxi
> For i = maxi - 0.1 To mini Step -0.1
> x = x + 1
> ReDim Preserve valores(0 To x)
> valores(x) = i
> Next i
> x = x + 1
> ReDim Preserve valores(0 To x)
> valores(x) = mini
> ReDim cant(0 To UBound(valores))
> a1 = total
> For x = 0 To UBound(cant) - 1
> cant(x) = Int(a1 / valores(x))
> a1 = a1 - (cant(x) * valores(x))
> entero = entero + (cant(x) * valores(x))
> Next x
> calcula = cant
> End Function
>
> Sub main()
> Dim cant As Variant
> cant = calcula(25, 1, 1.4)
> If IsArray(cant) Then MsgBox "ya"
> End Sub
>
> Sashka
>
> "Nego" escribió en el mensaje
> news:
> > A ver a quien se le ocurre una posible solucion, a este dilema que
tengo.
> >
> > Resulta que debo a traves de alguna formula o codigo, establecer
posibles
> > combinaciones para lograr ciertos objetivos. esto me lleva para ser

> > claro mostrarles un ejemplo
> >
> > De un rango de pesos dado.. por ejemplo de 1 a 1.4 Kl.
> >
> > Lograr detallar el rango quitandole 100 gramos desdel el maximo hasta
> llegar
> > al minimo en este caso 1. Kl.
> >
> > Con esto pedile al programa que me agrupe estos pesos.. para lograr
> formar.
> > por ejemplo 25 Kl.
> >
> > Tabla
> > Peso Unidad
> > 1.4 1
> > 1.3 1
> > 1.2 1
> > 1.1 1
> > 1.0 1
> > Entonces saber cuantas piezas de cada peso necesito para lograr los 25
Kl.
> y
> > con ello todas las posibles bombinaciones..
> >
> > Espero haber sido muy Claro.
> >
> > Saludos Cordiales, esto ya lo postie en microsoft.public.es.access,

> > igual lo hago acá por si a alguien se le ocurre algo. yo en realidad.

> > declaro inconpetente.. es esto.. y no lo logro hacer por ningun lado..
> >
> >
> >
> > Nego
> >
> >
>
>