Private Function Arrotonda(ByVal valore As Double, Optional ByVal decimali As Integer = 2) As Double
        Dim appoggio As Double
        'elevo 10 al numero di decimali che voglio
        appoggio = 10 ^ decimali
        'moltiplico il valore per la variabile di appoggio
        valore = valore * appoggio
        'tolgo tutti i decimali in eccesso
        valore = CInt(valore)
        'divido per la variabile di appogglio per riportare indietro il punto
        valore = valore / appoggio
        'restituisco il risultato della funzione
        Arrotonda = valore
    End Function