Herhangi Bir Tarihten Sonraki İlk Pazartesiyi Bulma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]FindNextMonday Fonksiyonu:
Hazır Kod
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(26 satır)Açıklama
Bu kod iki bölümden oluşmaktadır:[*]FindNextMonday Fonksiyonu:
- startDate parametresi olarak bir tarih alır.
- Weekday fonksiyonu kullanılarak startDate tarihinin haftanın günü bulunur.
- Pazartesi günü haftanın ikinci günü olduğu için (Weekday fonksiyonunda Pazar 1 olarak sayılır), sonraki Pazartesi gününe kadar geçecek gün sayısını hesaplar.
- Eğer startDate zaten Pazartesi günü ise, o günü döndürür.
- Aksi halde, startDate'den itibaren sonraki Pazartesi'ye kadar olan gün sayısını ekler ve bu tarihi döndürür.
- ShowNextMonday Makrosu:
- Kullanıcıdan InputBox ile bir tarih alır.
- Alınan tarihi FindNextMonday fonksiyonuna gönderir ve sonucu resultDate değişkenine atar.
- Sonucu, bir mesaj kutusunda gösterir, böylece kullanıcı girdiği tarihten sonra gelen ilk Pazartesi gününü görebilir.
Bu kod parçası, planlama ve zamanlama görevleri için kullanışlı olabilir, özellikle iş günlerinin başlangıç tarihlerini belirlemek gerektiğinde.
Faydalanılması temennisiyle
