sonra da saati ve dakikayı hesaplayan bir fonksiyon tanımladım
ve başlangıç ve bitiş tarih/saat kutularının odağı kaybettiğinde olayına ekledim
dilerim işinize yarar
Public Function SureHesapla()
If IsDate(Me.gor_bas_tarihi) And IsDate(Me.gor_bit_tarihi) And IsDate(Me.gor_bas_saat) And IsDate(Me.gor_bit_saat) Then
ZmnSaat = DateDiff("n", Me.gor_bas_tarihi + Me.gor_bas_saat, Me.gor_bit_tarihi + Me.gor_bit_saat) \ 60 'saati bulmak için, "\" bölme işlemini aşağı yuvarlar
Zmndk = DateDiff("n", Me.gor_bas_tarihi + Me.gor_bas_saat, Me.gor_bit_tarihi + Me.gor_bit_saat) Mod 60 ' 60'a bölümden kalanı verir
Me.sey_sur = ZmnSaat & ":" & Zmndk
End If
End Function