Aiuto per script grazie

[siriano]

Buona giornata a tutti.
Non sono un esperto quindi sicuramente nello script sotto sbaglio io qualcosa,
in pratica la somma dell'ambo non la da esatta e non riesco a capire perchè e dov'è l'errore.
Grazie a tutti.

Sub Main()
Dim caso
fin = EstrazioneFin
ini = EstrazioneFin - 101
For es = ini To fin
AvanzamentoElab ini,fin,es

a = Figura(Estratto(es,1,1))
b = Figura(Estratto(es,1,2))
c = Figura(Estratto(es,2,1))
d = Figura(Estratto(es,2,2))
amb11 = a & b
amb12 = c & d
sumamb = Fuori90(amb11 + amb12)

caso = caso + 1
Scrivi caso
Scrivi es & " " & DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " & a & " " & b,1
Scrivi es & " " & DataEstrazione(es) & " " & SiglaRuota(2) & " " & StringaEstratti(es,2) & " " & c & " " & d,1
Scrivi "Ambo: " & amb11 & "." & amb12 & " Somma ambo: " & sumamb
Scrivi
Next
End Sub

 

[Mike58]

Ciao Siriano, il numero ricavato in unione figure, vuole anche esso il fuori90.
Cosi funziona.

Ciao

Sub Main()
Dim caso
fin = EstrazioneFin
ini = EstrazioneFin - 101
For es = ini To fin
AvanzamentoElab ini,fin,es

a = Figura(Estratto(es,1,1))
b = Figura(Estratto(es,1,2))
c = Figura(Estratto(es,2,1))
d = Figura(Estratto(es,2,2))
amb11 = Fuori90 (a & b)
amb12 = Fuori90 (c & d)
sumamb = Fuori90(amb11 + amb12)

caso = caso + 1
ColoreTesto 1
Scrivi "Caso... " & caso
ColoreTesto 0
Scrivi es & " " & DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " - Figure... " & a & " " & b,1
Scrivi es & " " & DataEstrazione(es) & " " & SiglaRuota(2) & " " & StringaEstratti(es,2) & " - Figure... " & c & " " & d,1
ColoreTesto 2
Scrivi "Ambo: " & amb11 & "." & amb12 & " Somma ambo: " & sumamb
ColoreTesto 0
Scrivi
Next
End Sub

 

[siriano]

Grazie mille Mike, è una cosa a cui non sarei mai arrivato.
Saluti.