Optimierung eines Stück Codes für eine Wette!

[R2009]

Hallo Blup,

ich hab deinen Code reinkopiert.
Ergebnis:
Bei Delphi ist der Zeitaufwand für 1000000 nicht mehr messbar, bei VB nach wie vor 22 Sekunden.
Ich hab natürlich jetzt die Lacher auf meiner Seite.
Natürlich hab ich mich geweigert den Code rauszurücken, du hast ja doch schon gewaltig am Algorithmus gedreht.
Aber Hauptsache ich hab die VB Jünger hier im Hause etwas geärgert. Ein Freund von mir wird das Ganze
genauso in VB realisieren, dann sehen wir weiter.
Die Wette hab ich damit noch nicht gewonnen aber du hast (ihr habt) mir sehr geholfen.

Vielen herzlichen dank für eure Mühe!
Grüsse
rainer