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.
Option Explicit
Sub Main
Dim id
Dim sFile
sFile = GetDirectoryAppData & "basedati.dat"
id = 1
Dim aMatriceNum
Call GetEstrazioneCompleta(id , aMatriceNum)
Call SalvaEstrazione ( aMatriceNum , "07/01/1871",IndiceAnnuale ( id) ,sFile ,CLng(id) )
Call DisegnaEstrazione(id)
End Sub