این نمونه کار نمیکنه و اررور can 't Load surce File رو میده راست هم میگه چون اون سورسی که داخل temp ایجاد میشه موقع باز کردنش اررور امنیتی میده........
حق با شما بود - کمی بی دقتی کردم
اول برنامه به صورت یک فایل در کنار فایل اجرایی بود که برای راحتی آپلود به صورت تمپ قرارش دادم
ولی یادم رفت آدرس را تغییر بدم به همین خاطر آدرس دهی اشتباه شد
اگر دانلود کردید کافیه اسکریپت صفحه را به این تغییر بدید و زمان خروج را حذف کنید
RunMBD("<Embedded>\Systime.mbd","")
البته بهتره دوباره دانلود کنید چون یک تغییرات جزعی دادم
لینک جدید و شکل تصحیح شده برنامه را قرار دادم هم از پست قبلی و هم از اینجا میتوانید دانلود کنید
از
CBK_MonthNum
استفاده کن - به جای هرکدام از 12 عدد - نام ماه را بنویس
...
If (CBK_MonthNum =Month NUMBER) Then
LoadText("Month","Month Name")
...
سورسی که در تقویم به کار رفته
M$=CHAR(ShamsiMonth)
If (M$='12') Then
LoadText("Month","اسفند")
End
