کمک چطوری می توان با asp تاریخهای شمسی و میلادی را به یکدیگر تبدیل کرد
آدرس ایمیل من malihehabibi@yahoo.com
من عضو جدید هستم و نمی دونم اگه کسی راه حلی برای مشکل من ارائه بده کجا نوشته می شود
Printable View
کمک چطوری می توان با asp تاریخهای شمسی و میلادی را به یکدیگر تبدیل کرد
آدرس ایمیل من malihehabibi@yahoo.com
من عضو جدید هستم و نمی دونم اگه کسی راه حلی برای مشکل من ارائه بده کجا نوشته می شود
خیلی خوش آمدید.
عضو جدید بودن شما درست.
حداقل اگه تو سایت سرچ نمیکنید، 10تا 11 تاپیک قبل رو تیترشو نگاه کنید. (جدی نگیرید شوخی کردم :wink: )
این موضوع تا به حال خیلی بحث شده.
برای مثال به آدرس زیر یه نگاهی بندازید ( کد آقای مهدوی بهترینه):
http://www.barnamenevis.org/viewtopic.php?t=7784
اگر هم حس کلیک کردن رو ندارید این کدش هست.
میلادی به شمسی
:wink:
<%@ Language=VBScript %>
<META http-equiv=CONTENT-TYPE content="text/html; charset=windows-1256">
<%
FMonArray= array (0,31,31,31,31,31,31,30,30,30,30,30,29)
EMonArray= Array(0,31, 28,31,30,31,30,31,31,30,31,30,31)
W = Array ("یکشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنجشنبه", "جمعه", "شنبه")
Mon = Array ("فروردین", "اردیبهشت", "خرداد", "تیر", "مرداد", "شهریور", "مهر", "آبان", "آذر", "دی", "بهمن", "اسفند")
EYear= Year(Date)
EMon= Month(Date)
EDay = Day(Date)
ELeap=0
if ((EYear mod 4))= 0 Then
ELeap =1
End if
Cnt=EMon-1
Temp=0
While Cnt<>0
if ((Cnt=2)and(ELeap=1)) Then
Temp= Temp+29
else
Temp= Temp + EMonArray(Cnt)
end if
Cnt=Cnt-1
Wend
EDayOfYear= Temp+EDay
' Convert to Farsi
Temp= EDayOfYear-79
if Temp>0 Then
FYear= EYear-621
else
FYear= EYear-622
if ((FYear mod 4)=3) then
Temp= Temp+366
else
Temp= Temp+365
End if
End if
if (FYear mod 4)=3 Then
FLeap=1
else
Fleap=0
End if
Cnt= 1
While( (Temp<>0) and (Temp>FMonArray(Cnt)) )
if Cnt=12 Then
if (FLeap=1) Then
Temp=Temp-30
else Temp= Temp-29
end if
else Temp= Temp-FMonArray(Cnt)
end if
Cnt= Cnt+1
Wend
if Temp<>0 Then
FMon = Cnt
FDay= Temp
else
FMon= 12
FDay=30
End if
DateShamsi = W(WeekDay(Date) - 1) & "&nbsp;" & FDay& "&nbsp;" & Mon(FMon - 1) & "&nbsp;" &FYear
%>
<%= DateShamsi %>
آقای مسعود غیبی
1000 تا ممنون از اینکه کمکم کردید و از شوخی هاتووووووووون
اما باید خدمتتون عرض کنم که من این سایت رو هم موقعه سرچ کردن در گوگل پیدا کردم و اون لینک هم قبلا چک کرده بودم منتهی می خواستم پاسخ کامل تری داشته باشم، پس خیلی هم تنبل نیستم
:wink: :قهقهه: :قهقهه: :قهقهه:
:wink:نقل قول:
1000 تا ممنون از اینکه کمکم کردید و از شوخی هاتووووووووون
اگه به قسمتهای دیگه سایت از جمله ASP.NET سر بزنید، کدهای دیگری هم پیدا میکنید. در بخش VB هم میتونید یه چیزایی پیدا کنید. :wink:نقل قول:
منتهی می خواستم پاسخ کامل تری داشته باشم
بازم 1000 تا ممنون
ولی
این کدی که لطف کردید و اینجا قرار دادید امروز که چهارشنبه 20 خرداد 1383 می باشد را چهارشنبه 20 مهر 1383 نشان می دهد
چکار کنم درست بشه
راستی سالهای کبیسه در نطر گرفته شدند؟
امیدوارم همین الان جوابمو بدهید :oops: فوریه
تاریخ دستگاهتون رو یه چکی بکنید. چون این کد کاملا درست هست. من از این کد در برنامه خودم استفاده کردم و درست کار میکنه. دقت کنید زمان دستگاه درست باشه : 9 جون 2004 برای امروز یعنی چهارشنبه 20 خردادماه 1383 :wink:
سلام آقای غیبی
1000 تا مرسی که جواب سوالم را زود دادید
متاسفانه تقویم سرور ما درست است. اما من 1 سایت خیلی خوب در ضمینه تبدیل تقویم ها پیدا کردم که حیفم میاد شما و سایر دوستان از اون بی خبر باشید
آدرسش این هست
http://www.geocities.com/couprie/calmath/index.html
امیدوارم برای شما هم لینک مفیدی باشه
موفق و پیروز باشید
ولی جدی اون کدی که آقای مهدوی نوشتند (همونی که اون بالا هست) حرف نداره.
از اینکه این آدرس رو معرفی کردید ممنونم ولی :نقل قول:
متاسفانه تقویم سرور ما درست است. اما من 1 سایت خیلی خوب در ضمینه تبدیل تقویم ها پیدا کردم که حیفم میاد شما و سایر دوستان از اون بی خبر باشید
آدرسش این هست
http://www.geocities.com/couprie/calmath/index.html
امیدوارم برای شما هم لینک مفیدی باشه
You have been directed to this page because there are errors with your Marketscore configurations and settings. Marketscore members, please go to the Members section at www.marketscore.com and configure your browser. If you have any questions, please feel free to contact us at 403error@marketscore.com.
:wink:
چرا من که چک می کنم درست است
http://www.geocities.com/couprie/calmath/index.html
این لینک خیلی خوبه تبدیل تمام تقویمها رو داره
راستی چرا شما کاربر نقره ای هستید؟
من بیلمیرم. :mrgreen:نقل قول:
من که چک می کنم درست است
لقب های قرار گرفته زیر هر آی دی بر اساس تعداد پستهای انجام شده میباشد. االآن دقیقا تعداد پست مورد نیاز برای هر یک از اون نوشته ها یادم نمیاد. اینم اضافه کنم که این القاب و ... مهم نیستند چون ممکنه کسی پست الکی زیاد داشته باشه و ... . مهم چیز دیگه ای هست که تا به حال بسیار بحث شده.نقل قول:
راستی چرا شما کاربر نقره ای هستید؟
لطفا این بحث کاربر ... رو دیگه ادامه ندید. :wink:
چشم ادامه نمی دم :قهر:
بازم نتونستید صفحه رو باز کنید :?:نقل قول:
من بیلمیرم.
امیدوارم این لینک رو بتونید ببینید :متفکر:
http://www.geocities.com/couprie/cal...l_persian.html