taksitlendirmede ödeme günlerini ayın son günün olarak belirleme
Tarih
18/04/2009 16:57
Konu Sahibi
macaliskan
Yorumlar
3
Okunma
1446
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
macaliskan
Aktif Üye
Kullanici Avatari
Aktif Üye
109
17/01/2009
14
İstanbul
Ofis 2003
11/03/2013,23:29
Çözüldü 
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


Ek Dosyalar
.rar   t_ornek_999.rar (Dosya Boyutu: 91,22 KB / İndirme Sayısı: 23)
Cevapla

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.757
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
23/05/2017,21:19
Çözüldü 
Sponsor Reklam
Ö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:
1
2
3
4
5
6
7
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.


Ek Dosyalar
.rar   t_ornek_999_mdemiral.rar (Dosya Boyutu: 179,15 KB / İndirme Sayısı: 55)
İnadına, ille de Accesstr.net...
Cevapla

macaliskan
Aktif Üye
Kullanici Avatari
Aktif Üye
109
17/01/2009
14
İstanbul
Ofis 2003
11/03/2013,23:29
Çözüldü 
Yardımlarınız için teşekkür ederim, Mehmet hocam

kolay gelsin
Cevapla

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.757
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
23/05/2017,21:19
Çözüldü 
Sponsor Reklam
Yardımcı olabildiysen mutlu olurum.
İnadına, ille de Accesstr.net...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Access Raporlamasını Pdf Olarak Kaydetme adaletinsesi 4 124 13/05/2017, 12:25 atoz112
  Raporu Pdf Olarak Kayıt etmek m_demir 10 545 21/04/2017, 23:46 atoz112
  Onay Kutusu Değerlerini Metin Olarak Kaydetme murat dikme 2 121 27/02/2017, 09:35 murat dikme
  pdf olarak mail gönder husem 15 357 16/02/2017, 17:59 husem
  üst satırı otomatik olarak kopyalama oguzduman81 15 575 14/02/2017, 22:06 ozanakkaya


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status