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

[Malihe]

کمک چطوری می توان با asp تاریخهای شمسی و میلادی را به یکدیگر تبدیل کرد
آدرس ایمیل من malihehabibi@yahoo.com
من عضو جدید هستم و نمی دونم اگه کسی راه حلی برای مشکل من ارائه بده کجا نوشته می شود

[M-Gheibi]

خیلی خوش آمدید.
عضو جدید بودن شما درست.
حداقل اگه تو سایت سرچ نمیکنید، 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) & " " & FDay& " " & Mon(FMon - 1) & " " &FYear

%>
<%= DateShamsi %> :wink:

[Malihe]

آقای مسعود غیبی
1000 تا ممنون از اینکه کمکم کردید و از شوخی هاتووووووووون
اما باید خدمتتون عرض کنم که من این سایت رو هم موقعه سرچ کردن در گوگل پیدا کردم و اون لینک هم قبلا چک کرده بودم منتهی می خواستم پاسخ کامل تری داشته باشم، پس خیلی هم تنبل نیستم
:wink: :قهقهه: :قهقهه: :قهقهه:

[M-Gheibi]

1000 تا ممنون از اینکه کمکم کردید و از شوخی هاتووووووووون
:wink:

منتهی می خواستم پاسخ کامل تری داشته باشم
اگه به قسمتهای دیگه سایت از جمله ASP.NET سر بزنید، کدهای دیگری هم پیدا میکنید. در بخش VB هم میتونید یه چیزایی پیدا کنید. :wink:

[Malihe]

بازم 1000 تا ممنون
ولی
این کدی که لطف کردید و اینجا قرار دادید امروز که چهارشنبه 20 خرداد 1383 می باشد را چهارشنبه 20 مهر 1383 نشان می دهد
چکار کنم درست بشه
راستی سالهای کبیسه در نطر گرفته شدند؟
امیدوارم همین الان جوابمو بدهید :oops: فوریه

[M-Gheibi]

تاریخ دستگاهتون رو یه چکی بکنید. چون این کد کاملا درست هست. من از این کد در برنامه خودم استفاده کردم و درست کار میکنه. دقت کنید زمان دستگاه درست باشه : 9 جون 2004 برای امروز یعنی چهارشنبه 20 خردادماه 1383 :wink:

[Malihe]

سلام آقای غیبی
1000 تا مرسی که جواب سوالم را زود دادید

متاسفانه تقویم سرور ما درست است. اما من 1 سایت خیلی خوب در ضمینه تبدیل تقویم ها پیدا کردم که حیفم میاد شما و سایر دوستان از اون بی خبر باشید

آدرسش این هست
http://www.geocities.com/couprie/calmath/index.html

امیدوارم برای شما هم لینک مفیدی باشه

موفق و پیروز باشید

[M-Gheibi]

ولی جدی اون کدی که آقای مهدوی نوشتند (همونی که اون بالا هست) حرف نداره.


متاسفانه تقویم سرور ما درست است. اما من 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]

چرا من که چک می کنم درست است
http://www.geocities.com/couprie/calmath/index.html
این لینک خیلی خوبه تبدیل تمام تقویمها رو داره
راستی چرا شما کاربر نقره ای هستید؟

[M-Gheibi]

من که چک می کنم درست است
من بیلمیرم. :mrgreen:

راستی چرا شما کاربر نقره ای هستید؟
لقب های قرار گرفته زیر هر آی دی بر اساس تعداد پستهای انجام شده میباشد. االآن دقیقا تعداد پست مورد نیاز برای هر یک از اون نوشته ها یادم نمیاد. اینم اضافه کنم که این القاب و ... مهم نیستند چون ممکنه کسی پست الکی زیاد داشته باشه و ... . مهم چیز دیگه ای هست که تا به حال بسیار بحث شده.
لطفا این بحث کاربر ... رو دیگه ادامه ندید. :wink:

[Malihe]

چشم ادامه نمی دم :قهر:


من بیلمیرم.

بازم نتونستید صفحه رو باز کنید :?:
امیدوارم این لینک رو بتونید ببینید :متفکر:

http://www.geocities.com/couprie/calmath/convert/civil_persian.html