فروم تخصصی - پشتیبانی CPSD - ایجاد دفترچه اقساط به کمک تابع AddToDate

ضمن سلام

به نظر میاد جهت بررسی اکتیو ایکس Persian Date Converter مناسب باشه به برخی توانمندیهای اون در قالب پاسخ دهی به سئوالات و مشکلات فرا روی برنامه نویسان در خصوص تاریخ هجری شمسی , نیم نگاهی داشته باشیم

Persian Date Conveter با تکیه بر تنها دو خط برنامه نویسی !! , قدرت خودش رو به رخ تمامی رقبای Open Source کنونی خودش میکشه تا جایگاهش رو به عنوان یکی از کاملترین مبدلهای تاریخ شمسی به اثبات برسونه

این دو خط به شرح زیر هستند :

کد: 

Dim MyVar As New CPSD_PDC.CPSD_PersianDateConverter

جهت معرفی و بارگذاری اکتیو ایکس و کد :

کد: 

MyVar.AddToDate(txtFirstRpaymentDate, Mah, (Interval * i), EzafeKardan)

جهت استفاده از تابع AddToDate

در گذشته در خصوص رابطه مستقیم بین حجم کد نویسی موجود در یک فایل اکسس و احتمال تخریب فایل توضیحاتی در این مقاله درج شده بود , Persian Date Converter در این خصوص جایی برای بحث باقی نمیذاره

Persian Date Converter نه در تئوری , بلکه در عمل توانایی خودش رو در حل مسائلی که دیگر سورس کدهای عمومی که مورد استفاده کاربران بوده و ضمناً از حل اونها به صورت اصولی ناتوان هستند , به کاربران خودش نشون میده

در واقع در همین حال حاضر راه حلهای موجود در داخل این اکتیو ایکس راه حلهایی هستند که شاید در آینده به سورس کدهای موجود اضافه بشن

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

توضیح : Persian Date Converter یک پروژه رایگان و جهت استفاده عموم بوده ولیکن در صورت امکان نیم نگاهی به آخرین جمله مندرج در صفحه ابتدایی فایل کمک این اکتیو ایکس داشته باشید ( البته عمل به اون الزامی نیست و تنها در حد یک درخواسته )

فراموش نکنید عزیزانی که امروز اونها رو سالمند می نامیم , در گذشته همچون ما جوان بودند , همونطوری که ما هم در آینده سالمند نامیده خواهیم شد

[attachment=13]

توضیح : در صورتی که اقدام به نصب Persian Date Converter ننموده اید , اقدام به بارگذاری و نصب این اکتیو ایکس نمایید ( لینک دانلود )

موفق باشید

لینک مقاله مرتبط

باسلام
در صورتی که در هر ماه بخواهیم با توجه به تعداد نوبت های مشخص اضافه شود در این مثال چگونه باید عمل کرد
به عنوان مثال تعداد قسط 4 قسط در ماه (تقسیم در ماه)
1-1-90
9-1-90
17-1-90
25-1-90

ضمن سلام

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

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

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

قوانین فروم

موفق باشید

فروم تخصصی - پشتیبانی CPSD

CPSD Admin

me_mohammadiyan

CPSD Admin