X Joe

[solare]

Ciao, questo è un tuo listato che gentilmente mi hai fatto di recente
volevo chiederti: è possibile far visualizzare l'estrazione di quando è sortito il numero in esame, a fianco dove mostra il nr della sortita ?

Option Explicit
Sub Main
Dim A,D(3)
D(1) = 13 ' Numero
D(2) = 7 ' Mese
For A = 2019 To 2023
D(3) = A ' Anno
Call Cerca(D)
Scrivi String(30,"="),1,1,,1
Next
End Sub
Sub Cerca(D)
Dim N,I,F,P : I = 1 : F = EstrazioneFin
Dim Ini,Fin,Es,R
Scrivi "Numero " & FormatSpace(Format2(D(1)),4,1),1
Scrivi "Mese " & FormatSpace(Format2(D(2)),6,1),1
Scrivi "Anno " & FormatSpace(D(3),6,1),1
Scrivi
For Es = I To F
If Mese(Es) = CInt(D(2)) And Anno(Es) = CInt(D(3)) And IndiceMensile(Es) = 1 Then Ini = Es
If Mese(Es) = CInt(D(2)) And Anno(Es) = CInt(D(3)) And(IsUltimaDelMese(Es) Or Es = F) Then Fin = Es
Next
Scrivi "Dal " & DataEstrazione(Ini,,,"/") & " al " & DataEstrazione(Fin,,,"/"),1
Scrivi
Scrivi "RU [Rc] Risultati al colpo",1
Scrivi
For R = 1 To 12
Scrivi SiglaRuota(R) & " ",1,0
Scrivi FormatSpace(EstrattoRitardo(R,CInt(D(1)),1,Fin),4,1),0,0,,2
For Es = Ini To Fin
P = Posizione(Es,R,D(1))
If P > 0 Then Scrivi FormatSpace(Es - Ini + 1,5,1) & "°",1,0
Next
Scrivi
Next
End Sub

 

[joe]

Ciao Solare,

prova questo :

Option Explicit
Sub Main
   Dim A,D(3)
   D(1) = 13 ' Numero
   D(2) = 7 ' Mese
   For A = 2019 To 2023
      D(3) = A ' Anno
      Call Cerca(D)
      Scrivi String(105,"="),1,1,,1
   Next
End Sub
Sub Cerca(D)
   Dim N,I,F,P : I = 1 : F = EstrazioneFin
   Dim Ini,Fin,Es,R
   Scrivi "Numero " & FormatSpace(Format2(D(1)),4,1) & Space(2),1,0
   Scrivi "Mese " & FormatSpace(Format2(D(2)),6,1) & Space(2),1,0
   Scrivi "Anno " & FormatSpace(D(3),6,1) & Space(10),1,0
   For Es = I To F
      If Mese(Es) = CInt(D(2)) And Anno(Es) = CInt(D(3)) And IndiceMensile(Es) = 1 Then Ini = Es
      If Mese(Es) = CInt(D(2)) And Anno(Es) = CInt(D(3)) And(IsUltimaDelMese(Es) Or Es = F) Then Fin = Es
   Next
   Scrivi "Estrazioni dal " & DataEstrazione(Ini,,,"/") & " al " & DataEstrazione(Fin,,,"/"),1
   Scrivi
   Scrivi "Ru" & Space(3),1,0
   Scrivi "Rc" & Space(2),1,0,,2
   Scrivi "Colpo" & Space(4),1,0,,1
   Scrivi "Risultati",1,1
   Scrivi
   For R = 1 To 12
      Scrivi SiglaRuota(R) & " ",1,0
      Scrivi FormatSpace(EstrattoRitardo(R,CInt(D(1)),1,Fin),4,1),1,0,,2
      '
      For Es = Ini To Fin
         P = Posizione(Es,R,D(1))
         If P > 0 Then
            Scrivi FormatSpace(Es - Ini + 1,4,1) & "°" & Space(1),1,0,,1
            Scrivi DataEstrazione(Es,,,"/") & Space(1),1,0,,RGB(120,120,120)
            Scrivi StringaEstratti(Es,R) & Space(2),0,0
         End If
      Next
      Scrivi
   Next
End Sub

 

[solare]

Ottimo
Grazie infinite Joe
Buona serata