Skip to main content

AccessTr.neT


2 Datetime Verisi Arasındaki Farkı Bulmak

2 Datetime Verisi Arasındaki Farkı Bulmak

#7
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.
Cevapla
#8
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
Cevapla
#9
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",......)
Cevapla
#10
Hocam modülü tanımladım ama Sayısal veri olarak vermiyor ""ss:dd:nn" şeklinde veriyor
Cevapla
#11
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
Cevapla
#12
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
.rar Foot_Sure_hy.rar (Dosya Boyutu: 20,1 KB | İndirme Sayısı: 3)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task