كيف لي تقسيط مبلغ الفاتورة

[cudi]

السلام عليكم  اخواني الافاضل

كيف لي تقسيط المبلغ ، لما العميل يريد القسط الاول مختلف عن باقي الاقساط 

مثلا : 1045 $ / 10 اشهر = 104.5 $ لكل شهر ، هو يريد قسط الاول يكون 145 $ باقي الاقساط على 100 $ 

يعني العملية سوف يكون 1045 $ - 145 $ = 900 $ / 9 = 100 $ لكل باقي الاشهر ، لكن كيف لي تصحيح هذا الكود الادنى 

Private Sub cmdInstall_Click()
    On Error Resume Next
    
    Dim rst As DAO.Recordset
    
    Dim I As Integer
    
    Set rst = Me.RecordsetClone
    
    Dim Sale_Cost As Double, FirstQist As Double, Number_Of_Installments As Integer
    Dim Fisrt_Date_of_Payment As Date
    
    If IsNull([Forms]![frmInstall]![InstallNum]) Or [Forms]![frmInstall]![InstallNum] = 0 Then
        Exit Sub
    ElseIf IsNull([Forms]![frmInstall]![SaleInstallDate]) Then
        Exit Sub
    Else
        Sale_Cost = Forms![frmInstall]![InstallNet]
        Fisrt_Date_of_Payment = Forms![frmInstall]![SaleInstallDate]
        Number_Of_Installments = Forms![frmInstall]![InstallNum]
        FirstQist = Forms![frmInstall]![FirstQist]
        
        If FirstQist > 0 Then
            
            For I = 1 To Number_Of_Installments
            
            rst.AddNew
                rst![InstallID] = Forms![frmInstall]![InstallID]
                rst![InstallNum] = I
                rst![InstallAmount] = FirstQist
                rst![InstallAmount] = Round((Sale_Cost - FirstQist) / Number_Of_Installments, 2)
                rst![InstallDate] = DateAdd("m", I - 1, Fisrt_Date_of_Payment)
            rst.Update
            
            Next I
                rst.Close: Set rst = Nothing
        End If
        
            For I = 1 To Number_Of_Installments
            
            rst.AddNew
                rst![InstallID] = Forms![frmInstall]![InstallID]
                rst![InstallNum] = I
                rst![InstallAmount] = Round(Sale_Cost / Number_Of_Installments, 2)
                rst![InstallDate] = DateAdd("m", I - 1, Fisrt_Date_of_Payment)
            rst.Update
            
            Next I
                rst.Close: Set rst = Nothing
    End If
End Sub

 

[cudi]

شكرا جزيلا لكم 

لقد قمت بحل الموضوع