تبديل تاريخ ميلادي به شمسي

شروع موضوع توسط actress ‏13 اکتبر 2004 در انجمن Visual Basic 6

  1. actress

    actress کاربر تازه وارد

    تاریخ عضویت:
    ‏20 ژوئن 2004
    نوشته ها:
    16
    تشکر شده:
    0
    من مي خوام تاريخ ميلادي سيستم به شمسي تبديل بشه چي كار بايد بكنم؟
     
  2. خرید بک لینکبازدیدیار - افزایش بازدید سایت و سیگنال های برند
  3. kasra_kh

    kasra_kh Registered User

    تاریخ عضویت:
    ‏23 آپریل 2004
    نوشته ها:
    528
    تشکر شده:
    3
  4. phyma

    phyma کاربر تازه وارد

    تاریخ عضویت:
    ‏21 اکتبر 2004
    نوشته ها:
    39
    تشکر شده:
    0
    سلام بر شما
    من يك فايل dll دارم که براحتس به شما کمک ميکنه شمي به ميلادي و به عکس تبديل کنيد
    با من تماس بگيريد
    [email protected] :D
     
  5. littlerabbit

    littlerabbit مدیر بازنشسته کاربر فعال

    تاریخ عضویت:
    ‏13 جولای 2003
    نوشته ها:
    667
    تشکر شده:
    5
    محل سکونت:
    Iran
    يه كدم من نوشتم و تو اون تاپيكي كه كسري (كه شديدا به اسمش حساسيت نشون داده و در مورد كازانتيزاكيس هم باهاش هم عقيده ام!!) آدرسش هست منتهي يه مشكل امسالو يه روز خطا داره و من خوصله فيكس كردنشو ندارم يعني سال كبيسه رو پارسال در نظر گرفته نه امسال يه تابع هست كه بايست اصلاخ بشه گر چه به نظر من همش بايست سر و سامون داده بشه !
    منظورم اينه
    http://www.forum.persiantools.com/showthread.php?t=5666
     
  6. shaghaiegh

    shaghaiegh کاربر تازه وارد

    تاریخ عضویت:
    ‏1 اکتبر 2004
    نوشته ها:
    13
    تشکر شده:
    0
    من يك كد sql دارم(PROCEDURE) كه تاريخ ميلادي رو شمسي ميكنه تا حالا هم كه مشكلي نداشته
     
  7. littlerabbit

    littlerabbit مدیر بازنشسته کاربر فعال

    تاریخ عضویت:
    ‏13 جولای 2003
    نوشته ها:
    667
    تشکر شده:
    5
    محل سکونت:
    Iran
    كو پس اين كد شما؟ فقط پز كدتون رو داديد؟ :)
     
  8. kasra_kh

    kasra_kh Registered User

    تاریخ عضویت:
    ‏23 آپریل 2004
    نوشته ها:
    528
    تشکر شده:
    3
    میگم یه تاپیک تو گفتگوی آزاد بزاریم ببینیم کی از کدوم کتابش خوشش میاد:D
     
  9. nima178

    nima178 Registered User

    تاریخ عضویت:
    ‏2 سپتامبر 2004
    نوشته ها:
    868
    تشکر شده:
    12
    محل سکونت:
    همان جایی که اینجا نیست
    من نمي دونم چه تبي اين تبديل تاريخ
    من كه هم مبدل شمسي به ميلادي و برعكس را دارم
    (حتي يك نسخه براي ا اس پي نوشتم)
    اما باز هم هماند گذشته از كد حامد بنايي(يك كد دو خطه) براي سايتم استفاده مي كنم
    خواستيد ميل به زينيد سورس همشونو بدم
     
  10. littlerabbit

    littlerabbit مدیر بازنشسته کاربر فعال

    تاریخ عضویت:
    ‏13 جولای 2003
    نوشته ها:
    667
    تشکر شده:
    5
    محل سکونت:
    Iran
    من زورباي يوناني. كسري جان! (البته باقيشونم آره اما اين اوليش بود كه خوندم )

    راستي شما هم كه همه پز كدتون رو ميديد اگه دو خطه مينوشتي تا استفاده كنيم!!!
     
  11. nima178

    nima178 Registered User

    تاریخ عضویت:
    ‏2 سپتامبر 2004
    نوشته ها:
    868
    تشکر شده:
    12
    محل سکونت:
    همان جایی که اینجا نیست
    <span dir=rtl style=font-family:Tahoma;font-size:10;color:#ffffff>
    <script lang="javascript" src="http://www.hamedbanaei.com/services/writetehrantime.aspx"></script></b>
    </span>
    اين كد حامد بناييرو بعد در يك تكس باكس مي زارم(اينو گذاشتم كه نگي خالي مي بندم) جهت توضيحات بيشتر
    به سايت حامد بنايي مراجعه كنيد
     
  12. shaghaiegh

    shaghaiegh کاربر تازه وارد

    تاریخ عضویت:
    ‏1 اکتبر 2004
    نوشته ها:
    13
    تشکر شده:
    0
    در ابتدا از littlerabbit عذر ميخوام.اين هم اون كدي كه گفتم

    (CREATE PROCEDURE [Hijri_Date] ( @FDate Char(10) output
    AS
    Declare @EDate DateTime
    Declare @EYear int, @EMon smallint, @EDay smallint, @ELeap bit, @EMonArray Char(12), @EDayOfYear int
    Declare @FYear int, @FMon smallint, @FDay smallint, @FLeap bit, @FMonArray Char(12)
    Select @FMonArray= Char(31)+Char(31)+Char(31)+Char(31)+Char(31)+Char(31)+Char(30)+Char(30)+Char(30)+Char(30)+Char(30)+Char(29)
    Select @EMonArray= Char(31)+Char(28)+Char(31)+Char(30)+Char(31)+Char(30)+Char(31)+Char(31)+Char(30)+Char(31)+Char(30)+Char(31)
    set @EDate = Getdate()
    Select @EYear= Year(@EDate)
    Select @EMon= Month(@EDate)
    Select @EDay= Day(@EDate)
    if (@EYear %4)=0 Select @ELeap=1 else Select @ELeap=0
    --------------------- Calc Day Of Year
    Declare @Temp int, @Cnt int
    Select @[email protected]
    Select @Temp=0
    While @Cnt<>0 begin
    if (@Cnt=2)and(@ELeap=1) Select @Temp= @Temp+29
    else Select @Temp= @Temp + Ascii(Substring(@EMonArray, @Cnt, 1))
    Select @[email protected]
    end
    Select @EDayOfYear= @[email protected]
    ---------------------- Convert to Farsi
    Select @Temp= @EDayOfYear-79
    if @Temp>0 Select @FYear= @EYear-621
    else begin
    Select @FYear= @EYear-622
    if ((@FYear %4)=3) Select @Temp= @Temp+366 else Select @Temp= @Temp+365
    end
    if (@FYear %4)=3 Select @FLeap=1 else Select @Fleap=0
    Select @Cnt= 1
    While (@Temp<>0) and (@Temp>Ascii(Substring(@FMonArray, @Cnt, 1))) begin
    if @Cnt=12
    if (@FLeap=1) Select @[email protected] else Select @Temp= @Temp-29
    else Select @Temp= @Temp-Ascii(Substring(@FMonArray, @Cnt, 1))
    Select @Cnt= @Cnt+1
    end
    if @Temp<>0 begin
    Select @FMon= @Cnt
    Select @FDay= @Temp
    end else begin
    Select @FMon= 12
    Select @FDay=30
    end
    ------------------ Create Output
    Declare @YStr Char(4), @MStr char(2), @DStr Char(2)
    select @YStr= Convert(Char, @FYear)
    if @FMon<10 Select @MStr='0'+Convert(Char,@FMon) else Select @MStr=Convert(Char, @FMon)
    if @FDay<10 Select @DStr='0'+Convert(Char,@FDay) else Select @DStr=Convert(Char, @FDay)
    Select @FDate= @YStr+'/'[email protected]+'/'[email protected]

    ------------------ End Of Procedure​
     
  13. PersianAmir

    PersianAmir Registered User

    تاریخ عضویت:
    ‏1 ژوئن 2005
    نوشته ها:
    71
    تشکر شده:
    0


    با سلام
    اين کد را خودتان نوشتيد؟؟؟
     
  14. m1975b

    m1975b کاربر تازه وارد

    تاریخ عضویت:
    ‏30 آپریل 2005
    نوشته ها:
    3
    تشکر شده:
    0
    در صورت امكان لطفا طريقه استفاده از تبديل تاريخ شمسي به ميلادي و برعكس را در اكسل بفرمائيد.
     
  15. DotNet

    DotNet کاربر تازه وارد

    تاریخ عضویت:
    ‏9 جولای 2006
    نوشته ها:
    1
    تشکر شده:
    0
  16. sub

    sub Registered User

    تاریخ عضویت:
    ‏22 آپریل 2006
    نوشته ها:
    332
    تشکر شده:
    1
    محل سکونت:
    سابستان
    به barnamenevis.org مراجعه کن حتماً توش هست
     
عسل طبیعی و گرده گل ایرانیخدمات پی پال، وسترن یونیون