İki Zaman Arası Süreyi Saat:dakika Cinsinden Hesaplama Ve Dosyaya Kaydetme

Merhabalar;

ilişik dosyamda yer alan çıkış tarihi ve saati ile varış tarihi ve saati arasında geçen süreyi hesaplatıp yine aynı dosyadaki görev süresi alanına aktarmak istiyorum.

yapamadığım olay şudur. iki zaman arasındaki süre 24 saati geçtiği zaman örneğin 25:35 olduğu zaman tabloya 01:35 şeklinde kayıt yapıyor.

yardımı olacaklara şimdiden teşekkür ediyorum

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

burada kullandığımız thrGrs ve thrCks için formatımız nasıl olmalı

15-08-2024 11:08:00 şeklinde mi bilemedim

Tarih + zaman formatında olmalı
gün.ay.yil saat:dakika:saniye

İlgi ve emeğinizi için teşekkür ediyorum

Rica ederim
İyi çalışmalar