Minimalen Wert bestimmen
23.11.2017 15:56:15
Mario
ich habe ein Programm geschrieben, das mir "i" Traglasten für Kräne nach unterschiedlichen Rechenvorschriften (A-D) berechnet. Jetzt will ich den kleinsten Wert der Traglasten (für i den kleinsten Wert aus den Rechenvorschriften A-D) bestimmen.
Ich habe nun folgenden Code geschrieben:
'Subroutine zur Bestimmung der maximal zulässigen Traglast
Dim arrTraglastA() As Single
Dim arrTraglastB() As Single
Dim arrTraglastC() As Single
Dim arrTraglastD() As Single
Dim arrTraglastMin() As Single
Dim i As Integer
'Abholen der Variablen aus den Collections
arrTraglastA()=colTraglasten.Item("TraglastA")
arrTraglastB()=colTraglasten.Item("TraglastB")
arrTraglastC()=colTraglasten.Item("TraglastC")
arrTraglastD()=colTraglasten.Item("TraglastD")
'Umdimensionieren des Ergebnisarrays
ReDim arrTraglastMin(0 To UBound(arrTraglastA))
'Bestimmung der minimalen Traglast
For i=0 To UBound(arrTraglastA)
arrTraglastMin(i) = arrTraglastA(i)
If arrTraglastB(i)
Der Code funktioniert zwar einwandfrei, aber ich finde ihn nicht "schön" und er ist auch sehr lange, da ich nicht nur -wie in diesem Beispiel gezeigt- 4 Traglasten pro i habe, sondern über 10.
Hat jemand eine praktischere Idee?
VG Mario