[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
    
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

[Desperado]

Forse era meglio se lo postavo di la nel sotto forum... chi mi sposta???

[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)

If Minute(Tot_Time) <= 5 Then
    m = 0 & "," & Minute(Tot_Time)
Else
    m = Minute(Tot_Time)
End If

Dim mx As Integer

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

End Sub

Non è proprio il massimo, ma almeno funziona decentemente... unico problema (che però non mi tange più di tanto) è quello che arrotonda i risultati nel range che va da 1 minuto a 5, arrotondandoli a seconda dei casi, cosa che non fa, ad esempio, con 13 minuti... poco male... se comunque avete delle soluzioni più "eleganti" da propormi sono molto ben accette...

[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