حالت موضوعی | حالت خطی

***CPSD Admin***

ضمن سلام

سئوال شما دوست گرامی ارتباط چندانی با فعالیت این فروم نداره و در واقع مساله ای مجزا از اکتیو ایکس PDC هستش

علی ایحال توضیحات ذیل درج میشه , امیدوارم که مثمر ثمر واقع بشه :

هسته مرکزی در مثال موجود در بخش زیرین قرار داره :

کد: 

For i = 0 To txtRepaymentAmount - 1

        rs.AddNew

        rs.Fields("AghsatName") = txtRepaymentName

        ' rs.Fields("RepaymentDate") = DateAdd("m", (Interval * i), txtFirstRpaymentDate)

        rs.Fields("RepaymentDate") = MyVar.AddToDate(txtFirstRpaymentDate, Mah, (Interval * i), EzafeKardan)

        rs.Fields("Value") = txtRepaymentValue

        rs.Update

    Next i

در این حلقه برنامه با گرفتن ورودیها اقدام به محاسبه تاریخ میکنه

در مثال فوق محاسبه اقساط بر مبنای توالی زمانی ماه در نظر گرفته شده

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

کد: 

rs.Fields("RepaymentDate") = MyVar.AddToDate(txtFirstRpaymentDate, Rooz, (7 * i), EzafeKardan)

تنها خطی از برنامه که مرتبط با فعالیت این فروم هستش , تنها همین یک خط هستش

متاسفانه در صورتی که با مابقی خطوط با مشکل مواجه هستید , امکان پشتیبانی خاصی در این خصوص وجود نداره

قوانین فروم

موفق باشید

حالت موضوعی \| حالت خطی ایجاد دفترچه اقساط به کمک تابع AddToDate
نویسنده	پیام