برنامه ایکه تاریخ میلادی را به شمسی تبدیل میکند

[hi_kelass_no1]

بچه ها سلام
من در این تاپیک تازه کارهستم وهنوز نحوه استفاده از ایت تاپیک رانمیدانم تا برنامه ایکه در داس عمل میکند برای شما بفرستم لذا اول بمن یاد بدهید که چگونه با شما ارتباط برقرار کنم وچگونه برای شما مطلب ارسال کنم و چگونه لیست برنامه را برای شما ارسال کنم
راستی داشت یادم میرفت من نرافزار vfoxpro 6 ent و vfoxpro 3 fullو vfoxpro 6 professionalرا دارم اولا" بفرمائید کدام را نصب کنم ثانبا" یک پروژه را چگونه تعریف کنم وفارسی ساز موردنیاز آن چیست ویک پروژه کوچک را بعنوان نمونه برایم ارسال نمائید تا منهم بتوانم برنامه های نوشته شده در داس راتبدیل کنم البته میدونم شاید کار زیادی باشه که از شما میخوام اما به این امید که بتوانیم باهم کار کنیم وهدف که این تاپیک هم است خیلی ممنون هستم
انشاله منم مثمر ثمر باشم

عباس

[rezaTavak]

سلام

دوست عزیر ورود شما را به این بخش خوش آمد می گوییم.

اما لازم به ذکر است که چند نکته را جهت بهتر شدن متذکر شوم:
1 - عنوان تاپیک شما باید با محتوای آن سازگاریث داشته باشد.
2 - قوانین این انجمن را حتما مطالعه فرمایید.
3 - چند سوال در یک تاپیک نباشد.
4 - قبل از هر تائیک جستجو نمایید تا هم زودتر به جواب برسید هم دوباره کاری نشود و تعداد تائیک بالا نرود.

با تشکر

[hi_kelass_no1]

باتشکر از راهنمائی شما فعلا" بلد شدم تا پیغام خودرا بصورت کتبی نوشته ودر اختیار همگان قرار دهم
خوب حالا بفرمائید چگونه میشود برنامه ای را که بصورت prg. یا fxp. میباشد در اختیار دیگران قرارداد
باتشکر مجدد

[rahro]

باتشکر از راهنمائی شما فعلا" بلد شدم تا پیغام خودرا بصورت کتبی نوشته ودر اختیار همگان قرار دهم
خوب حالا بفرمائید چگونه میشود برنامه ای را که بصورت prg. یا fxp. میباشد در اختیار دیگران قرارداد
باتشکر مجدد
در حالت پاسخ به این تاپیک , گزینه ای موجود است که شما را به حالت پیشرفته هدایت میکند , در آن حالت یکسری ویژگیهای پیشرفته در ذیل ادیت باکس در اختیار شما میگذارد که یکی از آنها "مدیریت ضمیمه ها " میباشد . شما از آن طریق میتوانید اقدام کنید

[hi_kelass_no1]

دوست من باتشکر میروم ببینم چه کار میکنم

[blacky]

الان این ربطش به تاریخ شمسی و میلادی چی بود؟

[hi_kelass_no1]

blacky جان من قبلا" مشکل برقرار کردن ارتباط را باشما در میان گذاشتم وrahro ومدیر محترم بخش راهنمائی کرد ومن نیز پس از اطمینان از روش فوق در جستجوی راهی برای در اختیار گذاشتن برنامه بودم (زیرا این برنامه قسمتی از یک برنامه بزرگ بود) وحالا موفق شدم
که با توصیحاتی ذیل برنامه برای شماهم قابل اجرا میباشد انشا اله


برای استفاده از این برنامه که نامش AGATMIS1 میباشد کافی است دو متغیر tari1 وtari2
را بصورت public معرفی کنیم وسپس آنرا اجراء واز متغیرها استفاده کنیم



public tari1,tari2


do agatmis1


? tari1


? tari2



ناگفته نماند که این برنامه تاریخ روزکامپیوترکه میلادی است را تبدیل به تاریخ شمسی میکند
نمایش تاریخ با 10 کاراکتر 30/10/1386/
tari2 نمایش تاریخ با 8 کاراکتر 30/10/86

[torangan]

تابع شمارا تست کردم . متاسفانه ازتاریخ 1 مارچ 2008 اشتباه حساب میکند .. متشکرم.

[mehran_337]

در نوار آبی بالای صفحه گزینه ای بنام جستجو وجود دارد و زر مجموعه آن جستجوی پیشرفته است عنوان مورد نظر را توشته و در لیست تالار برنامه نویسی فاکس پرو را انتخاب کنید.
برای شروع کار کلمه شمسی را بنویسید تا توابعی که دوستان نوشته اند و به درستی کار می کنند و قابلیتهای بیشتری نیز دارند را استفاده کنید

[salamfna]

من یه برنامه دارم که تاریخ میلادی را به شمسی تبدیل میکنه اگر خواستی بگو تا بذارم.

[naderigh]

