ایجاد سیستم قسط بندی

[سینا2010]

با سلام خدمت دوستان عزیز من در یک برنامه قسمتی را گذاشتم که کاربر مبلغ وام و مبلغ اقساط و مبلغ آخرین قسط رو تعداد اقساط را وارد می کنه حالا می خوام بدونم چطوری می شه بر اساس تعداد اقساطی که کاربر تو برنامه وارد می کنه مبلغ وام بر تعداد اقساط تقسم بشه و هر قسط به صورت خود کار داخل دیتابیش ذخیره بشه

ببیند مثلا وام 1.050.000 ریال - مبلغ قسط 100.000 ریال و مبلغ آخرین قسط 150.000 ریال - تعداد اقساط هم 10 عدد

حالا می خوام کاربر که دکمه ثبت رو برنه تعداد 9 ردیف قسط 100.000 ریالی و یک ردیف قسط 150.000 ریالی تو بانک اطلاعاتی ثبت بشه. آیا امکان دارد دوستان تو این زمینه منو راهنمایی کنن.

[barbodsoft.com]

از دستور FOR استفاده کن و به تعداد اقساط منهای یک قسط رو تو دیتابیس ثبت کن سپس خارج از FOR آخرین قسط رو ثبت کن.

[سینا2010]

سلام منمنون از راهنمائیت درست شد تونستم به همون تعداد تو بانک ذخیره کنم اما یه مسئله ای رکورد آخر رو چه جوری ثبت کنم یعنی قسط آخری که رقمش امکان داره بشتر یا کمنر باشه.

[barbodsoft.com]

اون دیگه بر می گرده به حل مسئله شما. باید محاسبه کنی. خیلی ساده هست.

[سینا2010]

سلام
آقا درست شد اما راهنمائیت ارزش داشت خیلی ممنون.

[غلامرضا شریفی]

دوست عزيز ميشود بفرماييد مبلغ 1050000 ريال را كه فرموديد را چطور بدست مي آوريد به شما اعلام ميشود يا سيستم سود را محاسبه ميكند چون مبلغ وام پرداختي با مبلغ دريافتي تفاوت دارد ومعمولا سود روي آن مي آيد

[سینا2010]

با سلام
دوست عزیز این مبلغ به کاربر اعلام می شود و در سیستم ثبت می گردد. در ضمن سودی به این مبلغ اضافه نمی شود.

[barbodsoft.com]

تو عرف بازار به این شکل حساب می کنن.


Imports System.Math
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sod As Single = 14 'سود سالانه
Dim ModatBeSal As Single = 36 / 12 ' محاسبه مدت به سال
Dim AllWithoutSod As Double = 1000000 ' مبلغ وام
sod = (sod * ModatBeSal) / 100 'محاسبه سود به درصد کلی
Dim allwithsod As Double = (sod * AllWithoutSod) / 2 + AllWithoutSod 'محاسبه مبلغ کل
allwithsod = CType(allwithsod, Integer)
allwithsod = Round(allwithsod)
MsgBox("مبلغ کل :" & allwithsod)
MsgBox("مبلغ هر قست :" & Round(allwithsod / 36))
End Sub
End Class


کد بالا سود و مبلغ هر قسط رو برای یک وام یک میلیونی با سود سالانه 14 درصد و باز پرداخت 36 ماهه محاسبه می کند.

البته حسابدار معمولا از روش دقیق تری استفاده می کنن. اگه می خوای از روش دقیق تر و رسمس استفاده کنی تو این سایت یه سرچ برن پیدا می کنی.
http://www.acclearn.com/forum/index.php