Skip to main content

AccessTr.neT


Tarih Sorgusuna Saat Dakika Engeli

Tarih Sorgusuna Saat Dakika Engeli

#7
aşağıdaki kodu da deneyebilirsiniz
Sorgu = "select *  from [yükleme$] where fix(f3) =  " & Fix(CDbl(CDate(TextBox1.Value))) & ""
Cevapla
#8
(26/06/2020, 19:20)berduş yazdı: aşağıdaki kodu da deneyebilirsiniz
Sorgu = "select *  from [yükleme$] where fix(f3) =  " & Fix(CDbl(CDate(TextBox1.Value))) & ""
fix diye fonksiyonu ilk defa gördüm hayatımda.Tarih formatınamı çeviriyor abey?
Cevapla
#9
fix() küsüratlı sayının virgüden sonraki kısmını almıyor, aşağı yuvarlıyor
mesela clng(7.7)=>8 olurken  fix(7.7)=>7 olur ki bu durumda saat olarak öğlen 12 sonrası zaman eklenmiş her kayıt tarih olarak ertesi günü gösterir.
Mesela tarih olarak
11.11.1111 11:11:11 ise 11.11.1111 tarihli kayıtlar gelirken
11.11.1111 12:11:11 ise 12.11.1111 tarihli kayıtlar gelir
zaten accesste yanılmıyorsam aslında tarih türü yok gün kısmını tamsayı, saat:dakika:saniye.... kısmını ise bu sayının küsüratı olarak saklıyor yani aslında zaman+saat double sayı türü olarak saklanıyor biz saati girmezsek Access saatin küsüratı olarak 0 alıyor yani 00:00:00... gibi
Cevapla
#10
(26/06/2020, 19:36)berduş yazdı: fix() küsüratlı sayının virgüden sonraki kısmını almıyor, aşağı yuvarlıyor
mesela clng(7.7)=>8 olurken  fix(7.7)=>7 olur
zaten accesste yanılmıyorsam aslında tarih türü yok gün kısmını tamsayı, saat:dakika:saniye.... kısmını ise bu sayının küsüratı olarak saklıyor yani aslında zaman+saat double sayı türü olarak saklanıyor biz saati girmezsek Access saatin küsüratı olarak 0 alıyor yani 00:00:00... gibi
Sağol abey.
Cevapla
#11
(26/06/2020, 18:32)feraz yazdı: Alttaki kodu deneyin ayrıca hücreleri temizlemek için kodda ekledim.Koda eklersiniz.


Cells.ClearContents


Sorgu = "select * from [yükleme$] where format(f3,'dd.mm.yyyy') =  '" & Format(CLng(CDate(TextBox1.Value)), "dd.mm.yyyy") & "'"

Hocam destek için teşekkürler, sorunsuz çalışıyor...

(26/06/2020, 19:20)berduş yazdı: aşağıdaki kodu da deneyebilirsiniz
Sorgu = "select *  from [yükleme$] where fix(f3) =  " & Fix(CDbl(CDate(TextBox1.Value))) & ""

@berduş hocam selamlar..

Yine klasınızı konuşturmuşsunuz.. fomatla falan uğraşma diyorsunuz yani Img-grin Emeğinize sağlık.. Sağolun.
Son Düzenleme: 27/06/2020, 08:15, Düzenleyen: kanakan52.
Cevapla
#12
)
içinde zaman da varsa Clng öğleden sonrası için ertesi günü gosteriyor, o nedenle fix() komutunu önerdim.
Iyi çalışmalar
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task