takvim seçilen tarih textbox hafta olarak aktarma

[netvolxxx]

Merhaba şu olayı bi çözemedim çalışma sayfasında açılan formda takvim var burda seçtiğim tarih userform1 üzerinde olan textbox1 hafta olarak nasıl yazdırabilirim

üstad arkadaşlardan yardım bekliyorum konu ile ilgili....

dosya ekte yükledim örnek.

 

[Biolightant]

Merhaba,
Kodlarınızı göremiyorum ama
Fonksiyon belki işinizi görebilir.

Function AyinKacinciHaftasi(Tarih As Date) As Integer
    Dim IlkGun As Date
    Dim GunFarki As Integer
    Dim KacinciHafta As Integer

    ' Ayın ilk gününü belirle
    IlkGun = DateSerial(Year(Tarih), Month(Tarih), 1)
    
    ' Ayın ilk gününün haftanın hangi gününe denk geldiğini bul
    ' vbMonday ile haftanın Pazartesi günü başlaması kabul edilir
    GunFarki = (Weekday(IlkGun, vbMonday) - 1)
    
    ' Tarih ile ayın başındaki gün sayısını alıp, 7'ye bölerek kaçıncı hafta olduğunu bul
    KacinciHafta = ((Day(Tarih) + GunFarki - 1) \ 7) + 1
    
    ' Sonucu fonksiyon çıktısı olarak döndür
    AyinKacinciHaftasi = KacinciHafta
End Function