Dim numero As Double = Double.Parse(tuovalore)
        'calcolo delle ore
        Dim ore As Integer = System.Math.Truncate(numero)
        'calcolo dei minuti
        Dim minuti As Double = 60 * (numero - ore)
        Dim min_arrotondati As Double
        min_arrotondati = System.Math.Truncate(minuti)
        'calcolo dei secondi
        Dim secondi As Double = System.Math.Round(60 * (minuti - min_arrotondati))
        'costruzione della stringa
        Dim ora As String = ore.ToString() & ":" & min_arrotondati.ToString() & ":" & secondi.ToString()
        'formattazione e restituzione dell'ora
        Dim ora2 As Date = CDate(ora)
        Me.Label1.Text = ora2.ToString("hh:mm:ss")