نمایش نتایج 1 تا 11 از 11

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

  1. #1

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

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

  2. #2
    خیلی خوش آمدید.
    عضو جدید بودن شما درست.
    حداقل اگه تو سایت سرچ نمیکنید، 10تا 11 تاپیک قبل رو تیترشو نگاه کنید. (جدی نگیرید شوخی کردم :wink: )
    این موضوع تا به حال خیلی بحث شده.
    برای مثال به آدرس زیر یه نگاهی بندازید ( کد آقای مهدوی بهترینه)‌:
    http://www.barnamenevis.org/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:

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

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

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

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

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

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

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

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

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

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

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

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

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

  11. #11
    چشم ادامه نمی دم :قهر:

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

    http://www.geocities.com/couprie/cal...l_persian.html

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •