|
|
| un listato che potra esservi utile nell'affrontare metodi con mesi retroattivi 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
|
| |