Domino 9 und frühere Versionen > Administration & Userprobleme

Rangliste erstellen

<< < (2/2)

lenchen2:
So,

hab mir jetzt ne Schleife für das Problem programiert - vielleicht hilft's ja jemand weiter...
Falls natürlich jezt jemand sagt - " da gibt es doch eine viel einfachere Lösung" - wär ich für den Hinweis - und natürlich die dazugehörige Lösung - dankbar.

Wie gesagt wollte ich eine Rangliste machen, die mir aus einer Variablen mit beliebig sortierten Werten sagt welches der größte Wert ist, welches der zweitgrößte...

Hier meine Formel dazu

die Variable war ilbs()= ["6","6","","40","20"] ...
Und so sieht dann das Ergebnis aus: slbs()= [40,20,6,0]
jetzt ist slbs(1)=Rang1 ; slbs(2)=Rang2 usw.

(Ach ja und da es sich bei den Werten um % Angaben handelt - geht's bis max "100")


Gruß Lenchen2
...
      
   t=-1
   For i=Lbound(ilbs) To Ubound(ilbs)   
      t=t+1
      a=-1
      
      Redim Preserve slbs(t)
      If t=0 Then
         slbs(t)="101"
         t=t+1
      End If
      
      slbs(t)="0"
      For a=Lbound(ilbs) To Ubound(ilbs)   
         a=a+1
         If ilbs(a)<>"" Then
            If Int(slbs(t))<Int(ilbs(a)) And Int(ilbs(a))<Int(slbs(t-1)) Then
            slbs(t)=ilbs(a)
            End If
         End If
      Next
      If slbs(t)="0" Goto ende  'sonst kommen zum Schluss immer 2 Nullen
      If slbs(t)=slbs(t-1) Then   'damit die Werte nich mehrmals vorkommen
         t=t-1
      End If   
   Next
ende:

Navigation

[0] Themen-Index

[*] Vorherige Sete