Ho buttato giù una funzioncina.
codice:
Function differenza(data1 As Date, data2 As Date) As String
Dim ore As Long
Dim minuti As Long
Dim secondi As Long
secondi = DateDiff("s", data1, data2)
ore = Int(secondi / 3600)
minuti = (Int(secondi / 60)) - (ore * 60)
secondi = Int(secondi Mod 60)
If secondi = 60 Then
minuti = minuti + 1
secondi = 0
End If
If minuti = 60 Then
minuti = 0
ore = ore + 1
End If
differenza = Format(CStr(ore), "00") & ":" & Format(CStr(minuti), "00") & ":" & Format(CStr(secondi), "00")
End Function
La devi inserire all'interno di un modulo. A questo punto la puoi utilizzare come una funzione nativa di access.
esempio
codice:
select data_inizio,data_fine,differenza(data_inizio,data_fine) as diff
from tabella