[Access 2000 & VBA] Funzione calcolo ora in centesimi

[Desperado]

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

If mx =< 9 Then
    TEMPO_IMPIEGATO = h & ",0" & mx
else
    TEMPO_IMPIEGATO = h & "," & mx
End if

End Sub

Eventualmente questa è un'altra soluzione, che tra l'altro evita gli arrotondamenti... :metallica
Eventualmente