Örnek Kod Taksit hesaplama örneği

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
237
En iyi yanıt
7
Puanları
28
Yaş
35
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Versiyon
Microsoft 365 Apps for enterprise TR
Merhaba arkadaşlar,

Vereceğiniz tutar, taksit sayısı ve taksit başlangıç tarihine göre taksit oluşturma örneğini bilginize sunarım.

Faydalı olması dileğiyle..

1531315915569.png

PHP:
Sub taksithesapla()

On Error Resume Next

Sayfa1.Range("A1:D1000").ClearContents

taksitsayisi2 = 1

aysayac = 1

toplammeblag = InputBox("Tutar Girin", "Taksit")

taksitsayisi = InputBox("Taksit sayısı Girin", "Taksit")

ay = CDate(InputBox("Tarih Girin", "Taksit"))

If toplammeblag = "" Or taksitsayisi = "" Or ay = "" Then Exit Sub

For i = 1 To taksitsayisi

ay2 = DateSerial(Year(ay), Month(ay) + aysayac, Day(ay))

Cells(i, 1) = "Taksit-" & taksitsayisi2

Cells(i, 2) = toplammeblag / taksitsayisi

Cells(i, 3) = ay2

Cells(i, 4) = "ÖDENECEK"

taksitsayisi2 = taksitsayisi2 + 1

aysayac = aysayac + 1

Next

End Sub
 

LEVENT

Yeni Üye
Katılım
27 Kas 2018
Mesajlar
2
En iyi yanıt
0
Puanları
3
Yaş
40
Konum
Ankara
Ad Soyad
Levent Aydın
teşekkürler.....faydalı olduğundan şüpheniz olmasın..
 

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
75
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Versiyon
Office 365 evl 64 bit
Sayın ozkansabanci,

Günaydın.

Her zaman kullanılabilecek bir dosya, teşekkürler.
 
Üst Alt