چطوري ميتونم به تعداد مشخص تاريخ اقساط وام بسازم

[خوراسگاني]

سلام
در برنامه وام جطوري ميشه به تعداد مشخصي تاريخ ايجاد كرد تاريخهاي مربوط به پرداخت اقساط وام چون فقط بايد ماه عوض بشه و سال نيز بررسي بشه و عوض بشه

[Abbas Amiri]

سلام ، اگر بتوانید فایل تان را بگذارید راهنمایی دوستان بهتر و مناسب برنامه شما خواهد بود.ودر مورد سوالتان ، شما می خواهید به جدول موردنظرتان رکوردهایی اضافه کنید که بسته به اطلاعات وام ، فیلدهای تاریخ پرداخت ، مبلغ قسط ، شماره قسط و ... مربوط به آن با ایجاد شود؟

[خوراسگاني]

درسته چطوري ميشه تاريخ را به صورت صحيح محاسبه كرد براي اقساط وام؟

[Abbas Amiri]

می توانید تاریخ شروع وشماره قسط را به تابع زیر بدهید تا تاریخ سررسید را بگیرید(فرمت تاریخ بصورت 13900815 می باشد در غیر اینصورت کمی تغییر در تابع لازم است)


Function SarResidN(QestN As Integer, StartDate As String) As String
Dim sal As Integer, Mah As Integer, Rooz As Integer
sal = Left(StartDate, 4)
Mah = Mid(StartDate, 5, 2)
Rooz = Right(StartDate, 2)
Mah = (Mah + QestN) Mod 12
If Mah = 0 Then Mah = 12
sal = sal + (Mah + QestN - 1) / 12
SarResidN = sal & Format(Mah, "00") & Format(Rooz, "00")
End Function

[shkeramat]

با سلام

لطفا روی این فایل زحمت توضیح بکشید و راهنمائی فرمائید صمیمانه سپاسگزار میشوم

[Abbas Amiri]

فایل زیر را بررسی کنید:

[mahdi_107]

از آدرس زير ميتوني كمك بگيري
http://barnamenevis.org/showthread.php?53141-%D8%AF%DB%8C%D8%AA%D8%A7-%D8%A8%DB%8C%D8%B3-%D9%87%D8%A7-%D9%88-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%87%D8%A7%DB%8C-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF%DB%8C&p=1375869#post1375869 (http://barnamenevis.org/showthread.php?53141-%D8%AF%DB%8C%D8%AA%D8%A7-%D8%A8%DB%8C%D8%B3-%D9%87%D8%A7-%D9%88-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%87%D8%A7%DB%8C-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF%DB%8C&p=1375869#post1375869)

[shkeramat]

با سلام و سپاس
آقای امیری فایل را چک کردم تاریخ را اشتباه ثبت میکند و ضمنا اولین قسط تاریخش با تاریخ داده یکماه فرق دارد ممکن بررسی فرمائید

[Abbas Amiri]

تابع زیر را جایگزین کنید:


Function SarResidN(QestN As Integer, StartDate As String) As String
Dim sal As Integer, Mah As Integer, Rooz As Integer
sal = Left(StartDate, 2)
Mah = Mid(StartDate, 3, 2)
Rooz = Right(StartDate, 2)
sal = sal + Int((Mah + QestN - 1) / 12)
Mah = (Mah + QestN) Mod 12
If Mah = 0 Then Mah = 12
SarResidN = Format(sal, "00") & Format(Mah, "00") & Format(Rooz, "00")
End Function

[shkeramat]

سپاسگزار از محبت شما
فقط یک سوال دیگه چرا تاریخ شروع محاسبه اقساط از یکماه بعد شروع میشود و تاریخ داده شده در تکست بکس بعنوان اولین انتخاب نمیشه
و اگر امکان اصلاح هست محبت بفرمائید

[Abbas Amiri]

اصلاح کنید:


For i = 0 To NPer - 1
sSQL = "INSERT INTO tbPartL VALUES('" & NumLoan & "','" & i + 1 & "', '" & SarResidN(i, DateLoan) & "', " & Mghest & ", " & Fghest & ", " & Rghest & ")"
DoCmd.RunSQL sSQL
Next

[shkeramat]

درود بسیار و دست شما رامی بوسم