Una domanda semplice semplice per chi sa la risposta :)

[Lottopython]

cosa intendi per dicitura non ti capisco.

 

[Reacher]

cosa intendi per dicitura non ti capisco.

Il codice script.... Data estrazione ecc per far uscire anche i giorni della settimana

 

[Lottopython]

Option Explicit

Sub Main
   Dim es
   Dim ruota
   Dim Av
   Dim DataStr
   Dim GiornoSett
   Dim sData
   Dim Linea
  
   For es = EstrazioneIni To EstrazioneFin
      Scrivi
      Scrivi GetInfoEstrazione(es), True,,, vbRed, 5
      Scrivi
      
      DataStr = DataEstrazione(es)
      Av = Split(DataStr, ".")
      
      ' Calcola il giorno della settimana (1=Dom, 2=Lun, ..., 7=Sab)
      GiornoSett = WeekDay(DateSerial(CLng(Av(2)), CLng(Av(1)), CLng(Av(0))))
      Select Case GiornoSett
         Case 1: GiornoSett = "Dom"
         Case 2: GiornoSett = "Lun"
         Case 3: GiornoSett = "Mar"
         Case 4: GiornoSett = "Mer"
         Case 5: GiornoSett = "Gio"
         Case 6: GiornoSett = "Ven"
         Case 7: GiornoSett = "Sab"
      End Select
      
      sData = Av(0) & "." & Av(1) & "." & Av(2) & " " & GiornoSett
      
      For ruota = 1 To 12
         If ruota = 11 Then ruota = 12
        
         ' Formatta la linea: estratti allineati a sinistra in campo fisso, poi ruota e data
         Linea = Left(StringaEstratti(es, ruota, " ") & Space(20), 20) & NomeRuota(ruota) & Space(12 - Len(NomeRuota(ruota))) & sData
         Scrivi Linea,,,,,4
        
         If ScriptInterrotto Then Exit For
      Next
      
      If ScriptInterrotto Then Exit For
   Next
End Sub

 

[Reacher]

Grazie funziona.
Una domanda.... guarda questo codice......
if Av(2) = > 1871 And Av(2) = < 1899 Then Av(2) = Av(2)
spaziometria mi da errore perchè nota lo spazio tra = e maggiore....allora li levo a mano salvo ma quando riapro lo script lo spazio permane.
Come posso fare?

 

[Xeroxs]

Ciao
Prova Così se ne trovi altri usa lo stesso modo
if Av(2) >= 1871 And Av(2) <= 1899 Then Av(2) = Av(2)

 

[Reacher]

Ciao
Prova Così se ne trovi altri usa lo stesso modo
if Av(2) >= 1871 And Av(2) <= 1899 Then Av(2) = Av(2)

Funziona bene grazie