ESTRAZIONI DEL PASSATO

[virtualhuman]

Salve a tutti ! Una richiesta per gli scripter: e' possibile realizzare un codice con il quale visualizzare in output una specifica estrazione ed un certo numero di estrazioni seguenti (ad esempio 5) richiamandola in base alla data anzicche' in base al numero con il quale e' presente in archivio? Una estrazione completa,in cui sono presenti tutte le ruote! So che esiste il minibrowser ma non posso utilizzarlo per verificare lo studio che sto svolgendo.Grazie in anticipo per l'eventuale aiuto!

 

[i legend]

Certo.
Fai un esempio, appena riesco nel primo pomeriggio lo butto giù, se non lo fa qual cin altro ?
Ciao

 

[Giggio]

Ciao , qui non è necessaria una data esatta , se la data inserita non corrisponde ad una data estrazione trova la prima disponibile dopo la data indicata.

Per gli scripter , notare l'uso di DateSerial per ovviare al problema del formatodata differente che puo capitare su sistemi operativi diversi.

Option Explicit
Sub Main
   Dim Data,id,nDaEsporre,k


   Data =(InputBox("Data prima estrazione","Data",FormattaStringa(Now,"dd/mm/yyyy")))

   nDaEsporre = CInt(InputBox("Quante estrazioni","Quantita",5))
   If IsDate(Data) Then
      ReDim aV(0)
      Call SplitByChar( Data ,"/" , aV)
      Data = DateSerial(Int(aV(2)) ,Int(aV(1)),Int (aV(0)))
   
      id = TrovaIdEst(Data)
      If id > 0 Then
         For k = id To id +(nDaEsporre - 1)
            If isIdEstrValido ( k ) Then
               Scrivi "N. " &(k - id) + 1
               Call DisegnaEstrazione(k)
            End If
         
         Next
      Else
         Scrivi "Nessuna estrazione"
      End If
   Else
      MsgBox "Data non valida"
   End If
End Sub
Function TrovaIdEst(Data)
   Dim idEst
   idEst = DataEstrToIdEstr(Day(Data),Month(Data),Year(Data))
   Do While idEst = 0
      Data = DateAdd("d",1,Data)
      idEst = DataEstrToIdEstr(Day(Data),Month(Data),Year(Data))
      If DateDiff("d",Data,Now) = 0 Then Exit Do
   Loop
   TrovaIdEst = idEst
End Function

 

[fillotto]

Avevo uno zio che tutti chiamavano Giggio .... ma il suo nome ovvio era Luigi?? troppo bravo!!!

 

[virtualhuman]

Certo.
Fai un esempio, appena riesco nel primo pomeriggio lo butto giù, se non lo fa qual cin altro ?
Ciao

Grazie infinite per l'interessamento !

 

[virtualhuman]

Ciao , qui non è necessaria una data esatta , se la data inserita non corrisponde ad una data estrazione trova la prima disponibile dopo la data indicata.

Per gli scripter , notare l'uso di DateSerial per ovviare al problema del formatodata differente che puo capitare su sistemi operativi diversi.

Option Explicit
Sub Main
   Dim Data,id,nDaEsporre,k


   Data =(InputBox("Data prima estrazione","Data",FormattaStringa(Now,"dd/mm/yyyy")))

   nDaEsporre = CInt(InputBox("Quante estrazioni","Quantita",5))
   If IsDate(Data) Then
      ReDim aV(0)
      Call SplitByChar( Data ,"/" , aV)
      Data = DateSerial(Int(aV(2)) ,Int(aV(1)),Int (aV(0)))
  
      id = TrovaIdEst(Data)
      If id > 0 Then
         For k = id To id +(nDaEsporre - 1)
            If isIdEstrValido ( k ) Then
               Scrivi "N. " &(k - id) + 1
               Call DisegnaEstrazione(k)
            End If
        
         Next
      Else
         Scrivi "Nessuna estrazione"
      End If
   Else
      MsgBox "Data non valida"
   End If
End Sub
Function TrovaIdEst(Data)
   Dim idEst
   idEst = DataEstrToIdEstr(Day(Data),Month(Data),Year(Data))
   Do While idEst = 0
      Data = DateAdd("d",1,Data)
      idEst = DataEstrToIdEstr(Day(Data),Month(Data),Year(Data))
      If DateDiff("d",Data,Now) = 0 Then Exit Do
   Loop
   TrovaIdEst = idEst
End Function

Grazie grazie grazie ! Chiedo scusa per la tardiva risposta! Ho avuto molti imprevisti e problemi e ho potuto collegarmi al Forum soltanto oggi !