| R E V I S I O N E D E L L A D I S C U S S I O N E |
| DjNomade |
Posted - 05 settembre 2026 : 15:54:36
POGRAMMINO COSTRUITO CON I.A.
E' STATA DURA A FARGLIERLO CAPIRE
MA QUESTO E' QUELLO CHE E' USCITO
TANTO TRANQUILLI
NON ESCE MAI NULLA SE LI GIOCHI
https://lotto-nomade89.surge.sh
AGGIORNATO
INSERITO SMORFIA - 10ELOTTO - SUPERENALOTTO
PER AGGIORNARE IL SUPER ENALOTTO VAI NELLA SEZIONE SUPERENALOTTO CLICCHI SU SFOGLIA
METTI IL FILE MESSO IN ALLEGATO CHE DEVI PERO AGGIORNARE MANUALMETE AD OGNI ESTRAZIONE,
POI CLICCA SU CARICA FILE E COSI AD OGNI AGGIORNAMENTO DELL'ARCHIVIO DEL PROGRAMMA
We fatto nuovi aggiornamenti il piu grande è che una volta fatta la previsione puoi scegliere di farti fare il listato della condizione che hai scelto la copi e la metti su lottodesk woow non pensavo l'avrebbe fatto poi anche il super dovrebbe aggiornare ma se trova il server lento o occupato occorrre riprovare piu volte provate a generare un Listato Lottodesk PROVAAAAAAA |
| 18 U L T I M E R E P L I C H E (Newest First) |
| Lory1966 |
Posted - 21 ottobre 2026 : 16:01:03
Bravo bel lavoro grazie!!!! |
| DjNomade |
Posted - 21 ottobre 2026 : 07:39:54
Nuovo Aggiornamento con la versione v12.01
Aggiunte nuove ricerche
 [/url]
 [/url] |
| franca46 |
Posted - 10 ottobre 2026 : 23:02:38
complimenti |
| DjNomade |
Posted - 10 ottobre 2026 : 22:10:53
ESTRAZIONE 10/10/2026
BARI
AMBO IN LUNGHETTA
16-55
Giocata n° 08 01.10.2026
gio 01.10.2026 [10936]
G 1: M 81 Ba 6/10
M 81 su Ba 5° colpo [10941/09.10.2026]
in corso (6° su 10)
G 2: M 17 Ba 6/10
in corso (6° su 10)
G 3: A 81.17 Ba 6/10
in corso (6° su 10)
G 4: A 81.55 Ba 6/10
in corso (6° su 10)
G 5: A 81.16 Ba 6/10
in corso (6° su 10)
G 6: A 17.18 Ba 6/10
in corso (6° su 10)
G 7: A 17.55 Ba 6/10
in corso (6° su 10)
G 8: A 17.16 Ba 6/10
in corso (6° su 10)
G 9: ATQC 81.17.18.55.16 Ba 6/10
A 16.55 su Ba 6° colpo [10942/10.10.2026]
in corso (6° su 10) |
| DjNomade |
Posted - 10 ottobre 2026 : 16:07:55
....................................................................
Nuova versione 11.43 aggiunta ricerca giorno settimanale, in piu una volta che è stata salvata una
previsione ed è scaduta nei colpi di gioco si puo ricalcolare i nuovi numeri da mettere in gioco se ci sono le condizioni richieste
utile per chi usa il cellulare e non puo' usare Lottodesk o Spaziometria
.................................................................... |
| franca46 |
Posted - 09 ottobre 2026 : 20:42:38
complimenti |
| DjNomade |
Posted - 09 ottobre 2026 : 20:20:26
ESTRAZIONE 09/10/2026
AMBATA 81 BARI
|
| franca46 |
Posted - 09 ottobre 2026 : 00:00:43
 |
