Function GetElapsedTime()

 Dim totalhours As Long, totalminutes As Long, totalseconds As Long

 Dim days As Long, hours As Long, Minutes As Long

 Dim tarih1, tarih2 As Date

 

 tarih1 = Forms!form2.Metin4

 tarih2 = Forms!form2.Metin6

 

 days = Int(CSng(tarih1))

 totalhours = Int(CSng(tarih1 * 24))

 totalminutes = Int(CSng(tarih1 * 1440))

 hours = totalhours Mod 24

 Minutes = totalminutes Mod 60

 Forms!form2.Metin25 = days & " Gün " & hours & " Saat " & Minutes & " Dakika "

 days = Int(CSng(tarih2))

 totalhours = Int(CSng(tarih2 * 24))

 totalminutes = Int(CSng(tarih2 * 1440))

 hours = totalhours Mod 24

 Minutes = totalminutes Mod 60



Forms!form2.Metin27 = days & " Gün " & hours & " Saat " & Minutes & " Dakika "

End Function