dartboss
Member
giorno a tutte e tutti e buon inizio anno.
desideravo chiedere, per vostra gentilezza e bontà, se fosse possibile la realizzazione di uno script di ricerca TERNI periodici su un determinato periodo di ricerca.
il listato dovrebbe, ad esempio, trovare tutti i terni che sono usciti in anni consecutivi e, se possibile,come opzione di ricerca, anche a carattere mensile .
esempio pratico.
lanciando il listato, l'inputbox dovrebbe chiedere
ee = InputBox("DA QUALE DATA INIZIARE"," DATA ","31/12/205")
'ee = CInt(InputBox("Quali estrazioni vuoi esaminare ?Ultime ",,300))
'If ee = "" Then Exit Sub
ms = CInt(InputBox("In quale mese? o annuale ",,1))
If ms = "" Then Exit Sub
r = CInt(InputBox("Di quale ruota? ",,11))
If r = "" Then Exit Sub
ru(1) = r
q = CInt(InputBox("Quanti terni vuoi ricercare ? ",,2))
If q = "" Then Exit Sub
e il risultato che dovrebbe trovare questi due terni
il 18-54-90 e il 20-64-86 ovvero i due terni che sono usciti ogni anno a partire dal 2007, su tutte le ruote.
grazie per avermi letto e un saluto al grande blackmore
desideravo chiedere, per vostra gentilezza e bontà, se fosse possibile la realizzazione di uno script di ricerca TERNI periodici su un determinato periodo di ricerca.
il listato dovrebbe, ad esempio, trovare tutti i terni che sono usciti in anni consecutivi e, se possibile,come opzione di ricerca, anche a carattere mensile .
esempio pratico.
lanciando il listato, l'inputbox dovrebbe chiedere
ee = InputBox("DA QUALE DATA INIZIARE"," DATA ","31/12/205")
'ee = CInt(InputBox("Quali estrazioni vuoi esaminare ?Ultime ",,300))
'If ee = "" Then Exit Sub
ms = CInt(InputBox("In quale mese? o annuale ",,1))
If ms = "" Then Exit Sub
r = CInt(InputBox("Di quale ruota? ",,11))
If r = "" Then Exit Sub
ru(1) = r
q = CInt(InputBox("Quanti terni vuoi ricercare ? ",,2))
If q = "" Then Exit Sub
e il risultato che dovrebbe trovare questi due terni
il 18-54-90 e il 20-64-86 ovvero i due terni che sono usciti ogni anno a partire dal 2007, su tutte le ruote.
grazie per avermi letto e un saluto al grande blackmore