Termin Tarihi
#1
merhaba arkadaşlar, kolay gelsin,
gelen bir siparişe otomatik termin tarihi vermek istiyorum.
siparişin geldiği haftaya değilde iki hafta sonraki cumaya termin verecek, tüm terminler CUMA günününe,
yardımcı olabilirmisiniz?

[Resim: attachment.php?aid=24692]

örnek:
28/10/2021 tarihinde gelen bir sipariş için, iki hafta sonraki cumaya termin tarihi verecek yani 12/11/2021
29/10/2021 tarihinde gelen bir sipariş için, iki hafta sonraki cumaya termin tarihi verecek yani 12/11/2021
30/10/2021 tarihinde gelen bir sipariş için, iki hafta sonraki cumaya termin tarihi verecek yani 12/11/2021

01/11/2021 tarihinde gelen bir sipariş için, iki hafta sonraki cumaya termin tarihi verecek yani 19/11/2021
02/11/2021 tarihinde gelen bir sipariş için, iki hafta sonraki cumaya termin tarihi verecek yani 19/11/2021
03/11/2021 tarihinde gelen bir sipariş için, iki hafta sonraki cumaya termin tarihi verecek yani 19/11/2021


Eklenti Dosyaları
.rar   termin tarihi verme.rar (Boyut: 18,24 KB / İndirilme: 48)
.jpg   termin.jpg (Boyut: 107,34 KB / İndirilme: 95)



  Alıntı
Bu mesajı beğenenler:
#2
Visual Basic
  1. Public Function TerminTarihi(SipTar As Date) As Date
  2. Dim Trh As Date
  3. For Trh = SipTar To DateSerial(Year(SipTar) + 1, 1, 1)
  4. If Weekday(Trh, vbMonday) = 5 And CLng(Format(Trh, "ww")) = (CLng(Format(SipTar, "ww")) + 2) Then TerminTarihi = Trh: Exit For
  5. Next Trh
  6. End Function




Visual Basic
  1. Private Sub termin_ver_Click()
  2. Me.termin_tarihi = TerminTarihi(Me.siparis_tarihi)
  3. End Sub



olur.



  Alıntı
Bu mesajı beğenenler:
#3
sn dsezgin,
harikasınız, çok tesekkürler



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Ödeme Planı Oluşturmak (Başlangıç Tarihi ve Üyelik Süresi Verilerinden) ssomar 11 6.884 10-07-2025, 11:29
Son Mesaj: hmuratg
  [FORM] Teslim Tarihi Alanına Göre Süzme, Filtreleme programmer67 14 1.038 09-05-2024, 23:27
Son Mesaj: programmer67
  Listbox'ta Tarihi Seçtiğimde Sadece O Tarihe Kadar Trend Grafiğini Getirmesi YENIFENER 1 488 21-12-2022, 17:32
Son Mesaj: dsezgin
  Günü Yaklaşan Tarihi Uyarı Ile Bildirmek Kaptan64 6 909 24-05-2022, 20:47
Son Mesaj: Kaptan64
access-sql-4 önceki 3 Aylık Dönem Başlama Ve Bitiş Tarihi alperalper 5 631 03-04-2022, 23:14
Son Mesaj: dsezgin
access-sql-6 [VBA] Tarih Aralığına Denk Gelen Tarihi Bulma alperalper 2 556 01-04-2022, 21:05
Son Mesaj: alperalper
  [SORGU] Sorgu Sayfasında En Son Girilen Tarihi Görme evidi 5 597 22-08-2021, 15:52
Son Mesaj: evidi
  Raporu Günün Tarihi Ve Firma Adıyla Pdf Yapmak hegu 17 1.701 11-07-2021, 14:30
Son Mesaj: onur_can

Foruma Git:


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