| DjNomade |
Posted - 08 ottobre 2026 : 21:50:32
Con la nuova versione 11.38 aggiunta la possibilita di costruirsi il listato anche per il 10eLotto serale |
| DjNomade |
Posted - 01 ottobre 2026 : 21:12:32
ALTRA PREVISIONE CON QUESTO PROGRAMMA
ALLA 1° ESTRAZIONE DEL MESE RUOTA DI GIOCO BARI
8 CASI ESAMINATI COLPI DI GIOCO 10
SOGLIA MINIMA DI USCITA 100%
BARI
AMBATA
81
ABBINAMENTI
17-55-16
///
AMBATA
17
ABBINAMENTI
18-55-16
LISTATO CREATO DAL PROGRAMMA
'================================================
' LISTATO LOTTODESK - generato dal Lotto Analyzer
' by DjNomade e Arena A.I.
' Condizioni: BARI · Ambo · 2 ambate + 3 abbin. · colpi 10 · ritroso 240
'================================================
Sub main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ru(11)
Dim am(10)
Dim casiEs(250)
posta(1)=1
poste(2)=1
postee(2)=1
postee(3)=1
postee(4)=0.5
postee(5)=0.5
ini = 1 ' condizione/casi: intero archivio, filtro date okCasi
im=CInt(InputBox("Indice mensile: 0=ultima del mese · 1-19=indice · 20=ogni estrazione",">",1))
MeseRic=CInt(InputBox("Mese di ricerca: 0=tutti · 1-12=singolo mese",">",0))
ruot=CInt(InputBox("1° ruota di gioco","DjNomade",1))
k=InputBox("colpi di gioco","DjNomade",10)
casi=0
fin=EstrazioneFin
nTrov=0 ' ultimi 8 casi indice/mese su archivio LOTTODESK (es. 9ª anche a settembre)
For esx=fin To 1 Step -1
okIdx=(eval(im)=20) Or (eval(im)=0 And IsUltimaDelMese(esx)) Or (eval(im)>0 And IndiceMensile(esx)=eval(im))
okMs=(CInt(MeseRic)=0) Or (Mese(esx)=CInt(MeseRic))
If okIdx And okMs Then
nTrov=nTrov+1
casiEs(nTrov)=esx
If nTrov>=8 Then Exit For
End If
Next
If nTrov>0 Then Scrivi "Casi Lottodesk (ultimi " & nTrov & "): da " & DataEstrazione(casiEs(nTrov)) & " a " & DataEstrazione(casiEs(1))
ColoreTesto 1
Scrivi "BARI · Ambo · 2 ambate + 3 abbin. · colpi 10 · ritroso 240"
ColoreTesto 0
For es=ini To fin
If (eval(im)=0 And IsUltimaDelMese(es))Or (eval(im)>0 And IndiceMensile(es)=eval(im))Or (eval(im)=20 And es=es) Then
If (Mese(es)=CInt(MeseRic) And (MeseRic>0 And MeseRic<13)) Or (MeseRic=0 And Mese(es)>0) Then
If(ruot >0 And ruot<>11)Or ruot=11 Then
If(ruot >0 And ruot<>11) Then ru(1)=ruot ' una sola ruota di gioco (niente recupero)
If ruot=11 Then ru(1)=1:ru(2)=2:ru(3)=3:ru(4)=4:ru(5)=5:ru(6)=6:ru(7)=7:ru(8)=8:ru(9)=9:ru(10)=10: ru(11)=12
' Casi (8): 03/02/2026 · 03/03/2026 · 02/04/2026 · 02/05/2026 · 03/06/2026 · 02/07/2026 · 01/08/2026 · 01/09/2026
okCasi="|03/02/2026|03.02.2026|03-02-2026|2026/02/03|03/2/2026|03.2.2026|03-2-2026|2026/2/03|3/02/2026|3.02.2026|3-02-2026|2026/02/3|3/2/2026|3.2.2026|3-2-2026|2026/2/3|03/03/2026|03.03.2026|03-03-2026|2026/03/03|03/3/2026|03.3.2026|03-3-2026|2026/3/03|3/03/2026|3.03.2026|3-03-2026|2026/03/3|3/3/2026|3.3.2026|3-3-2026|2026/3/3|02/04/2026|02.04.2026|02-04-2026|2026/04/02|02/4/2026|02.4.2026|02-4-2026|2026/4/02|2/04/2026|2.04.2026|2-04-2026|2026/04/2|2/4/2026|2.4.2026|2-4-2026|2026/4/2|02/05/2026|02.05.2026|02-05-2026|2026/05/02|02/5/2026|02.5.2026|02-5-2026|2026/5/02|2/05/2026|2.05.2026|2-05-2026|2026/05/2|2/5/2026|2.5.2026|2-5-2026|2026/5/2|03/06/2026|03.06.2026|03-06-2026|2026/06/03|03/6/2026|03.6.2026|03-6-2026|2026/6/03|3/06/2026|3.06.2026|3-06-2026|2026/06/3|3/6/2026|3.6.2026|3-6-2026|2026/6/3|02/07/2026|02.07.2026|02-07-2026|2026/07/02|02/7/2026|02.7.2026|02-7-2026|2026/7/02|2/07/2026|2.07.2026|2-07-2026|2026/07/2|2/7/2026|2.7.2026|2-7-2026|2026/7/2|01/08/2026|01.08.2026|01-08-2026|2026/08/01|01/8/2026|01.8.2026|01-8-2026|2026/8/01|1/08/2026|1.08.2026|1-08-2026|2026/08/1|1/8/2026|1.8.2026|1-8-2026|2026/8/1|01/09/2026|01.09.2026|01-09-2026|2026/09/01|01/9/2026|01.9.2026|01-9-2026|2026/9/01|1/09/2026|1.09.2026|1-09-2026|2026/09/1|1/9/2026|1.9.2026|1-9-2026|2026/9/1|" ' ultimi 8 casi
spiaOk=True
spiaTxt=""
If spiaOk Then ' gioca SOLO se è uscita la condizione (es. spia sulla ruota)
okCasiEs=False
For ci=1 To nTrov
If casiEs(ci)=es Then okCasiEs=True
Next
If okCasiEs Then ' ultimi N casi calcolati su Lottodesk (non sulle date fisse dell'Analyzer)
cont=cont+1
t=t+1
Scrivi : ColoreTesto 2
Scrivi "Giocata n° " & Format2(t) & " " & DataEstrazione(es),1
ColoreTesto 0
' --- Ambata 1: n° 22 ---
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(Estratto(es,5,1)+Estratto(es,12,2)+4)
ImpostaGiocata 1,am,ru,posta,k
' --- Ambata 2: n° 29 ---
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,12,1)-Estratto(es,8,4)+8)
ImpostaGiocata 2,am,ru,posta,k
' --- Ambi secchi ---
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(Estratto(es,5,1)+Estratto(es,12,2)+4)
am(2)=Fuori90(Estratto(es,7,4)+Estratto(es,3,5)+8)
For p=2 To 2
Do
usato=False
For q=1 To p-1
If am(p)<>0 And am(p)=am(q) Then usato=True
Next
If usato Then am(p)=Fuori90(am(p)+1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 3,am,ru,poste,k
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(Estratto(es,5,1)+Estratto(es,12,2)+4)
am(2)=Fuori90(Estratto(es,2,1)+Estratto(es,1,2)+1)
For p=2 To 2
Do
usato=False
For q=1 To p-1
If am(p)<>0 And am(p)=am(q) Then usato=True
Next
If usato Then am(p)=Fuori90(am(p)+1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 4,am,ru,poste,k
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(Estratto(es,5,1)+Estratto(es,12,2)+4)
am(2)=Fuori90(Estratto(es,3,1)+Estratto(es,7,1)+3)
For p=2 To 2
Do
usato=False
For q=1 To p-1
If am(p)<>0 And am(p)=am(q) Then usato=True
Next
If usato Then am(p)=Fuori90(am(p)+1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 5,am,ru,poste,k
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,12,1)-Estratto(es,8,4)+8)
am(2)=Fuori90(Estratto(es,7,4)+Estratto(es,3,5)+8)
For p=2 To 2
Do
usato=False
For q=1 To p-1
If am(p)<>0 And am(p)=am(q) Then usato=True
Next
If usato Then am(p)=Fuori90(am(p)+1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 6,am,ru,poste,k
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,12,1)-Estratto(es,8,4)+8)
am(2)=Fuori90(Estratto(es,2,1)+Estratto(es,1,2)+1)
For p=2 To 2
Do
usato=False
For q=1 To p-1
If am(p)<>0 And am(p)=am(q) Then usato=True
Next
If usato Then am(p)=Fuori90(am(p)+1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 7,am,ru,poste,k
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,12,1)-Estratto(es,8,4)+8)
am(2)=Fuori90(Estratto(es,3,1)+Estratto(es,7,1)+3)
For p=2 To 2
Do
usato=False
For q=1 To p-1
If am(p)<>0 And am(p)=am(q) Then usato=True
Next
If usato Then am(p)=Fuori90(am(p)+1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 8,am,ru,poste,k
' --- Lunghetta (5 numeri): 22 - 29 - 63 - 71 - 2 (ambo e terno e quaterna e cinquina) ---
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(Estratto(es,5,1)+Estratto(es,12,2)+4):am(2)=Fuori90(90+Estratto(es,12,1)-Estratto(es,8,4)+8):am(3)=Fuori90(Estratto(es,7,4)+Estratto(es,3,5)+8):am(4)=Fuori90(Estratto(es,2,1)+Estratto(es,1,2)+1):am(5)=Fuori90(Estratto(es,3,1)+Estratto(es,7,1)+3)
For p=2 To 5
Do
usato=False
For q=1 To p-1
If am(p)<>0 And am(p)=am(q) Then usato=True
Next
If usato Then am(p)=Fuori90(am(p)+1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 9,am,ru,postee,k
Gioca es
End If ' okCasi
End If ' spiaOk
End If
End If
End If
Next
ScriviResoconto
End Sub
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 = 1
Case vbFriday ' venerdi
gMancanti = 1
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
|
| franca46 |
Posted - 24 settembre 2026 : 17:55:20
Ah però !!!! |
| franca46 |
Posted - 22 settembre 2026 : 20:38:00
complimenti |
| DjNomade |
Posted - 22 settembre 2026 : 20:16:19
AMBATA 72 BARI
|
| franca46 |
Posted - 19 settembre 2026 : 21:34:31
Ciao dj , no non ho avuto il tempo
Quindi se io provo le altre , viene fuori il listato .
Meglio lo guardo meglio |
| DjNomade |
Posted - 19 settembre 2026 : 21:15:34
Certo lo fa per il Lotto e il superenalotto,
non l'hai provato?? |
| franca46 |
Posted - 18 settembre 2026 : 18:34:49
Ciao dj domanda ( forse stupida)
È il programma che fa il listato? |
| DjNomade |
Posted - 18 settembre 2026 : 13:23:30
PROVIAMO UNA PREVISIONE CON QUESTO PROGRAMMA
ALLA 10° ESTRAZIONE DEL MESE RUOTE DI GIOCO BARI CAGLIARI
7 CASI ESAMINATI COLPI DI GIOCO 7
SOGLIA MINIMA DI USCITA 90%
LISTATO CREATO DAL PROGRAMMA
'================================================
' LISTATO LOTTODESK - generato dal Lotto Analyzer
' by DjNomade e Arena A.I.
' Condizioni: BARI + CAGLIARI · Ambo · 1 ambate + 2 abbin. · colpi 7 · ritroso 240
'================================================
Sub main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ru(11)
Dim am(10)
Dim casiEs(250)
posta(1)=1
poste(2)=1
postee(2)=1
postee(3)=1
ini = 1 ' condizione/casi: intero archivio, filtro date okCasi
im=CInt(InputBox("Indice mensile: 0=ultima del mese · 1-19=indice · 20=ogni estrazione",">",10))
MeseRic=CInt(InputBox("Mese di ricerca: 0=tutti · 1-12=singolo mese",">",0))
ruot=CInt(InputBox("1° ruota di gioco","DjNomade",1))
ruott=CInt(InputBox("2° ruota di gioco","DjNomade",2))
k=InputBox("colpi di gioco","DjNomade",7)
casi=0
fin=EstrazioneFin
nTrov=0 ' ultimi 7 casi indice/mese su archivio LOTTODESK (es. 9ª anche a settembre)
For esx=fin To 1 Step -1
okIdx=(eval(im)=20) Or (eval(im)=0 And IsUltimaDelMese(esx)) Or (eval(im)>0 And IndiceMensile(esx)=eval(im))
okMs=(CInt(MeseRic)=0) Or (Mese(esx)=CInt(MeseRic))
If okIdx And okMs Then
nTrov=nTrov+1
casiEs(nTrov)=esx
If nTrov>=7 Then Exit For
End If
Next
If nTrov>0 Then Scrivi "Casi Lottodesk (ultimi " & nTrov & "): da " & DataEstrazione(casiEs(nTrov)) & " a " & DataEstrazione(casiEs(1))
ColoreTesto 1
Scrivi "BARI + CAGLIARI · Ambo · 1 ambate + 2 abbin. · colpi 7 · ritroso 240"
ColoreTesto 0
For es=ini To fin
If (eval(im)=0 And IsUltimaDelMese(es))Or (eval(im)>0 And IndiceMensile(es)=eval(im))Or (eval(im)=20 And es=es) Then
If (Mese(es)=CInt(MeseRic) And (MeseRic>0 And MeseRic<13)) Or (MeseRic=0 And Mese(es)>0) Then
If(ruot >0 And ruot<>11)Or ruot=11 Then
If(ruott >0 And ruott<>11)Or ruott=11 Then
If(ruot >0 And ruot<>11) And (ruott >0 And ruott<>11) Then ru(1)=ruot:ru(2)=ruott
If ruot=11 Or ruott=11 Then ru(1)=1:ru(2)=2:ru(3)=3:ru(4)=4:ru(5)=5:ru(6)=6:ru(7)=7:ru(8)=8:ru(9)=9:ru(10)=10: ru(11)=12
' Casi (7): 19/03/2026 · 17/04/2026 · 16/05/2026 · 18/06/2026 · 17/07/2026 · 18/08/2026 · 17/09/2026
okCasi="|19/03/2026|19.03.2026|19-03-2026|2026/03/19|19/3/2026|19.3.2026|19-3-2026|2026/3/19|17/04/2026|17.04.2026|17-04-2026|2026/04/17|17/4/2026|17.4.2026|17-4-2026|2026/4/17|16/05/2026|16.05.2026|16-05-2026|2026/05/16|16/5/2026|16.5.2026|16-5-2026|2026/5/16|18/06/2026|18.06.2026|18-06-2026|2026/06/18|18/6/2026|18.6.2026|18-6-2026|2026/6/18|17/07/2026|17.07.2026|17-07-2026|2026/07/17|17/7/2026|17.7.2026|17-7-2026|2026/7/17|18/08/2026|18.08.2026|18-08-2026|2026/08/18|18/8/2026|18.8.2026|18-8-2026|2026/8/18|17/09/2026|17.09.2026|17-09-2026|2026/09/17|17/9/2026|17.9.2026|17-9-2026|2026/9/17|" ' ultimi 7 casi
spiaOk=True
spiaTxt=""
If spiaOk Then ' gioca SOLO se è uscita la condizione (es. spia sulla ruota)
okCasiEs=False
For ci=1 To nTrov
If casiEs(ci)=es Then okCasiEs=True
Next
If okCasiEs Then ' ultimi N casi calcolati su Lottodesk (non sulle date fisse dell'Analyzer)
cont=cont+1
t=t+1
Scrivi : ColoreTesto 2
Scrivi "Giocata n° " & Format2(t) & " " & DataEstrazione(es),1
ColoreTesto 0
' --- Ambata 1: n° 72 ---
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,1,5)-Estratto(es,3,5)+3)
ImpostaGiocata 1,am,ru,posta,k
' --- Ambi secchi ---
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,1,5)-Estratto(es,3,5)+3)
am(2)=Fuori90(Estratto(es,2,2)+Estratto(es,5,5)+4)
For p=2 To 2
Do
usato=False
For q=1 To p-1
If am(p)<>0 And am(p)=am(q) Then usato=True
Next
If usato Then am(p)=Fuori90(am(p)+1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 2,am,ru,poste,k
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,1,5)-Estratto(es,3,5)+3)
am(2)=Fuori90(90+Estratto(es,2,3)-Estratto(es,4,3)+2)
For p=2 To 2
Do
usato=False
For q=1 To p-1
If am(p)<>0 And am(p)=am(q) Then usato=True
Next
If usato Then am(p)=Fuori90(am(p)+1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 3,am,ru,poste,k
' --- Lunghetta (3 numeri): 72 - 47 - 59 (ambo e terno) ---
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,1,5)-Estratto(es,3,5)+3):am(2)=Fuori90(Estratto(es,2,2)+Estratto(es,5,5)+4):am(3)=Fuori90(90+Estratto(es,2,3)-Estratto(es,4,3)+2)
For p=2 To 3
Do
usato=False
For q=1 To p-1
If am(p)<>0 And am(p)=am(q) Then usato=True
Next
If usato Then am(p)=Fuori90(am(p)+1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 4,am,ru,postee,k
Gioca es
End If ' okCasi
End If ' spiaOk
End If
End If
End If
End If
Next
ScriviResoconto
End Sub
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 = 1
Case vbFriday ' venerdi
gMancanti = 1
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 |
| franca46 |
Posted - 07 settembre 2026 : 09:24:16
Ciao dj , vediamo che spunta |
|
|
