hafta sonunun tarihini yazdırma

[blazer2004]

arkadaşlar acces'teki formu açtığımda o günün tarihini veren bir textbox var.ben bu textbox'da hangi gün girilirse girilsin o haftanın pazar günkü tarihini versin istiyorum acaba mümkün mü?iyi çalışmalar

 

[modalı]

Sayın blazer2004,

Başka yolla yapılır mı? Bilmiyorum, ama bir fonksiyon yazdım kullanırsanız sonuca ulaşırsınız:

Aşağıdaki kodu bir modüle kopyalayıp kaydedin.

Public Function İlkPazarGünü(tarih As Date) As Date
    Dim haftanıngünü As Integer
        haftanıngünü = Weekday(tarih, vbMonday)
        For x = 0 To 6
            If (haftanıngünü + x) Mod 7 = 0 Then
                İlkPazarGünü = DateAdd("d", x, tarih)
            Exit Function
            End If
        Next x
End Function

Sonraki İlk pazar günü tarihinin görünmesini istediğiniz metin kutusunun veri kısmına

=İlkPazarGünü(hesaplayacağınıztarih)

yazın. Eğer o günkü tarihi hesaplamak istiyorsanız o zaman

=İlkPazarGünü(Date())

yazın.

İyi çalışmalar

 

[blazer2004]

çok teşekkürler sayın modalı tam istediğim gibi oldu.bir şey daha soracaktım ben programında pazarı buldurduktan sonra mesela(11.03.2007)her aya bu tarihi getirtiyom yani(11.04.2007 , 11.05.2007, 11.06.2007 ...)gibi gidiyor ama ben getirdiğim günü en yakın pazarın tarihine yuvarlamasını istiyorum aşağıdaki komutu kullandım ben buna ek komut olarak ne ekleyebilirim sayın modalı.

If aydabir.Value = True Then a1 = DateAdd("m", 1, [ilkpazargünü])
If aydabir.Value = True Then a2 = DateAdd("m", 2, [ilkpazargünü])
If aydabir.Value = True Then a3 = DateAdd("m", 3, [ilkpazargünü])

gibi gidiyor.emekleriniz için çok teşekkür ederim sayın modalı.iyi çalışmalar

 

[modalı]

Sayın blazer2004,

Bakın İlkPazarGünü bir fonksiyon ve değişkeni tarih o zaman:

If aydabir.Value = True Then a1 = İlkPazarGünü(DateAdd("m", 1, [ilkpazargünü]))

olarak değiştirirseniz o zaman eklenmiş tarihlere en yakın pazar günü görünür.

İyi çalışmalar

 

[blazer2004]

çok teşekkür ederim sayın modalı allah razı olsun.iyi çalışmalar