Function Fark_Hesapla(interval)
 
 Dim totalhours As Long, totalminutes As Long, totalseconds As _
     Long
 Dim days As Long, hours As Long, minutes As Long, Seconds As Long
 
 days = Int(CSng(interval))
 totalhours = Int(CSng(interval * 24))
 totalminutes = Int(CSng(interval * 1440))
 totalseconds = Int(CSng(interval * 86400))
 hours = totalhours Mod 24
 minutes = totalminutes Mod 60
 Seconds = totalseconds Mod 60
 
 Fark_Hesapla = days & " Gün " & hours & " Saat " & minutes & _
 " Dk "
 ' & Seconds & " Sn "
 
 End Function

SELECT (95100 /3600/24) || ' gün, ' ||(95100 %86400/3600) || ' saat, ' || (95100 %3600/60) ||' dakika.';