[FONKSiYON] Mevcut Tarih Verileri Baz Alınarak +iş Günü Ilavesi Ile Ileri Süreli Tarih Bulmak.
#1
Selam ve saygıyla;
Tarih yapısında var olan verilerin ??? iş günü; örneğin 18 iş günü eklenmesiyle oluşacak yeni tarihleri bulmak için nasıl bir fonksiyon yazmalıyız ?



  Alıntı
Bu mesajı beğenenler:
#2
ARAMA bolumune is gunu kelime ile daha onceden uzerinde calisilmis ornek calismalara ulasabilirsiniz.
Onur-Can üstadın ornegını ınceleyebılırsınız.



  Alıntı
Bu mesajı beğenenler:
#3
İlginize teşekkürler,
Dediğiniz örneğe baktım, ayrıca sitede bu belirttiğim konuya yaklaşım olarak benzeyen bir örneği de yok sanki. Genelde 2 tarh arası işgünü hesaplatma yönünde çalışmalar mevcut, ancak benim sorunum belirli bir tarih ten , örneğin 45 iş günü sonra hangi ayın kaçıncı günü olacağı,



  Alıntı
Bu mesajı beğenenler:
#4
=dateadd("d";45;[Tarih]) ______> Tarih kutusunda yazan veriye 45 gun eklenen tarihi gosterir.
=datediff("d"; IlkTarih; SonTarih) ____> iki tarih arasindaki gun sayisini verir.
NOT: metin kutusu denetim kaynagina yazildiginda



  Alıntı
Bu mesajı beğenenler: seos0038
#5
Kolaylıklar diliyorum, yanıtınıza da teşekkürler ancak, örneğin İfade3: DateAdd("d";10;[T1]) fonksiyonu T1 tarihine 10 gün ekliyor. Bu sizin belirttiğiniz fonksiyonun aynısı gibi, oysa eklenen 10 gün takvim günü, benim istediğim ise "iş günü" ; bu konuda sitede hiçbir örnek bulamadım



  Alıntı
Bu mesajı beğenenler:
#6
msgbox "****" & Format(GunHesaplama(#12/1/2020#, 10), "long date")

Visual Basic
  1. Public Function GunHesaplama(Baslama As Date, Ekle As Long) As Date
  2. Dim DonguTarih, Bitis As Date, IsG, Sayac, kkk As Long
  3. '**** Sayac = Cumartesi-Pazari say
  4. '**** IsG = Calisilan Gunu say
  5. Bitis = DateAdd("d", Ekle, Baslama)
  6. For DonguTarih = Baslama To Bitis
  7. If Eval(Weekday(DonguTarih, vbMonday) & " In(6,7)") Then Sayac = Sayac + 1 Else IsG = IsG + 1
  8. Next DonguTarih
  9. kkk = IsG + Sayac
  10. GunHesaplama = DateAdd("d", Sayac, Bitis)
  11. GunHesaplama = DateAdd("d", IIf(Weekday(DonguTarih, vbMonday) = 6, 2, IIf(Weekday(DonguTarih, vbMonday) = 7, 1, 0)), GunHesaplama)
  12. End Function



Is Gunu Hesaplama Konu ornegini inceleyebilirsiniz.

NOT: Resmi ve dini bayram gunleri haric.



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [TABLO] Iki Tabloda Tarih Alanlarını ,tek Alanda Altalta Getirme Access Ziyaretçisi 9 682 24-07-2025, 23:58
Son Mesaj: Access Ziyaretçisi
  [SORGU] Iki Tarih Arasındaki Görevlere Göre Puantajı Düzenleme kral8596 18 1.112 14-04-2025, 17:35
Son Mesaj: halily
  [VBA] Birden çok Seçenek Seçili Alandaki Verileri Kopyalama evidi 9 636 26-02-2025, 17:36
Son Mesaj: evidi
  Form üzerinden Bir Kaç Tabloya Verileri Kaydetmek myesukan 2 400 21-01-2025, 16:45
Son Mesaj: myesukan
  [TABLO] Mevcut Ay Ve Yıl Otomatik Gelebilir Mi? omergenc7 27 1.983 31-10-2024, 14:46
Son Mesaj: omergenc7
  [SORGU] Tarih Seçimi kahramanselim 5 448 18-10-2024, 14:01
Son Mesaj: kahramanselim
  [TABLO] Word Tablodan Tarih Aktarımı kahramanselim 6 510 01-10-2024, 12:34
Son Mesaj: halily
  Iş Günü Hesabı (yine) TheREDROSE 14 1.028 20-08-2024, 12:58
Son Mesaj: TheREDROSE

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):