Ciao Loris ...
Non So.
Mi sono fermato ... al primo livello passo dunque, a Luigi ...
Anche se, ricordo che uno dei pionieri di questi sudi (Gaspare)...
accennava alla sua possibilità di creare ... più livelli ... per me, rimasta puramente teorica.
Per quanto riguarda il resto delle prove, da me effettuate,
La funzione che fu poi possibile utilizzare e creare l'archivio ...
in pratica perchè era l'unica "funzionante", NumeroPosRit
necessitava d'essere usata "indirettamente"
Come si vede dallo script che postato precedentemente.
Esso, ora, può essere semplificato usando la forma diretta ed appropriata: "PosNumeroRit"
Codice:
'PDR-MICRO- V.1.0 Scritto da Joe91
'Software per l' Aggiornamento dell' Archivio Dinamico.
'Test "PosNumeroRit" per "Spaziometria 1.3.42" del 28/02/2012
Sub Main()
For Es = EstrazioneFin-9 To EstrazioneFin
Scrivi DataEstrazione(Es) & ".",1,0
For R = 1 To 11 : If R=11 Then R=12
For P = 1 To 5
N = Estratto (Es,R,P)
PNR = PosNumeroRit (Es-1,R,N)
Scrivi Format2 (PNR)&".",0,0 : Somma = Somma + CInt(PNR)
Next
Next : Scrivi
Next : Scrivi Somma
End Sub
Per ottenere i risultati identici.