AccessTr.neT

Merhaba Arkadaşlar;

ekteki tabloda taksitlendirme yapılıyor ayın herhangi bir günü işlem yapılıyor

örneğin

başlama tarihi 13/01/2009 olan bir kaydın taksitlendirmesinde
taksit işlemi bir sonraki ayın son günü olarak başlamasını istiyorum
mevcut örneklerde taksitlendirmede 5 taksit yaptığımızı varsaydığımızda

başlama 13/01/2009 ise

taksitler 13/02/2009
13/03/2009
13/04/2009
13/05/2009
13/06/2009
olarak taksitlendiriliyor
burada taksitleri
28/02/2009 ----> şubat 29 ise 29/02/2009
31/03/2009
30/04/2009
31/05/2009
30/06/2009 olarak nasıl yapabilirim.

kolay gelsin

Öncelikle söz konusu ayın son gününü belirleyelim. Bunun için işlem tarihinden hareket edeceğiz. Ben olsan bunları hep değişkenlere atardım

Kod:
dim islemtarihi, aysonu as date

dim ay as integer

Böylece tarih formatında islemtarihi ve aysonu adında iki değişken ve ay adında sayısal bir değişken tanımladık

Şimdi işlem tarihinin bulunduğu ayın son gününü bulalım:

Kod:
Sub SonGün()

    Dim i As Date

    Dim x As Date

    i = islemtarihi 

    x = DateAdd("m", 1, i - (Day(i) - 1))-1

    msgbox x 

End Sub

Bu alt yordamı herhangi bir yerden çağırarak ayın son günün bulabilirsiniz. Kullanımı için

Kod:
songün

yazmanız yeterlidir.

Değişken hangi ayı aldıysa o ayın son günü de aysonu değişkenine atanacaktır. Bunun için msg olan satırda düzenleme yapın ve değeri aysonu değişkenine atayın. Artık ay sonlarına taksit yükleyebilirsiniz. Bu iş için yine dateadd kullanmalısınız.

Not: Örneğinizi henüz görebildim. Sanırım sonradan yüklediniz. Şimdi inceliyorum.

Ben örneğinize yukardaki kodları uyarladım. Örneğiniz aşağıdadır.

Kolay gelsin.

Yardımlarınız için teşekkür ederim, Mehmet hocam

kolay gelsin

Yardımcı olabildiysen mutlu olurum.

macaliskan

mehmetdemiral

macaliskan

mehmetdemiral