تا جایی که میدونم پلاگینی واسه این کار نیست و شما باید با محاسبات ریاضی به دستش بیارید.
مثلا:
1-به روز 10 تا اضافه کنه
2- اگه بیشتر از 31(انتهای ماه) شد ، روز رو 1کنه
3- یکی به ماه اضافه کنه.
4- اگه ماه یکی بش اضافه بشه 13 شد، ماه رو 1 در نظر بگیره
5- یکی به سال اضافه کنه.
خداییش من من خیلی با دستور شرطی ور رفتم ولی همش به در بسته خوردم . تو اینترنت هم سرچ کردم چیزای زیادی هم در مورد تاریخ شمسی پیدا کردم ولی بیشتر مربوط به برنامه نویسی به زبان سی بود ، یکی از لینکاش هم این
شرمنده الان بیلدر ندارم ولی همینطور ذهنی یه چیزی براتون نوشتم امیدوارم به دردتون بخوره (البته اگه اشتباهی باشه احتمالا تو جای سال و ماه و روز) :
کد:
date$=CBK_Date+'\'
year=val(getarrayitem(date$,\,1))
month=val(getarrayitem(date$,\,2))
day=val(getarrayitem(date$,\,3))
***
m[1]=m[2]=m[3]=m[4]=m[5]=m[6]=31
m[7]=m[8]=m[9]=m[10]=m[11]=30
kabise_check=(year/4-int(year/4))*4
if (kabise_check=3) then
m[12]=30
else
m[12]=29
end
***
new_month=month
new_year=year
**
new_day=day+10
if (new_day>m[month]) then
new_day=new_day-m[month]
new_month=month+1
if (new_month>12) then
month=1
new_year=year+1
end
end
new_date$=char(new_year)+'\'+char(new_month)+'\'+char(new_day)
شرمنده الان بیلدر ندارم ولی همینطور ذهنی یه چیزی براتون نوشتم امیدوارم به دردتون بخوره (البته اگه اشتباهی باشه احتمالا تو جای سال و ماه و روز) :
کد:
date$=CBK_Date+'/'
year=val(getarrayitem(date$,\,1))
month=val(getarrayitem(date$,\,2))
day=val(getarrayitem(date$,\,3))
***
m[1]=m[2]=m[3]=m[4]=m[5]=m[6]=31
m[7]=m[8]=m[9]=m[10]=m[11]=30
kabise_check=(year/4-int(year/4))*4
if (kabise_check=3) then
m[12]=30
else
m[12]=29
end
***
new_month=month
new_year=year
**
new_day=day+10
if (new_day>m[month]) then
new_day=new_day-m[month]
new_month=month+1
if (new_month>12) then
month=1
new_year=year+1
end
end
new_date$=char(new_year)+'/'+char(new_month)+'/'+char(new_day)
دوست عزیز اگه لطف کنین بیشتر توضیح بدین که چه ابجکت هایی و با چه اسم هایی باید وارد صفحه کنیم بسیار ممنونتون میشم.
بنده الان از کدای شما که لطف کردین نوشتید اینجوری نتیجه گرفتم که تاریخ رو فقط به شکل نمایش میداد 10/1/0
شرمنده بازم اینجا بیلدر ندارم تو خونه ام کامپیوترم اصلا باز نمیشه ولی بازم که به کدا نگاه کردم فهمیدم یه اشکال داره که تصحیحیش کردم امیدوارم اینبار کار کنه :
کد:
date$=CBK_Date+'/'
year=val(getarrayitem(date$,/,1))
month=val(getarrayitem(date$,/,2))
day=val(getarrayitem(date$,/,3))
***
m[1]=m[2]=m[3]=m[4]=m[5]=m[6]=31
m[7]=m[8]=m[9]=m[10]=m[11]=30
kabise_check=(year/4-int(year/4))*4
if (kabise_check=3) then
m[12]=30
else
m[12]=29
end
***
new_month=month
new_year=year
**
new_day=day+10
if (new_day>m[month]) then
new_day=new_day-m[month]
new_month=month+1
if (new_month>12) then
month=1
new_year=year+1
end
end
new_date$=char(new_year)+'/'+char(new_month)+'/'+char(new_day)
شرمنده بازم اینجا بیلدر ندارم تو خونه ام کامپیوترم اصلا باز نمیشه ولی بازم که به کدا نگاه کردم فهمیدم یه اشکال داره که تصحیحیش کردم امیدوارم اینبار کار کنه :
کد:
date$=CBK_Date+'/'
year=val(getarrayitem(date$,/,1))
month=val(getarrayitem(date$,/,2))
day=val(getarrayitem(date$,/,3))
***
m[1]=m[2]=m[3]=m[4]=m[5]=m[6]=31
m[7]=m[8]=m[9]=m[10]=m[11]=30
kabise_check=(year/4-int(year/4))*4
if (kabise_check=3) then
m[12]=30
else
m[12]=29
end
***
new_month=month
new_year=year
**
new_day=day+10
if (new_day>m[month]) then
new_day=new_day-m[month]
new_month=month+1
if (new_month>12) then
month=1
new_year=year+1
end
end
new_date$=char(new_year)+'/'+char(new_month)+'/'+char(new_day)
دوست عزيز
تو برنامتون يك كليد قرار بديد و اين كدها بهش اضافه كنيد
کد:
d = VAL(D$) + 10
m = VAL(M$)
y = VAL(Y$)
If (m<=6 & d>31) Then
m = m + 1
d= d-31
End
If (m>6 & m<=11 & d>30) Then
m = m + 1
d= d-30
End
If (m=12 & d>29) Then
y = y + 1
m = 1
d= d-29
End
date$ = CHAR(y) + '/' + CHAR(m) + '/' + CHAR(d)
Message("","date$")
دوست عزيز
تو برنامتون يك كليد قرار بديد و اين كدها بهش اضافه كنيد
کد:
d = VAL(D$) + 10
m = VAL(M$)
y = VAL(Y$)
If (m<=6 & d>31) Then
m = m + 1
d= d-31
End
If (m>6 & m<=11 & d>30) Then
m = m + 1
d= d-30
End
If (m=12 & d>29) Then
y = y + 1
m = 1
d= d-29
End
date$ = CHAR(y) + '/' + CHAR(m) + '/' + CHAR(d)
Message("","date$")
کدی که شما لطف کردین نوشتین سال رو نشون نمیده و صفر در نظر میگیره ممنون میشم دوباره بررسی کنین بگین مشکلش چیه . نمیدونم شایدم من متوجه نشدم ولی به روز اضاف میشه و یک ماه تموم بشه به ماه بعدی اضاف میشه ولی سال رو صفر در نظر میگیره
پیشاپیش از راهنمایی ارزشمندتون تشکر میکنم دوست عزیز
از دوستان خوبم جنابان BlueMMB و evil_gates بسیار متشکرم که منو تو این پست راهنمایی کردن. از خداوند منان موفقیت در تمامی مراحل زندگی را برای شما دوستان خواستارم
از دوستان خوبم جنابان BlueMMB و evil_gates بسیار متشکرم که منو تو این پست راهنمایی کردن. از خداوند منان موفقیت در تمامی مراحل زندگی را برای شما دوستان خواستارم
خوشحالم كه مشكلتون حل شدي ولي توصيه ميكنم به جاي ايجاد يك پست جديد براي تشكر و بالاآوردن مبحثي كه مشكلش حل شده از كليد تشكر استفاده كنيد ... موفق باشيد
ممنون میشم اگه کسی کد در خواست بالا رو بلده بنویسه و بزاره تو این تایپیک
