Skip to main content

AccessTr.neT


taksitlendirmede ödeme günlerini ayın son günün olarak belirleme

taksitlendirmede ödeme günlerini ayın son günün olarak belirleme

Çözüldü #2
Ö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.
.rar t_ornek_999_mdemiral.rar (Dosya Boyutu: 179,15 KB | İndirme Sayısı: 58)
İnadına, ille de Accesstr.net...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: taksitlendirmede ödeme günlerini ayın son günün olarak belirleme - Yazar: mehmetdemiral - 19/04/2009, 00:23
Task