aşağıdaki 3 fonksiyondan her hangi birini bir modüle ekleyip sorguda kullanabilirsiniz.

Function SureHesapla1(trhGrs As Date, trhCks As Date) As String

         gunFark = Int(trhCks - trhGrs)

        SaatFark = trhCks - trhGrs - gunFark

    SureHesapla1 = gunFark * 24 + Format(SaatFark, "HH") & Format(SaatFark, ":nn")

End Function

Function SureHesapla2(trhGrs As Date, trhCks As Date) As String

         gunFark = Int(trhCks - trhGrs)

        SaatFark = Hour(trhCks - trhGrs)

          dkFark = Minute(trhCks - trhGrs)

    SureHesapla2 = gunFark * 24 + SaatFark & ":" & dkFark

End Function

Function SureHesapla3(trhGrs As Date, trhCks As Date) As String

         gunFark = Int(trhCks - trhGrs)

        SaatFark = trhCks - trhGrs - gunFark

    SureHesapla3 = gunFark * 24 + Int(SaatFark * 24) & Format(SaatFark, ":nn")

End Function