Novità

Per Mike

antonio65

Super Member >PLATINUM<
Buonasera Mike...volendo fare un sommativo per la lotteria Millionsday...anzichè il fuori90 dovrei usare il fuori 55...ma non c'è....a parte il 90 c'è il fuori49 fuori42 e fuorix
ho provato quest'ultimo Fuorix ma è come se riconoscesse sempre 90 numeri....essendo una funzione FT se ti è possibile mi potresti dare un suggerimento?Grazie Antonio
 
ciao

si usa MOD

Sub Main
For p1= 1 To 54
For p2=p1+1 To 55
a=(p1+p2) Mod 55
If a=0 Then a=55
Scrivi p1 & " " & p2 & " " & a
Next
Next

End Sub
 
Ciao i legend lo so, me ne sono servito tante volte....ma in questo caso non riesco a coordinare ciò che voglio....il sommativo gira ma occorre
inserire almeno credo i codici che ha scritto avio nel post #2
 
Ciao a tutti!

Antonio, probabilmente l'hai scritto male, il fuorix lo puoi fare con qualunque numero

Codice:
 Option Explicit
Dim a,b,c
Sub Main
   a = 53
   b = 37
   c = FuoriX((a + b),55)
   Scrivi Format2(c)
End Sub

io l'ho sfruttato anche con numeri superiori a 90
 
Ultima modifica:
Ti faccio un altro esempio col fuori 99

Codice:
Option Explicit
Dim a,b,c
Sub Main
   a = 53
   b = 69
   c = FuoriX((a + b),99)
   Scrivi Format2(c)
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 settembre 2025
    Bari
    01
    26
    50
    16
    49
    Cagliari
    61
    18
    01
    62
    22
    Firenze
    84
    23
    32
    26
    88
    Genova
    24
    27
    47
    76
    44
    Milano
    59
    08
    06
    11
    39
    Napoli
    02
    65
    40
    28
    57
    Palermo
    09
    66
    51
    81
    49
    Roma
    76
    55
    73
    88
    65
    Torino
    38
    49
    40
    21
    90
    Venezia
    80
    60
    34
    69
    42
    Nazionale
    89
    76
    64
    80
    21
    Estrazione Simbolotto
    Palermo
    39
    34
    02
    08
    43
Indietro
Alto