Dim calcolatore As New Calcolatore
        Dim reader As Dati_salvati
        Dim FileNum As Integer
        Dim da_agg As New Deposito
        Dim leggi As New Read_Excel
        FileNum = FreeFile()
        FileOpen(FileNum, Application.StartupPath & "Profilo.dat", OpenMode.Random, , , Len(reader))
        FileGet(FileNum, reader, save)
        If reader.calcolo = 1 Then
            id = reader.id
            If (Not reader.sel.Equals("")) Then
                Try
                    da_agg = leggi.prova(reader.sel)

                Catch ex As Exception
                    MsgBox("qualcosa è andato storto: " & ex.ToString)

                End Try
            End If
' in data c'è una data antecedente a oggi, la differenza è quanti giorni deve calcolare, quote_iniziali è un integer, cassa è un double, settimanale vale 1o2 (nn cambia) ritirare fate un 20, da_agg è una lista di nodi, id è un integer 
            calcolatore.start2(reader.data, Math.Abs(DateDiff(DateInterval.Day, Today, reader.data)), reader.quote_iniziali, reader.cassa, reader.settimanale, reader.ritirare, da_agg, 6, id)

        End If
        FileClose(FileNum)
    End Sub