A.S.C Filtre, Grafik ve Raporlama Eklentisi

Girilen Tarihin Haftanın Başlangıçı Ve Sorunu Gösteren Fonksiyon Veya Sorgu
#1
merhaba.


Girilen Tarihin   haftanın başlangıçı ve sorunu gösteren fonksiyon veya sorgu 
ihtiyaçım var.

örnek : 

tarih: 04.08.2022
hafta başl. : 01.08.2022
hafta bitiş :  07.08.2022       sonuçunu görmeliyim.


yardımcı olan arkadaşlara şimdiden teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:
#2
Form üzerinde bir komut düğmesinin click olayına aşağıdaki gibi kod kullanılabilir. 3 metin kutusu oluşturulur. Biçim Kısa Tarih seçilir.
txtGirilenTarih
txtHaftaBasi
txtHaftaSonu

Visual Basic
  1. Dim TarihAl As Date
  2. Dim TarihNo As Byte
  3.  
  4. TarihAl = Me.txtGirilenTarih
  5. TarihNo = Weekday(Me.txtGirilenTarih, vbMonday)
  6.  
  7. Select Case TarihNo
  8.  
  9. Case 1
  10.  
  11. Me.txtHaftaBasi = Me.txtGirilenTarih
  12. Me.txtHaftaSonu = Me.txtGirilenTarih + 6
  13.  
  14. Case 2
  15.  
  16. Me.txtHaftaBasi = Me.txtGirilenTarih - 1
  17. Me.txtHaftaSonu = Me.txtGirilenTarih + 5
  18.  
  19. Case 3
  20.  
  21. Me.txtHaftaBasi = Me.txtGirilenTarih - 2
  22. Me.txtHaftaSonu = Me.txtGirilenTarih + 4
  23.  
  24. Case 4
  25.  
  26. Me.txtHaftaBasi = Me.txtGirilenTarih - 3
  27. Me.txtHaftaSonu = Me.txtGirilenTarih + 3
  28.  
  29. Case 5
  30.  
  31. Me.txtHaftaBasi = Me.txtGirilenTarih - 4
  32. Me.txtHaftaSonu = Me.txtGirilenTarih + 2
  33.  
  34. Case 6
  35.  
  36. Me.txtHaftaBasi = Me.txtGirilenTarih - 5
  37. Me.txtHaftaSonu = Me.txtGirilenTarih + 1
  38.  
  39. Case 7
  40.  
  41. Me.txtHaftaBasi = Me.txtGirilenTarih - 6
  42. Me.txtHaftaSonu = Me.txtGirilenTarih
  43.  
  44. End Select



Ya da haftabaşı ve haftasonu olarak 2 fonksiyon oluşturulup aşağıdaki şekilde kullanılabilir.
1.Fonksiyon HaftaBası

Visual Basic
  1. Public Function HaftaBasi(GirilenTarih As Date) As Date
  2. TarihNo = Weekday(GirilenTarih, vbMonday)
  3. Select Case TarihNo
  4. Case 1
  5. HaftaBasi = GirilenTarih
  6. Case 2
  7. HaftaBasi = GirilenTarih - 1
  8. Case 3
  9. HaftaBasi = GirilenTarih - 2
  10. Case 4
  11. HaftaBasi = GirilenTarih - 3
  12. Case 5
  13. HaftaBasi = GirilenTarih - 4
  14. Case 6
  15. HaftaBasi = GirilenTarih - 5
  16. Case 7
  17. HaftaBasi = GirilenTarih - 6
  18. End Select
  19. End Function



2.Fonksiyonumuz HaftaSonu

Visual Basic
  1. Public Function HaftaSonu(GirilenTarih As Date) As Date
  2. TarihNo = Weekday(GirilenTarih, vbMonday)
  3. Select Case TarihNo
  4. Case 1
  5. HaftaSonu = GirilenTarih + 6
  6. Case 2
  7. HaftaSonu = GirilenTarih + 5
  8. Case 3
  9. HaftaSonu = GirilenTarih + 4
  10. Case 4
  11. HaftaSonu = GirilenTarih + 3
  12. Case 5
  13. HaftaSonu = GirilenTarih + 2
  14. Case 6
  15. HaftaSonu = GirilenTarih + 1
  16. Case 7
  17. HaftaSonu = GirilenTarih
  18. End Select
  19. End Function



Fonksiyonların Kullanım Şekli;

Visual Basic
  1. Me.txtHaftaBasi = HaftaBasi(Me.txtGirilenTarih)
  2. Me.txtHaftaSonu = HaftaSonu(Me.txtGirilenTarih)



Fonksiyonda Kullanılan TarihNo değişkenini modülün en başına yazmanız gerekmekte;
Şu şekilde
Visual Basic
  1. Option Compare Database
  2. Option Explicit
  3. Dim TarihNo As Byte


Kolay gelsin...



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Sorguda Okşulla Göre Veri Girilen Yere Elle Veri Girişi ŞabanTR 4 60 09-01-2023, 13:31
Son Mesaj: ŞabanTR
access-sql-5 Access'te LıstboX Veya Altform Seçimine Göre Grafiğin Değişmesini Sağlamak. YENIFENER 19 618 14-11-2022, 09:48
Son Mesaj: YENIFENER
  Access Verilerini Google Studio Veya Farklı Dashboard çözümleri Ile Raporlama Hk. adnnfrm 1 63 11-11-2022, 06:37
Son Mesaj: alperalper
  [FORM] GİRİLEN GÜN SAYISINA GÖRE TARİH EKLEME SOGUT01 8 1.327 10-10-2022, 10:11
Son Mesaj: Kaptan64
  Metin Kutusuna Girilen Bir Değeri Başka Metin Kutunda Arama farukozgursoy 3 98 18-09-2022, 09:31
Son Mesaj: alperalper
  [VBA] Hotmail Veya Yandex Ile Mail Gönderme (gmail Dışında Başka Hesapla) hedefkaya 0 69 28-06-2022, 14:49
Son Mesaj: hedefkaya
  Duruma Göre Kaydı Yapılan Veya Yapılmayan Metin Kutusu Boş Ise Kaydet Butonu Hata Ve tarkanaykın 2 166 26-04-2022, 23:53
Son Mesaj: tarkanaykın
  Listboxta Bulunan Itemin Veya Itemlerin Seçim Yapmadan Kolon Değerini Almak tarkanaykın 3 129 17-03-2022, 17:16
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi