Konteyner'a kutu yerleştirme algoritması

Selamlar.
Database'den alacağım konteyner uzunluk değerlerine göre (en,boy,yükseklik) yine database'den alacağım sahip kutuları yerleştirmek istiyorum (en, boy,uzunluk verileri yine database'den alınacak)
Fikir veya bir kaç satır ana kod parçası işime yarayabilir.
Saygılar.

Dim E,B,Y
Dim e,b,y

alternatif1 = int(E/e) * int(B/b)
alternatif2 = int(E/b) * int(B/e)

if alternatif1 > alternatif2
   secim = alternatif1 * int(Y/y)
else
   secim = alternatif2 * int (Y/y)
end if