2 Datetime Verisi Arasındaki Farkı Bulmak

1 2 3
14/12/2020, 16:35

footprinting

hocam

17.11.2020 00:02:52 - 17.11.2020 00:05:00 bu iki tarih arasındaki fark 00:02:08

ama ben şuan burdaki farkı

17.11.2020 00:02:52 - 17.11.2020 00:05:00 süre olarak 0,03 alıyorum bu sürede 00:03:00 'e denk geliyor yani süredeki veriyle yukarıdaki tam değeri alamıyorum.
14/12/2020, 16:50

berduş

modüle aşağıdaki fonksiyonu ekleyip sorgudan çağırmayı deneyebilirsiniz
Function SureFark(BasTrh As Date, BitTrh As Date) As String
TSaniye = Abs(DateDiff("s", [BasTrh], [BitTrh]))

LngSn = TSaniye Mod 60
LngDk = (TSaniye \ 60) Mod 60
LngSt = (TSaniye \ 3600) Mod 60

SureFark = Format(LngSt, "00") & ":" & _
          Format(LngDk, "00") & ":" & _
          Format(LngSn, "00")

End Function
sorgudan çağırma
Sure: SureFark([BaslangicTarihi];[BitisTarihi])
eğer işlem yapacaksanız doğrudan datediff("s".....) ile alanan veri kaydedilip fonksiyon ona göre yeniden düzenlenebilir
14/12/2020, 17:12

berduş

Not: siz süre farkı olarak dakika secmişsiniz:
Datediff("n".....) burada ("n") derseniz işlemler dakika cinsinden hesaplanır, saniye seviyesinde hassaslık için datedif("s",......)
14/12/2020, 19:10

footprinting

Hocam modülü tanımladım ama Sayısal veri olarak vermiyor ""ss:dd:nn" şeklinde veriyor
14/12/2020, 20:47

berduş

aynı şeyi daha önceden de söyledim isterseniz saniye cinsinden olan süreyi bu formata çeviren bir fonksiyon da yapılabilir ama bu formatta olan verilerle işlem yapamazsınız. toplam yada ortalama süre gibi işlemleri ancak saniye cinsinden fark üzerinden yapabilirsiniz yani datediff("s"....)
o nedenle sorgunuzda kullandığınız KapatmaSure saniye cinsinden hesaplayıp öyle bırakın
2IsEmriSayisi kullandığınız Saat: Int(SureOrtlama) & ":" & CInt((SureOrtlama-Int(SureOrtlama))*60) ne için
14/12/2020, 20:54

berduş

saniyeyi çeviren Fonksiyon kodu
Function SureCvr(Sure As Long) As String
TSaniye = Sure

LngSn = TSaniye Mod 60
LngDk = (TSaniye \ 60) Mod 60
LngSt = (TSaniye \ 3600) Mod 60

SureCvr = Format(LngSt, "00") & ":" & _
          Format(LngDk, "00") & ":" & _
          Format(LngSn, "00")

End Function
aşağıdaki dosyada 2IsEmriSayisi kullandığınız Saat  yok,  2IsEmriSayisi kullandığınız Saat: Int(SureOrtlama) & ":" & CInt((SureOrtlama-Int(SureOrtlama))*60) ne için olduğunu açıklarsanız o nu da eklemeye çalışırım.
tekrar belirteyim sizin kullandığınız yöntem çok sorun çıkarır işlemler için saniyeyi kullanın, başkalarının anlayacağı şekle çevirmek kolay
1 2 3