ULTIMA DEL MESE X GENOVA-MILANO ---by CARMEN

Rispondi
Avatar utente
DjNomade
Messaggi: 565
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

ULTIMA DEL MESE X GENOVA-MILANO ---by CARMEN

Messaggio da DjNomade » 02/03/2014, 17:09

ULTIMA DEL MESE X GENOVA-MILANO ---by CARMEN ,per le spiegazioni andate QUI

Ciauz



Codice: Seleziona tutto



'http://www.pentambo.info/forum/viewtopic.php?f=22&t=4521
'02/03/2014
ColoreTesto 1 :Scrivi "---------------------ULTIMA DEL MESE X GENOVA-MILANO ---by CARMEN.----",1
Scrivi
Scrivi String(40,32)&"List.DjNomade",1
ColoreTesto 0
Sub main()
Dim posta(10),poste(5),post(5)   
Dim ruote(5) 
Dim am(10),am1(10),am2(10) 
posta(1)=1:posta(2)=1:posta(6)=1:posta(8)=1:posta(10)=1
 
poste(2)=1
post(2)=1 
post(3)=1 
casi=0 

fin=EstrazioneFin 
ini=EstrazioneFin-130
For es=ini To fin 
If IsUltimaDelMese(es) Then

ge5=Figura(Estratto(es,4,5))
mi1=Figura(Estratto(es,5,1))


b1=Fuori90(ge5&mi1)'amb
b2=Vert(b1)	'amb


c=Fuori90(b1+30)'abb
c1=Fuori90(c+30)'abb
c2=Fuori90(b2+30)'abb					
c3=Fuori90(c2+30)	'abb

 

 ColoreTesto 2 :Scrivi "--Ultima estrazione del mese-Metodo X  BARI CAGLIARI---75°) METODO gianfranco18.------------------------",1
ruote(1)=4
ruote(2)=5


am(1)=b1
am(2)=b2

ImpostaGiocata 1,am,ruote,posta,13,2
 
am1(1)=b1
am1(2)=c
ImpostaGiocata 2,am1,ruote,poste,13,2

am1(1)=b1
am1(2)=c1
ImpostaGiocata 3,am1,ruote,poste,13,2


am1(1)=b1
am1(2)=c2
ImpostaGiocata 4,am1,ruote,poste,13,2

am1(1)=b1
am1(2)=c3
ImpostaGiocata 5,am1,ruote,poste,13,2

am1(1)=b2
am1(2)=c
ImpostaGiocata 6,am1,ruote,poste,13,2

am1(1)=b2
am1(2)=c1
ImpostaGiocata 7,am1,ruote,poste,13,2
am1(1)=b2
am1(2)=c2
ImpostaGiocata 8,am1,ruote,poste,13,2

am1(1)=b2
am1(2)=c3
ImpostaGiocata 9,am1,ruote,poste,13,2







Gioca es
casi=casi+1 
End If 

Next 
Scrivi 
Scrivi 
Scrivi "Numero Totale mesi analizzati : "&Cint(casi) 
ScriviResoconto 

ColoreTesto 1 :Scrivi "---------------------ULTIMA DEL MESE X GENOVA-MILANO ---by CARMEN.----",1
Scrivi
Scrivi String(40,32)&"List.DjNomade",1
ColoreTesto 0
End Sub 

'Funzione realizzata dal bravissimo Joe
Function IsUltimaDelMese (idEstr)

       Dim sData , sDataNew
       Dim idGiornoSettimana
       Dim gMancanti
       Dim nMeseCorr
       
       sData = Replace(DataEstrazione(idEstr) , "." , "/")
       nMeseCorr = Month(sData)
       idGiornoSettimana = WeekDay (sData)
       
       Select Case idGiornoSettimana
       
       Case vbTuesday ' martedi
               gMancanti =2
       Case vbThursday ' giovedi
               gMancanti = 2
       Case vbSaturday ' sabato
               gMancanti = 3
       End Select
       
       sDataNew = DateAdd( "d" , gMancanti ,sData)
       
       If Month (sDataNew) <> nMeseCorr Then
               IsUltimaDelMese = True
       Else
               IsUltimaDelMese = False
       End If
       
End Function

Avatar utente
luca92
Messaggi: 3401
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: ULTIMA DEL MESE X GENOVA-MILANO ---by CARMEN

Messaggio da luca92 » 03/03/2014, 0:13

GRAZIE DJNOMADE! :su:





Ciao
Luca

:abb:
Immagine




Immagine







Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite