X luigi ultima del mese

[Joe91]

Ciao joe è se ci sono 5 settimane funziona uguale ?
Ho usato la funzione mese perché non volevo utilizzare le funzioni già esistenti
Appartenenti mese
Ti spiego la logica che è la cosa più importante.
Poi corretto questo mi è più facile scrivere un codice anche completamente nuovo.

...

Allora tolto le prime due righe di codice che erano solo per vedere se ero in grado di risolvere utilizzo la funzione indicemensile che esiste la utilizziamo
Allora gestiamo quello che ci serve
Ossia calcolare se l ultima estrazione potrebbe essere fine mese.
Ok comincio con l errore se idestr +1 va fuori range allora interveniamo.
Valutiamo il giorno e in base a questo cosa sommare
Adesso fatto ciò
Quale può essere il termine di paragone?
Io ho pensato ai giorni del mese
Se sono al 27 e il mese di 28 allora se la somma supera È l ultima altrimenti no.
Ecco questa routine è la più breve che ho trovato .
Tu joe come l avresti scritta?
Con il Select case si risparmiano righe ed il codice e anche più leggibile grazie.
Non ho usato il nome del giorno ma il suo indice settimanale non so se usando il basic sia più veloce opure è meglio usare split.
Al massimo è una riga si fa presto a cambiare.
In alternativa che logica si dovrebbe seguire?
Grazie
Luigi ha già reso pubblico l Algoritmo?
Non mi stupisce.
Ciao
So che questo post non è utile per i molti perché la funzione esiste per questo vi ringrazio per i suggerimenti ed il tempo che mi dedicate.
Grazie di cuore.

Ciao Ilegend buon giorno a tutte/i.

Troppe domande ... non so se risponderò a tutte ... ma, provo cumulativamente.

Facendo lavorare il basic, con le date, non serve considerare il mese. (Fa "lui" senza complicazioni nel codice.)

Luigi ha usato, come te, una versione più numerica. Io, qui, il nome del giorno.

Probabilmente è meglio con il numero, ma con i giorni di estrazione è lottologicamente più semplice illustrare la soluzione.

Prima che Luigi predisponesse questa nuova istruzione "alcuni", usavano "Estrazione+1" dunque

ai tempi avevo scritto una mia soluzione con l'aiuto di excel ... che poi avevo convertito ed adattata per i miei script.

Come sai ... è regola, che Luigi, ci lasci tutti al palo.

 

[Joe91]

