توابع و برنامه های کاربردی تحت داس!

[rahro]

سلام
در این تاپیک سعی دارم یک سری ار برنامه ها و توابعی که در فاکس تحت داس قدیما! ازشون استفاده میکردم رو معرفی و آپلود کنم شاید مورد استفاده بعضی از دوستان قرار بگیره

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

[rahro]

این هم تابعی برای تبدیل تاریخ شمسی به تعداد روزها

function date2day
para mdate_0
* ?DAY2DATE( DATE2DAY('1382/1/14')-DATE2DAY('1360/03/10') )
* ?DAY2DATE( DATE2DAY('74/08/21')-DATE2DAY('47/03/01') )
* INDEX ON DATE2DAY(birthdate) TAG birthdate
mdate_0 = iif(len(mdate_0)=8,'13'+mdate_0,mdate_0)
mem_year = val(subs(mdate_0,1,4))
mem_month = val(subs(mdate_0,6,2))
mem_day = val(subs(mdate_0,9,2))
do case
case betw(mem_month ,1,6)
total_day_month = (mem_month-1) * 31
case betw(mem_month ,7,12)
total_day_month = 6 * 31
total_day_month = ((mem_month-7) * 30) + total_day_month
othe
??chr(7)
wait wind '(9999/99/99)‘þ (99/99/99) žþŸ¬ –õ¤ê Šù‘“—ª þ¤‘—'
retu 0
endcase
total_days = (mem_year*365.25) + total_day_month + mem_day
retu total_days

[rahro]

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

FUNCTION day2date
para tot_days
* ? DAY2DATE( DATE2DAY('74/08/21') -1 )
set deci to 5
mem_year = tot_days / 365.25
dec_mah = val(right(str(mem_year,15,5),5))
day_reminded = (dec_mah /100000) * 365.25
do case
case betw(day_reminded ,0, 6 * 31 )
mem_mah = (day_reminded / 31)+1
dec_day = val(right(str(mem_mah,15,5),5))
day_reminded = (dec_day /100000) * 31
case betw(day_reminded , 31* 6, (31* 6)+(30*5))
mem_mah = 6
day_reminded = day_reminded - (6 * 31)
mem_mah = (day_reminded / 30)+mem_mah+1
dec_day = val(right(str(mem_mah,15,5),5))
day_reminded = (dec_day /100000) * 30
other
day_reminded = day_reminded - (6 * 31)
mem_mah = (day_reminded / 30)+6+1
day_reminded = day_reminded - (6 * 30)
dec_day = val(right(str(mem_mah,15,5),5))
day_reminded = (dec_day /100000) * 30
endcase
mem_year = allt(str(floor(mem_year)))
mem_year = iif(len(mem_year)=1,'0'+mem_year,mem_year)
mem_mah = allt(str(floor(mem_mah)))
mem_mah = iif(len(mem_mah)=1,'0'+mem_mah,mem_mah)
day_reminded = allt(str(day_reminded))
day_reminded = iif(len(day_reminded)=1,'0'+day_reminded,day_remin ded)
mdate_00 = mem_year+'/'+mem_mah+'/'+day_reminded
mdate_00 = iif(SET("CENTURY")=="ON",mdate_00,right(mdate_00,8))
set deci to
retu mdate_00

[rahro]

اگر بخواهم یک سری فایل رو آپلود کنم کجا میتونم اینکار رو انجام دهم
حجم حدود 7 مگابایت

[rezaTavak]

یه سایت مجانی مانند xm.com

[rahro]

عذر میخوام
باید عضو شوم و در عضویت ایمیل مرا در Primary e-mail ایراد میگیرد
لطفا در pm مرا راهنمایی کنید و این سه پست آخر را حذف کنید

[rezaTavak]

چون خیلی وقته ثبت نام کرده ام یادم نیست با سعی و خطا پیدا کنید.

[kia1349]

در box.net

[rahro]

این هم فارس پرو !!
یک سری توابع قدرتمند و بسیار جالب برای برنامه نویسی تحت داس.
همونی که قولشو داده بودم

[IC_prog]

جناب رهرو من دو تاریخ 16/2/1383 و 28/11/1381 را با تابع شما از هم کم کردم و به عددی رسیدم که با روش دستی اختلاف داشت . البته شاید روش محاسبه دستی من ایراد داشته لطفا خودتان آزمایش کرده و راهنمایی کنید:خجالت: