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 SubKod:
songünDeğ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.
