ارسال پاسخ 
 
امتیاز موضوع:
  • 12 رأی - میانگین امتیازات: 3.5
  • 1
  • 2
  • 3
  • 4
  • 5
ایجاد دفترچه اقساط به کمک تابع AddToDate
نویسنده پیام
CPSD Admin آفلاین
مدیر سایت
*******

ارسال‌ها: 176
تاریخ عضویت: تير ۱۳۸۹
اعتبار: 0
ارسال: #3
Lightbulb RE: ایجاد دفترچه اقساط به کمک تابع AddToDate
ضمن سلام

سئوال شما دوست گرامی ارتباط چندانی با فعالیت این فروم نداره و در واقع مساله ای مجزا از اکتیو ایکس 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)

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

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

قوانین فروم


موفق باشید

درگاه : وب سايت | فروشگاه | وبلاگ
۱۷ بهمن ۱۳۹۱ ۰۷:۲۹ عصر
مشاهده‌ی وب سایت کاربر یافتن تمامی ارسال‌های این کاربر نقل قول این ارسال در یک پاسخ
ارسال پاسخ 


پیام‌های داخل این موضوع
RE: ایجاد دفترچه اقساط به کمک تابع AddToDate - CPSD Admin - ۱۷ بهمن ۱۳۹۱ ۰۷:۲۹ عصر

پرش به انجمن:


‍CPSD.ir Website

وب سايت      |      وبلاگ      |      فروشگاه

 

Center Point SD - Software Developer

Yaldex PopUp