codice:
Private Sub ora_fine_AfterUpdate()

'Calcolo delle Ore in Centesimi

Dim Tot_Time As Date

Tot_Time = (ora_fine) - (ora_inizio)

h = Hour(Tot_Time)
m = Minute(Tot_Time)

Dim mx As Integer

mx = (m * 5) / 3
    
TEMPO_IMPIEGATO = h & "," & mx

End Sub
Ho fatto questa funzione per la conversione di una differenza di orari in centesimi... il problema è che se la differenza di minuti è inferiore o uguale a 5 primi (es: 1h e 04) questo balordo mi restituisce un risultato sbagliato (prendendo l'esempio di prima mi diche 1h e 05 è sarebbe 1,80).
Come posso fare???
Grazie mille