Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Girilen Tarihin Haftanın Başlangıçı Ve Sorunu Gösteren Fonksiyon Veya Sorgu

Girilen Tarihin Haftanın Başlangıçı Ve Sorunu Gösteren Fonksiyon Veya Sorgu
cozum@msn.com
Yeni Üye 15-40

*
Kayıt Tarihi: 07.12.2018
Toplam 9 konu açtı.
Toplam 19 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 EN,
Beğeniler: 4 / 0
#1
04-08-2022, 08:14
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.



  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#2
04-08-2022, 13:20
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...



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Haftanın Günleri Ve Form Nesneleri kahramanselim 1 307 06-11-2024, 13:42
Son Mesaj: kahramanselim
  Haftanın Günleri evren89 9 789 14-10-2024, 22:00
Son Mesaj: halily
  [SORGU] Sorgu Ifadesi Içindeki Fonksiyon Ifade Içinde Kullanılamaz Hatası Mecnun24 7 664 27-08-2024, 16:53
Son Mesaj: Mecnun24
  [RAPOR] Raporda Kolon Gizleme Veya Sorgudan Excel' E Aktarırken Boş Kolonları Aktarmasın Samih KARSLI 2 425 15-03-2024, 15:39
Son Mesaj: Samih KARSLI
  [FORM] Inputbox Kutusuna Girilen Değere Pasword Maske Uygulama orderyazbim 2 485 22-01-2024, 22:12
Son Mesaj: orderyazbim
  Bir Sütuna Girilen Verileri Başka Bir Sütun Ile Karşılaştırıp Hesaplama bilservisci 4 721 08-01-2024, 11:58
Son Mesaj: bilservisci
  Açılır Kutu Değerine Göre Tablo2'ye Değer Yazsın Veya Satır Eklesin. ŞabanTR 11 997 24-12-2023, 14:38
Son Mesaj: dsezgin
  Access Verilerini Google Studio Veya Farklı Dashboard çözümleri Ile Raporlama Hk. adnnfrm 2 561 18-10-2023, 08:11
Son Mesaj: adnnfrm

Foruma Git:


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