Ayın Kaçıncı Haftası
#1
Selamun aleykum

Metin1 adlı kutuya tarih girdiğimde metin 2 adlı kutuya ayın kaçıncı haftası olduğunu yazmasını istiyorum

yardımlarınız için teşekkurler



  Alıntı
Bu mesajı beğenenler:
#2
(20-05-2024, 22:54)evren89 demiş ki: Metin1 adlı kutuya tarih girdiğimde metin 2 adlı kutuya ayın kaçıncı haftası olduğunu yazmasını istiyorum

metin2 denetim kaynağına
=format([Metin1];"ww") ile haftasını,

=Kacinci([Metin1]) ayın kaçıncı hafta olduğunu bulabilirsiniz.

Visual Basic
  1. Public Function Kacinci(Trh As Date) As Long
  2. Dim Zaman As Date, SW As Long
  3. For Zaman = DateSerial(Year(Trh), Month(Trh), 1) To DateSerial(Year(Trh), Month(Trh) + 1, 0)
  4.    If Weekday(Zaman, vbMonday) = 1 Then SW = SW + 1
  5.    If Zaman = Trh Then Kacinci = SW + 1: Exit For
  6.    Next Zaman
  7. End Function





  Alıntı
Bu mesajı beğenenler:
#3
Hocam Vaktinizi alıyorum ama uygulama üzerinden göster misiniz.


Eklenti Dosyaları
.zip   Yeni WinRAR ZIP arşivi (2).zip (Boyut: 25,2 KB / İndirilme: 4)



  Alıntı
Bu mesajı beğenenler:
#4
(21-05-2024, 09:19)evren89 demiş ki: Vaktinizi alıyorum ama uygulama üzerinden göster misiniz.

1. Modul1 oluşturup, Kacinci prosedürü taşıyın,
2. Metin2 denetim kaynağına gidip, =Nz(Kacinci([Metin1]);0) olarak yazın.

Metin1 güncelledikçe Metin2 ayın kaçıncı haftası olduğunu gösterir.

NOT: Metin1'e girilen tarih değerinin yılın kaçıncı haftası olduğunu Metin2 denetim kaynağına =Format(Metin1;"ww") yazmanız yeterli olacaktır.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-9 [VBA] Ayın Son 10 Günü alperalper 5 243 14-03-2022, 15:49
Son Mesaj: dsezgin
  [FORM] Ayın Ilk Ve Son Günlerini Yazmak M_Kemal_Askeri 2 254 07-10-2021, 10:14
Son Mesaj: alikagan
  [FORM] Seçilen Haftanın/ayın Ilk Ve Son Günlerini Bulma ates2014 32 1.955 04-01-2021, 22:41
Son Mesaj: ates2014
access-sql-5 Her Ayın 15'inden 15'ine Işlem Yapma alperalper 1 478 18-02-2020, 16:03
Son Mesaj: dsezgin
  [VBA] Ayın tarihlerini gün gün sıralama deniz_tunc 22 3.766 19-11-2018, 09:19
Son Mesaj: deniz_tunc
  [TABLO] Bir değerin A-Z sıralamasına göre kaçıncı sırada olduğunu bildiren fonksiyon? baron 5 3.576 23-03-2017, 16:41
Son Mesaj: bakiunsal06
access-sql-18 [SORGU] SQL ayın son günü, tarih kolonunu arttırarak farklı tabloya kayıt ettirme molku 1 1.529 23-07-2016, 01:00
Son Mesaj: dsezgin
  Her ayın son gününü nasıl bulurum? assenucler 11 11.185 06-10-2014, 14:00
Son Mesaj: oguzt

Foruma Git:


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