Votes taken by zagort

Sub main()

gr=CInt(InputBox("Quale giorno vuoi attivare?"& Chr(10)& riga & Chr(10)&" - Inserisci il numero 7 = Sabato",,7)) 'scelta giorno
tmp = CInt(InputBox("Quante estrazioni vuoi esaminare ?","ESTRAZIONI",80))
ruota = InputBox("quale ruota cerchi??","estratti",10)

ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = ini To Fin
DE = Now
G = Mid (de,1,2)
DE1 = DataEstrazione(es,True)
G1 = Mid (DE1,1,3)
If ( Mese (es))= g-1 Then
If ( Mese (g))= 1 Then Mese (es)= 12

If WeekDay (DateSerial (Anno(es), Mese (es), Giorno (es)))= gr Then
Messaggio(es)

Scrivi G1 &" "&DataEstrazione(es)&" "&SiglaRuota(ruota)&" - "&StringaEstratti(es,ruota)

Scrivi "==============================="
End If

End If
Next
Scrivi "le date sono riferite al Mese precedente "&( MeseNome(g-1))&""
Scrivi " mese attuale ="&( MeseNome(g))&""

End Sub