Per salvo50 , una cortesia x uno script

[salvo50]

x salvo 50 cortesemente formula somma pentagono,grazie

Ciao Gabby, non conosco la formula somma pentagono, poi cosa devo sommare?

 

[gabby]

estratto 5 di roma +78

 

[Alien.]

Scusate come mai gli script non mi funzionano più,grazie.
Non danno nulla oppure un solo ambo-

 

[salvo50]

Per Gabby

Option Explicit
Sub Main
Dim A,Es,R1,Nu,Fin,Num
Es = EstrazioneFin
R1 = RO_
Nu = 18
A = Estratto(Es,R1,5)
Num = Fuori90(A + Nu)
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi
Scrivi "Quinto estratto di " & NomeRuota (R1)& " " & Format2(A) & " + " & Format2(Nu) & " = " & Format2(Num),1
End Sub

 

[gabby]

grazie