J-Gio91 |
|
| Dunque se PER ESEMPIO sempre a Cagliari vogliamo controllare in quale Estrazione è uscito il numero 1 come primo estratto determinato ... Basta AGGIUNGERE un nuovo test condizionale analogo al precedente. CODICE Option Explicit
Sub Main
Dim Ini,Fin,Es,R,C
Ini = 1 ' PRIMA ESTRAZIONE
Fin = EstrazioniArchivio ' TUTTE LE ESTRAZIONI IN ARCHIVIO
R = CA_ ' Cagliari
For Es = Ini To Fin
If SommaEstratti(Es,R) > 0 Then ' TEST Presenza Estratti
If Posizione(Es,R,1) = 1 Then 'SE NELL'ESTRAZIONE ES, A CAGLIARI, IL NUMERO "UNO" E'IN POSIZIONE "UNO"
C = C + 1 ' AUMENTA DI UNO IL CONTATORE "C"
Scrivi FormatSpace(C,2,1) & FormatSpace(Es,6,1) & Space(1) & DataEstrazione(Es) & " " & StringaEstratti(Es,R)
End If
End If
Next
Scrivi C & " PRESENZE",1 'ESPLICITA IL VALORE DEL CONTATORE "C"
End Sub  |
| | |
