Novità

X Joe e non solo

solare

Advanced Member >PLATINUM<
Ciao joe, non sono sicuro se questo lo hai fatto tu
A me servirebbe inserire la possibilità di estrarre le estrazioni con indice mensile
esempio gli ultimi 4 anni del solo mese di Marzo...ecc ecc
Grazie infinite, sempre che sia possibile modificarlo.

' vado a memoria
' il nome o i parametri di alcune funzioni potrebbero essere errati
Option Explicit
Sub Main
Dim ini,fin: Call ScegliRange(ini,fin,1,EstrazioniArchivio)
ReDim aR(0): Call ScegliRuote(aR)
Dim idE
Dim R
Dim sep: sep = " "
Dim bRet: bRet = false
' non ricordo bene il nome di questa funzione
If ini > 0 Then
If fin >= ini And fin <= EstrazioniArchivio Then
If UBound(aR) > 0 Then

bRet = True

End If
End If
End If
If bRet = false Then
Scrivi " errore variabili"
Exit Sub
End If

For idE = ini To fin
For R = 1 To UBound(aR)
If aR(R) <> 11 Then

Scrivi DataEstrazione(idE) & " " & SiglaRuota(aR(R)) & " " & StringaEstratti(idE,aR(R),sep)

'Scrivi DataEstrazione(idE) &sep& SiglaRuota(aR(R))&sep&StringaEs( idE,aR(R),sep)
End If
Next

Next
End Sub
'Non ricordo se stringaestratti formatta automaticamente i numeretti per questo la funzione che segue
Function StringaEs(idE,R,sep)
Dim p,s
s = ""
For p = 1 To 5
s = s & Estratto(idE,R,p) & sep
Next
StringaEs = RimuoviLastChr(s,sep)
End Function
 
ciao Solare,

Non ricordo il contesto per cui fu fatto.

Lo script che hai proposto ha uno sviluppo di base che è sicuramente di LuigiB.

Se ho capito bene quello che hai chiesto,

dovrebbe essere sufficiente inserire un controllo sul numero del mese (di ogni IdE)

Dove naturalmente il 3 sta ad indicare il 3° mese dell'anno chè è Marzo.

If Mese (idE) = 3 Then
Scrivi DataEstrazione(idE) & " " & SiglaRuota(aR(R)) & " " & StringaEstratti(idE,aR(R),sep)
End If

:)
 
Codice:
Option Explicit
Sub Main
   Dim ini,fin: Call ScegliRange(ini,fin,10000,EstrazioniArchivio)
   ReDim aR(0): Call ScegliRuote(aR)
   Dim idE
   Dim R
   Dim sep: sep = " "
   Dim bRet: bRet = false
   Dim M : M = eVal(InputBox("Es 3 = Marzo","SCEGLI UN MESE",3))
   If M < 1 Or M > 12 Then M = 1 'Gestisce errori di input

   ' non ricordo bene il nome di questa funzione
   If ini > 0 Then
      If fin >= ini And fin <= EstrazioniArchivio Then
         If UBound(aR) > 0 Then
            bRet = True
         End If
      End If
   End If
   If bRet = false Then
      Scrivi " errore variabili"
      Exit Sub
   End If
   For idE = ini To fin
   If IndiceAnnuale (idE) = 1 Then Scrivi String (28,"-") 
      For R = 1 To UBound(aR)
         If aR(R) <> 11 Then
            If Mese(idE) = M Then
               Scrivi DataEstrazione(idE) & " " & SiglaRuota(aR(R)) & " " & StringaEstratti(idE,aR(R),sep)
            End If
         End If
      Next
   Next
End Sub
'Non ricordo se stringaestratti formatta automaticamente i numeretti per questo la funzione che segue
Function StringaEs(idE,R,sep)
   Dim p,s
   s = ""
   For p = 1 To 5
      s = s & Estratto(idE,R,p) & sep
   Next
   StringaEs = RimuoviLastChr(s,sep)
End Function

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 29 maggio 2025
    Bari
    45
    10
    60
    68
    59
    Cagliari
    04
    31
    24
    61
    63
    Firenze
    71
    59
    65
    53
    46
    Genova
    21
    26
    50
    63
    86
    Milano
    46
    52
    45
    21
    15
    Napoli
    88
    90
    17
    46
    12
    Palermo
    31
    40
    71
    32
    12
    Roma
    86
    81
    41
    12
    19
    Torino
    75
    32
    64
    46
    04
    Venezia
    26
    65
    38
    56
    60
    Nazionale
    16
    55
    64
    57
    12
    Estrazione Simbolotto
    Milano
    45
    26
    36
    08
    22
Indietro
Alto