اگر برنامه ای داری که تاریخ شمسی را ه میلادی تبدیل کنه و درست هم کار کنه ممنون میشم که لطف نمائید ارسال نمائید

[salamfna]

این فایل را در اول برنامه بگذار

[gm_phk]

FUNCTION DATE_FPARAMETERS DATE_INP PRIVATE DATE_OUT,SET_VAR,STR_OR_D,YYNUM,MMSTR,DDSTR,YYOUT, STR1,STR2SET_VAR =SET('DATE') SET_VAR2=SET('CENTURY') SET DATE TO YMD SET CENTURY ON ON ERROR DATE_INP=DATE_INP IF NOT DATE_INP=.F. ELSE DATE_INP=DATE() ENDIF STR_OR_D=1 ON ERROR STR_OR_D=0 IF DATE_INP>{ / / } ENDIF IF STR_OR_D1 STR_OR_D=2 IF DATE_INP=' ' ENDIF ELSE DATE_INP=DTOC(DATE_INP) ENDIF ON ERROR DATE_INP=ALLT(DATE_INP) DATE_INP=IIF(LEN(DATE_INP)=8,'13','')+DATE_INP IF STR_OR_D=0 .OR. LEN(DATE_INP)10 .OR. SUBS(DATE_INP,5,1)'/' .OR.;SUBS(DATE_INP,8,1)'/' RETURN .F. ENDIF YYNUM=VAL(SUBS(DATE_INP,1,4)) MMSTR=SUBS(DATE_INP,6,2) DDSTR=SUBS(DATE_INP,9,2) YYOUT=YYNUM+IIF(STR_OR_D=1,-1,1)*621 DO CASE CASE STR_OR_D=2 AND MOD(YYNUM-3,4)=0 STR1='01/0101/1302/0102/1203/0103/1204/0104/1105/0105/1106/0106/1107/0107/1008/0108/1109/0109/1110/0110/1211/0111/1312/0112/11' STR2='03/2004/0104/2005/0105/2106/0106/2107/0107/2208/0108/2209/0109/2210/0110/2211/0111/2112/0112/2101/0101/2002/0102/1903/01' CASE STR_OR_D=2 AND MOD(YYNUM-2,4)=0 STR1='01/0101/1202/0102/1103/0103/1104/0104/1005/0105/1006/0106/1007/0107/0908/0108/1009/0109/1010/0110/1111/0111/1212/0112/11' STR2='03/2104/0104/2105/0105/2206/0106/2207/0107/2308/0108/2309/0109/2310/0110/2311/0111/2212/0112/2201/0101/2102/0102/2003/01' CASE STR_OR_D=2 AND (MOD(YYNUM-1,4)=0 OR MOD(YYNUM,4)=0 ) STR1='01/0101/1202/0102/1103/0103/1104/0104/1005/0105/1006/0106/1007/0107/0908/0108/1009/0109/1010/0110/1111/0111/1212/0112/10' STR2='03/2104/0104/2105/0105/2206/0106/2207/0107/2308/0108/2309/0109/2310/0110/2311/0111/2212/0112/2201/0101/2102/0102/2003/01' CASE STR_OR_D=1 AND (MOD(YYNUM+2,4)=0 OR MOD(YYNUM+1,4)=0) STR1='01/0101/2102/0102/2003/0103/2104/0104/2105/0105/2206/0106/2207/0107/2308/0108/2309/0109/2310/0110/2311/0111/2212/0112/22' STR2='10/1111/0111/1212/0112/1001/0101/1202/0102/1103/0103/1104/0104/1005/0105/1006/0106/1007/0107/0908/0108/1009/0109/1010/01' CASE STR_OR_D=1 AND MOD(YYNUM,4)=0 STR1='01/0101/2102/0102/2003/0103/2004/0104/2005/0105/2106/0106/2107/0107/2208/0108/2209/0109/2210/0110/2211/0111/2112/0112/21' STR2='10/1111/0111/1212/0112/1101/0101/1302/0102/1203/0103/1204/0104/1105/0105/1106/0106/1107/0107/1008/0108/1109/0109/1110/01' CASE STR_OR_D=1 AND MOD(YYNUM-1,4)=0 STR1='01/0101/2002/0102/1903/0103/2104/0104/2105/0105/2206/0106/2207/0107/2308/0108/2309/0109/2310/0110/2311/0111/2212/0112/22' STR2='10/1211/0111/1312/0112/1101/0101/1202/0102/1103/0103/1104/0104/1005/0105/1006/0106/1007/0107/0908/0108/1009/0109/1010/01' ENDCASE PLACNUM=AT(MMSTR+'/',STR1) NU11=VAL(SUBS(STR1,PLACNUM+8,2)) NU21=VAL(SUBS(STR2,PLACNUM,2)) NU22=VAL(SUBS(STR2,PLACNUM+3,2)) NU23=VAL(SUBS(STR2,PLACNUM+5,2)) NU24=VAL(SUBS(STR2,PLACNUM+8,2)) NU21=IIF(VAL(DDSTR)