+- فروم تخصصی - پشتیبانی CPSD (http://cpsd.ir/forum)
+-- انجمن: محصولات (/forumdisplay.php?fid=1)
+--- انجمن: رایگان (/forumdisplay.php?fid=6)
+---- انجمن: PDC - Persian Date Converter (/forumdisplay.php?fid=5)
+----- انجمن: مقالات و مثال های آموزشی مرتبط با PDC - Persian Date Converter (/forumdisplay.php?fid=19)
+----- موضوع: ایجاد دفترچه اقساط به کمک تابع AddToDate (/showthread.php?tid=77)
ایجاد دفترچه اقساط به کمک تابع AddToDate - CPSD Admin - ۲۲ تير ۱۳۹۰ ۰۹:۰۸ عصر
ضمن سلام
به نظر میاد جهت بررسی اکتیو ایکس Persian Date Converter مناسب باشه به برخی توانمندیهای اون در قالب پاسخ دهی به سئوالات و مشکلات فرا روی برنامه نویسان در خصوص تاریخ هجری شمسی , نیم نگاهی داشته باشیم
Persian Date Conveter با تکیه بر تنها دو خط برنامه نویسی !! , قدرت خودش رو به رخ تمامی رقبای Open Source کنونی خودش میکشه تا جایگاهش رو به عنوان یکی از کاملترین مبدلهای تاریخ شمسی به اثبات برسونه
این دو خط به شرح زیر هستند :
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 یک پروژه رایگان و جهت استفاده عموم بوده ولیکن در صورت امکان نیم نگاهی به آخرین جمله مندرج در صفحه ابتدایی فایل کمک این اکتیو ایکس داشته باشید ( البته عمل به اون الزامی نیست و تنها در حد یک درخواسته )
فراموش نکنید عزیزانی که امروز اونها رو سالمند می نامیم , در گذشته همچون ما جوان بودند , همونطوری که ما هم در آینده سالمند نامیده خواهیم شد
Persian Date Converter نه در تئوری , بلکه در عمل توانایی خودش رو در حل مسائلی که دیگر سورس کدهای عمومی که مورد استفاده کاربران بوده و ضمناً از حل اونها به صورت اصولی ناتوان هستند , به کاربران خودش نشون میده
در واقع در همین حال حاضر راه حلهای موجود در داخل این اکتیو ایکس راه حلهایی هستند که شاید در آینده به سورس کدهای موجود اضافه بشن
در مثال پیش رو به نحوه ایجاد یک دفترچه قسط و نحوه ایجاد توالی تاریخی پرداخت اقساط آشنایی لازم رو پیدا خواهید کرد
توضیح : Persian Date Converter یک پروژه رایگان و جهت استفاده عموم بوده ولیکن در صورت امکان نیم نگاهی به آخرین جمله مندرج در صفحه ابتدایی فایل کمک این اکتیو ایکس داشته باشید ( البته عمل به اون الزامی نیست و تنها در حد یک درخواسته )
فراموش نکنید عزیزانی که امروز اونها رو سالمند می نامیم , در گذشته همچون ما جوان بودند , همونطوری که ما هم در آینده سالمند نامیده خواهیم شد
![[تصویر: PDC_Aghsat%20Shots.png]](http://www.CPSD.ir/MyResource/images/training/PDC_Aghsat%20Shots.png)
[attachment=13]
توضیح : در صورتی که اقدام به نصب Persian Date Converter ننموده اید , اقدام به بارگذاری و نصب این اکتیو ایکس نمایید ( لینک دانلود )
موفق باشید
لینک مقاله مرتبط
RE: ایجاد دفترچه اقساط به کمک تابع AddToDate - me_mohammadiyan - ۱۷ بهمن ۱۳۹۱ ۰۱:۵۱ صبح
باسلام
در صورتی که در هر ماه بخواهیم با توجه به تعداد نوبت های مشخص اضافه شود در این مثال چگونه باید عمل کرد
به عنوان مثال تعداد قسط 4 قسط در ماه (تقسیم در ماه)
1-1-90
9-1-90
17-1-90
25-1-90
RE: ایجاد دفترچه اقساط به کمک تابع AddToDate - 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)تنها خطی از برنامه که مرتبط با فعالیت این فروم هستش , تنها همین یک خط هستش
متاسفانه در صورتی که با مابقی خطوط با مشکل مواجه هستید , امکان پشتیبانی خاصی در این خصوص وجود نداره
قوانین فروم
موفق باشید