esempio ricerca 3 isotopi ( STESSO NUMERO ) in 3 ruote scelte : bari-firenze-milano
=====================================================
[ES.N°1934] 25.01.1908 BA 53.49.37.29.81 N° 81
[ES.N°1934] 25.01.1908 FI 60.02.15.21.81 N° 81
[ES.N°1934] 25.01.1908 MI 26.53.50.60.81 N° 81
=====================================================
[ES.N°3118] 04.10.1930 BA 35.75.23.13.60 N° 35
[ES.N°3118] 04.10.1930 FI 35.02.32.51.43 N° 35
[ES.N°3118] 04.10.1930 MI 35.87.08.78.24 N° 35
=====================================================
[ES.N°3763] 13.02.1943 BA 04.88.46.16.25 N° 88
[ES.N°3763] 13.02.1943 FI 58.88.56.21.82 N° 88
[ES.N°3763] 13.02.1943 MI 52.88.25.54.01 N° 88
=====================================================
[ES.N°4262] 06.09.1952 BA 67.75.16.61.04 N° 61
[ES.N°4262] 06.09.1952 FI 66.79.85.61.12 N° 61
[ES.N°4262] 06.09.1952 MI 21.22.06.61.30 N° 61
=====================================================
[ES.N°6477] 25.02.1995 BA 76.62.58.63.70 N° 58
[ES.N°6477] 25.02.1995 FI 87.40.58.68.85 N° 58
[ES.N°6477] 25.02.1995 MI 26.85.58.86.05 N° 58
=====================================================
[ES.N°6522] 08.01.1996 BA 03.15.58.66.53 N° 03
[ES.N°6522] 08.01.1996 FI 03.44.39.63.11 N° 03
[ES.N°6522] 08.01.1996 MI 03.23.45.76.87 N° 03
=====================================================
[ES.N°6869] 04.12.1999 BA 39.04.16.45.32 N° 04
[ES.N°6869] 04.12.1999 FI 76.04.86.58.36 N° 04
[ES.N°6869] 04.12.1999 MI 13.04.73.16.58 N° 04
=====================================================
[ES.N°9139] 26.03.2016 BA 61.88.70.85.83 N° 70
[ES.N°9139] 26.03.2016 FI 56.69.70.63.84 N° 70
[ES.N°9139] 26.03.2016 MI 56.57.70.64.60 N° 70
=====================================================
[ES.N°9597] 28.02.2019 BA 03.34.52.16.10 N° 34
[ES.N°9597] 28.02.2019 FI 57.34.43.31.30 N° 34
[ES.N°9597] 28.02.2019 MI 66.34.76.24.81 N° 34
.................................................................................................................
Sub Main()
ini = InputBox("INIZIO RICERCA N°",,1)' inizio archivio
fin = InputBox("FINE RICERCA N°",,9906)' imposta ultima estrazione
r1 = InputBox("RUOTA DI RICERCA N° 1 ?",,1)' ruota bari
r3 = InputBox("RUOTA DI RICERCA N° 2 ?",,3)' ruota firenze
r5 = InputBox("RUOTA DI RICERCA N° 3 ?",,5)' ruota milano
For es = ini To fin
For p = 1 To 5
n1 = Estratto(es,r1,p)
n3 = Estratto(es,r3,p)
n5 = Estratto(es,r5,p)
If n3 = n1 Then
If n5 = n3 Then
cont = 0 : Scrivi "=====================================================",1
Scrivi "[ES.N°" & es & "] " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " N° " & Format2(n1)
Scrivi "[ES.N°" & es & "] " & DataEstrazione(es) & " " & SiglaRuota(r3) & " " & StringaEstratti(es,r3) & " N° " & Format2(n3)
Scrivi "[ES.N°" & es & "] " & DataEstrazione(es) & " " & SiglaRuota(r5) & " " & StringaEstratti(es,r5) & " N° " & Format2(n5)
cont = cont + 1
End If
End If
Next
Next
End Sub
