2 Datetime Verisi Arasındaki Farkı Bulmak

2 Datetime Verisi Arasındaki Farkı Bulmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: 2 Datetime Verisi Arasındaki Farkı Bulmak (/konu-2-datetime-verisi-arasindaki-farki-bulmak.html)

Sayfalar: 1 2 3

RE: 2 Datetime Verisi Arasındaki Farkı Bulmak - footprinting - 14/12/2020

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.

RE: 2 Datetime Verisi Arasındaki Farkı Bulmak - berduş - 14/12/2020

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

RE: 2 Datetime Verisi Arasındaki Farkı Bulmak - berduş - 14/12/2020

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",......)

RE: 2 Datetime Verisi Arasındaki Farkı Bulmak - footprinting - 14/12/2020

Hocam modülü tanımladım ama Sayısal veri olarak vermiyor ""ss:dd:nn" şeklinde veriyor

RE: 2 Datetime Verisi Arasındaki Farkı Bulmak - berduş - 14/12/2020

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

RE: 2 Datetime Verisi Arasındaki Farkı Bulmak - berduş - 14/12/2020

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