trasformare un numero in ora

[g.scardigno]

come posso trasformare il numero 1.3 in 1 ora e 30 minuti
:master:

Grazie per i suggerimenti...

[yyzyyz]

nella form metti 2 textbox ed un pulsante, al pulsante assegni questo codice, prova e fammi sapere se ti risolve il tuo problema

orario = Len(Text1.Text)

If orario = 3 Then
    ora = Mid(Text1.Text, 1, 1)
    minuti = Mid(Text1.Text, 3, 1) * 10
    Text2.Text = ora & ":" & minuti
End If

If orario = 4 Then
    ora = Mid(Text1.Text, 2, 1)
        If ora = "." Or ora = "," Then
        ora = Mid(Text1.Text, 1, 1)
        minuti = Mid(Text1.Text, 3, 2)
        Text2.Text = ora & ":" & minuti
    Else
        ora = Mid(Text1.Text, 1, 2)
        minuti = Mid(Text1.Text, 4, 2) * 10
        Text2.Text = ora & ":" & minuti
        
        End If
End If

If orario = 5 Then
    ora = Mid(Text1.Text, 1, 2)
    minuti = Mid(Text1.Text, 4, 2)
    Text2.Text = ora & ":" & minuti
End If