View Full Version : تبدیل تاریخهای شمسی و میلادی به یکدیگر
Malihe
دوشنبه 18 خرداد 1383, 15:07 عصر
کمک چطوری می توان با asp تاریخهای شمسی و میلادی را به یکدیگر تبدیل کرد
آدرس ایمیل من malihehabibi@yahoo.com
من عضو جدید هستم و نمی دونم اگه کسی راه حلی برای مشکل من ارائه بده کجا نوشته می شود
M-Gheibi
دوشنبه 18 خرداد 1383, 20:08 عصر
خیلی خوش آمدید.
عضو جدید بودن شما درست.
حداقل اگه تو سایت سرچ نمیکنید، 10تا 11 تاپیک قبل رو تیترشو نگاه کنید. (جدی نگیرید شوخی کردم :wink: )
این موضوع تا به حال خیلی بحث شده.
برای مثال به آدرس زیر یه نگاهی بندازید ( کد آقای مهدوی بهترینه):
http://www.barnamenevis.org/forum/viewtopic.php?t=7784
اگر هم حس کلیک کردن رو ندارید این کدش هست.
میلادی به شمسی
<%@ 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 %> :wink:
Malihe
سه شنبه 19 خرداد 1383, 10:50 صبح
آقای مسعود غیبی
1000 تا ممنون از اینکه کمکم کردید و از شوخی هاتووووووووون
اما باید خدمتتون عرض کنم که من این سایت رو هم موقعه سرچ کردن در گوگل پیدا کردم و اون لینک هم قبلا چک کرده بودم منتهی می خواستم پاسخ کامل تری داشته باشم، پس خیلی هم تنبل نیستم
:wink: :قهقهه: :قهقهه: :قهقهه:
M-Gheibi
سه شنبه 19 خرداد 1383, 15:02 عصر
1000 تا ممنون از اینکه کمکم کردید و از شوخی هاتووووووووون
:wink:
منتهی می خواستم پاسخ کامل تری داشته باشم
اگه به قسمتهای دیگه سایت از جمله ASP.NET سر بزنید، کدهای دیگری هم پیدا میکنید. در بخش VB هم میتونید یه چیزایی پیدا کنید. :wink:
Malihe
چهارشنبه 20 خرداد 1383, 14:35 عصر
بازم 1000 تا ممنون
ولی
این کدی که لطف کردید و اینجا قرار دادید امروز که چهارشنبه 20 خرداد 1383 می باشد را چهارشنبه 20 مهر 1383 نشان می دهد
چکار کنم درست بشه
راستی سالهای کبیسه در نطر گرفته شدند؟
امیدوارم همین الان جوابمو بدهید :oops: فوریه
M-Gheibi
چهارشنبه 20 خرداد 1383, 17:33 عصر
تاریخ دستگاهتون رو یه چکی بکنید. چون این کد کاملا درست هست. من از این کد در برنامه خودم استفاده کردم و درست کار میکنه. دقت کنید زمان دستگاه درست باشه : 9 جون 2004 برای امروز یعنی چهارشنبه 20 خردادماه 1383 :wink:
Malihe
شنبه 23 خرداد 1383, 09:53 صبح
سلام آقای غیبی
1000 تا مرسی که جواب سوالم را زود دادید
متاسفانه تقویم سرور ما درست است. اما من 1 سایت خیلی خوب در ضمینه تبدیل تقویم ها پیدا کردم که حیفم میاد شما و سایر دوستان از اون بی خبر باشید
آدرسش این هست
http://www.geocities.com/couprie/calmath/index.html
امیدوارم برای شما هم لینک مفیدی باشه
موفق و پیروز باشید
M-Gheibi
شنبه 23 خرداد 1383, 11:26 صبح
ولی جدی اون کدی که آقای مهدوی نوشتند (همونی که اون بالا هست) حرف نداره.
متاسفانه تقویم سرور ما درست است. اما من 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:
Malihe
شنبه 23 خرداد 1383, 16:00 عصر
چرا من که چک می کنم درست است
http://www.geocities.com/couprie/calmath/index.html
این لینک خیلی خوبه تبدیل تمام تقویمها رو داره
راستی چرا شما کاربر نقره ای هستید؟
M-Gheibi
یک شنبه 24 خرداد 1383, 11:55 صبح
من که چک می کنم درست است
من بیلمیرم. :mrgreen:
راستی چرا شما کاربر نقره ای هستید؟
لقب های قرار گرفته زیر هر آی دی بر اساس تعداد پستهای انجام شده میباشد. االآن دقیقا تعداد پست مورد نیاز برای هر یک از اون نوشته ها یادم نمیاد. اینم اضافه کنم که این القاب و ... مهم نیستند چون ممکنه کسی پست الکی زیاد داشته باشه و ... . مهم چیز دیگه ای هست که تا به حال بسیار بحث شده.
لطفا این بحث کاربر ... رو دیگه ادامه ندید. :wink:
Malihe
یک شنبه 24 خرداد 1383, 14:51 عصر
چشم ادامه نمی دم :قهر:
من بیلمیرم.
بازم نتونستید صفحه رو باز کنید :?:
امیدوارم این لینک رو بتونید ببینید :متفکر:
http://www.geocities.com/couprie/calmath/convert/civil_persian.html
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.