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
taksitlendirmede ödeme günlerini ayın son günün olarak belirleme
Ö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
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:
Bu alt yordamı herhangi bir yerden çağırarak ayın son günün bulabilirsiniz. Kullanımı için
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.
Kod:
dim islemtarihi, aysonu as date
dim ay as integer
Ş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
Kod:
songün
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.
İnadına, ille de Accesstr.net...
Yardımlarınız için teşekkür ederim, Mehmet hocam
kolay gelsin
kolay gelsin
Yardımcı olabildiysen mutlu olurum.
İnadına, ille de Accesstr.net...
Konuyu Okuyanlar: 1 Ziyaretçi