Ciao.
Mi permetto di intervenire essendo risposta abbastanza semplice.
Devi risolvere le equazioni con la gerarchia imposta dalle parentesi
attribuendo i valori in esse descritti, secondo la sintassi prevista dalle istruzioni.
La parte più difficile dunque è:
ComplAdX(Estratto(es,9,3))
Es è l "IdEstrazione" cioè un numero progressivo
con il quale si identifica in modo univoco ogni estrazione.
La prima Estrazione in archivio è la numero "1". L'ultima, attualmente, "9047"
Quindi se vuoi avere un risultato per l'ultima estrazione
Attribuirai ad "Es" il valore 9047.
Cioè: Es = 4047
Poi Estratto ... è l'istruzione per leggere un Estratto (dell' Estrazione "Es") ...
ma sono necessari altri parametri. Essi sono: Ruota e Posizione (come minimo)
La ruota è qui rappresentata da un numero .
9 = Torino e ... successivamentente 3 = Firenze.
La posizione da 1 a 5 ... dove naturalelmente 3 è il 3° Estratto di Torino. ("41" il 25/08/2015)
Quindi ... il complemento a 90 (come default ed omesso), di 41 ... sarà 49.
Così di seguito ti ho disassemblato tutto lo script ... in pezzettini ove per ogni in singola parte ...
ho raccolto e poi scritto "i contenuti" intermedi ... attraverso l'uso di molte variabili ...
Fino ad ottenere un risultato ... riepilogativo.
Nota che essendo esso (70) inferiore a 90 il "Fuori90" ... qui non opera alcunchè.
Codice:
Sub Main
Dim Es,A,B,C,D,E
Es = 9047 'EstrazioneFin
A = Estratto(Es,TO_,3)
Scrivi "A = Estratto(Es,TO_,3) = " & A
B = ComplAdX(A)
Scrivi "B = ComplAdX(A) = " & B
C = Estratto(Es,FI_,5)
Scrivi "C = Estratto(Es,FI_,5) = " & C
D = B + C + 4
Scrivi "D = B + C + 4 = " & D
E = Fuori90(D)
Scrivi "E = Fuori90 (D) = " & E
ColoreTesto 2
Scrivi Fuori90(ComplAdX(Estratto(Es,9,3)) + Estratto(Es,3,5) + 4)
ColoreTesto 0
End Sub