La soluzione che avevo adottatto ... (finalmente l'ho trovata) è vecchia di 1200 estrazioni.

Tuttavia "codesto indovino" allora sapeva che la prossima estrazione sarà la 9077 del 03/11/2015.

[FONT=Courier New][SIZE=10px][COLOR=#000000][9068] 13/10/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]1° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9069] 15/10/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]2° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9070] 17/10/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]3° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]----------------------------------[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9071] 20/10/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]1° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9072] 22/10/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]2° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9073] 24/10/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]3° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]----------------------------------[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9074] 27/10/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]1° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9075] 29/10/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]2° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9076] 31/10/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]3° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]----------------------------------[/COLOR][/SIZE][/FONT]
[I][B][FONT=Courier New][SIZE=10px][COLOR=#000000][9077] 03/11/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]1° Estr. sett/le[/COLOR][/SIZE][/FONT][/B][/I]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9078] 05/11/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]2° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9079] 07/11/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]3° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]----------------------------------[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9080] 10/11/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]1° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9081] 12/11/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]2° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9082] 14/11/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]3° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]----------------------------------[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9083] 17/11/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]1° Estr. sett/le[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][9084] 19/11/2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]2° Estr. sett/le[/COLOR][/SIZE][/FONT]

 

[LuigiB]

Eheh ciao Joe ...Non so se sia vero ma eventualmente dipende dal fatto che faccio questo per lavoro. ..comunque come hai evidenziato col tuo ragionamento creare una finzione precisa a priori quando le regole del gioco potrebbero cambiare in realta non e possibile...quindi si deve ragionarein un contesto che gestisca la normalita nel perimetro noto....

 

[i legend]

Ciao joe grazie
Scusa per la domanda stupida delle 5 settimane.
Non avevo visto la soluzione.
In realtà il post 18 lo vedo solo adesso.
Non capisco perché i post compaiono o scompaiono.
Concordo con te luigi è un grande,ma anche tu sei lontano anni luce. Ciao e grazie mille

 

[Joe91]

Ciao joe grazie
Scusa per la domanda stupida delle 5 settimane.
Non avevo visto la soluzione.
In realtà il post 18 lo vedo solo adesso.
Non capisco perché i post compaiono o scompaiono.
Concordo con te luigi è un grande,ma anche tu sei lontano anni luce. Ciao e grazie mille

Ti ringrazio, non c'è problema.

Può essere che tu abbia settaggi di orario differenti, sparsi, tra i vari device.

Per cui i messaggi ti vengono organizzati ... secondo una time-line bizzarra. (e' solo ... una ipo_tesi)

Poi ... è il peggio dei percorsi ad ostacoli, ma è ... per tutti.

 

[Joe91]

Come ha scritto ilegend ...

la parte dello script presente al messaggio #18 unito in calce

a quello precedemente presentato al #17.

Realizza una soluzione.

L'ho riassunta, riorganizzata e resa disponibile come funzione ... con una SubMain

in grado di fornirle un elenco di estrazioni utili ad effettuare un test generale,

oltre ... un esempio di utilizzo in ambienti ove non sia possibile disporre della potenza di Lottometria.

Cordiali saluti.

 Option Explicit
Sub Main
Dim Es
	For Es = EstrazioneFin - 500 To EstrazioneFin
		If FineMese(Es) Then Scrivi DataEstrazione(Es)
	Next
End Sub
Function FineMese(Es)
Dim GR,Attuale,Plus,Prossima
	GR = Split(DataEstrazione(Es,True),",")
	Plus = 1 'x i Giorni Intermedi
	Select Case GR(0)
	Case "martedì"
		Plus = 2
	Case "giovedì"
		Plus = 2
	Case "sabato"
		Plus = 3
	End Select
	Attuale = Replace(DataEstrazione(Es),".","/")
	Prossima = DateAdd("d",Plus,Attuale)
	If Month(Attuale) <> Month(Prossima) Then FineMese = True Else FineMese = False
End Function

 

[i legend]

Ciao joe grazie ; ) Grazie anche a luigi che leggo solo ora.
Spero che si riallinei la mia linea temporale
Ora provo il tuo codice per intero.
Ciao

 

[LuigiB]

c'è anche da fare una considerazione di tipo logico in verità banale , nel momento in cui io devo fare una statistica è ovvio che la possa fare solo sulle estrazioni del passato .. quindi quand'è che la mia funzione ultima del mese potrebbe fallire ? Solo nel caso in cui il range analizzato arrivi fino all'ultima estrazione disponibile ed io stia analizzando proprio quella negli altri casi una estrazione successiva a quella correntemente analizzata c' sempre e quindi i mesi si mpossono confrontare
se sono diversi è ovvio che l'estrazioen correntemente esaminata sia l'ultima ... nell'altro caso l'ulttimo ci si rifa alle regole del lotto e alle funzioni delel date offerte dal basic si vede se nei giorni
che mancano da quel momento (data dell'ultima estrazione analizzata)sono presenti ipotetici giorni utili in base alle regole conosciute in vigore se sono presenti non è l'ultima del mese ...
Cosa vuole dire questa serie di ovvieta che ho detto ? Che il metodo che confronta il mese tra l'estrazioen corrente e la successuva puo considerarsi attendibile , eventualmente bisognerebbe considerare quei casi dove l'estrazione esiste è l'ulima del mese ma è nulla .. quindi agire secondo convenzioni ...

 

[Joe91]

Ciao Luigi.

Sono in accordo con quanto scrivi e personalmente penso che il livello precisione ...

ed accuratezza, da noi, qui raggiunto, rasenti ... l'eccesso colposo.

Quindi, per testare un metodo ... è già fin troppo.

Esagerato.

Sarebbe meglio come scrivi ... utilizzare "l'archivio" per stabilire se è già nota come, essere una ultima-conclamata.

Ed una funzione specifica per l'unica ultima-incerta.

Ma a questo punto forse sarebbe ... un inputbox ... alla responsabilità dell'utilizzatore,

per decidere il da-farsi per l'unica estrazione possibilmente incerta. Tanto piace.