Örnek Kod Taksit hesaplama örneği

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
212
En iyi yanıt
6
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
 
Üst Alt