Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Grazie prof...comprensibili come sempre
Vedi l'allegato 14360
è mezz'ora che sto cercando di mettere la mia immagine pronta x questa sera..... uffa!!!!
selly mi devi dire bravo quando vinciamo per ora ancora nn vinciamo ... cmq grazie ...
selly visto che oggi nn ci sono le estr possiamo approfittare di fare una lezioncina sui diam in decina ..
anche se tu conosci gia gli ambi diam in decina ...
Sub Main()
Ini = EstrazioneFin -9
fin = EstrazioneFin
For es = ini To fin
For r = 1 To 10
If r = 10 Then r = 10
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,p1)
'-----------------------------
If b = DiametraleD(a) Then
'If b = Diametrale (a) Then
'If b = Figura (a) Then
'------------------------------------
Scrivi"" & DataEstrazione(es,1) & "",True
Scrivi" " & Left(NomeRuota(r),2) & " " & " " & StringaEstratti(es,r) & " > " & _
Format2(a) & "-" & Format2(b)
Scrivi String(85,"-")
End If
Next
Next
Next
Next
End Sub