Originariamente inviato da ale500
risolto da solo...un piccolo lapsus....


Ora = 14 + Left(Numero, 1)
Minuti = CSng("0," & Right(Numero, 2)) * 60:gren:
Questo funziona solo se il numero è minore di 10. Prova cosi, ti estrai parte intera e decimale.

[CODE]
Dim nInt As Integer
Dim nDec As Double

nInt = Int(Numero)
nDec = CDbl(Numero - nInt)
[CODE]