https://accesstr.net/attachment.php?aid=105
birleşik faiz hesaplama kodları
Kod:
Dim tar1 As Date
Dim tar As Variant
Dim n As Variant
Dim par As Variant
Dim asd As Variant
Dim vade As Variant
Dim faizoranı As Variant
Dim carpan As Variant
Dim toplam1 As Variant
Private Sub Komut17_Click()
On Error GoTo Err_Komut17_Click
vade = (taksay.Value + 1) / 2
faizoranı = vade * Me.faiz
carpan = (faizoranı / 100) + 1
toplam1 = toplam.Value * carpan
tar1 = bastar.Value
par = toplam1 / taksay.Value
Dim Rs As New ADODB.Recordset
Rs.Open "taksit", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Rs.EOF <> True Then
Do
If Rs("musid") = musid.Value Then
Rs.Delete
End If
Rs.MoveNext
Loop Until Rs.EOF
End If
asd = 0
z = taksay.Value
For i = 1 To z Step 1
asd = asd + Round(par, 0)
n = musid.Value
tar = DateAdd("m", i, tar1)
Rs.AddNew
Rs("musid") = n
Rs("taksittutari") = Round(par, 0)
Rs("tarih") = tar
Rs.Update
Next i
Rs.MoveLast
Rs("taksittutari") = Rs("taksittutari") + (toplam1 - asd)
Rs.Update
Set Rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Komut17_Click:
Exit Sub
Err_Komut17_Click:
MsgBox "taksit alanlarından biri boş bu alanları boş geçemezsinizi"
Resume Exit_Komut17_Click
End Sub