- Katılım
- 28 May 2018
- Mesajlar
- 238
- En iyi yanıt
- 7
- Puanları
- 28
- Yaş
- 38
- Konum
- İstanbul
- Web sitesi
- analistadam.com
- Ad Soyad
- Özkan Sabancı
- Office Vers.
- 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..
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..
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