صفحه 2 از 2 اولاول 12
نمایش نتایج 41 تا 62 از 62

نام تاپیک: تاریخ شمسی

  1. #41
    کاربر جدید
    تاریخ عضویت
    مهر 1386
    محل زندگی
    شیراز
    پست
    5
    یک سری کد راحتتر


    type
    TYMD = Packed record
    YY: Byte;
    MM: Byte;
    DD: Byte;
    end;
    TLeapYear = Set of Byte;
    TMonthLen = Array[1..12] of Byte;

    const
    DeferDay = 35143;
    ZYMD: TYMD = (YY:0;MM:0;DD:0);
    LeapYear: TLeapYear = [75,79,83,87,91,95,99,103,107,111,115,119,123,127,1 31,135];
    MonthLen: TMonthLen = (31,31,31,31,31,31,30,30,30,30,30,30);



    function FDate(x: integer): TYMD;
    var
    i,j: integer;
    x : Integer;
    begin
    x := Trunc(Now);
    x := x - DeferDay;
    if x < 0 then
    begin
    Result := ZYMD;
    exit;
    end;
    i := 74;
    Repeat
    inc(i);
    if i in LeapYear then
    j := 366
    else
    j := 365;
    x := x - j;
    Until x <= 0;
    x := x + j;
    Result.YY := i;
    i := 0;
    Repeat
    inc(i);
    x := x - MonthLen[i];
    Until x <= 0;
    Result.MM := i;
    Result.DD := x + MonthLen[i];
    end;
    آخرین ویرایش به وسیله vcldeveloper : یک شنبه 28 بهمن 1386 در 15:48 عصر دلیل: تگ CODE

  2. #42
    کاربر دائمی آواتار ali_kolahdoozan
    تاریخ عضویت
    بهمن 1384
    محل زندگی
    اون سر دنیا
    پست
    1,631
    مبدل این همه زبان هست الا ++c . برای ++c کسی نداره ؟ vc نه ها ++c اصیل

  3. #43
    کاربر دائمی آواتار golihaghighi
    تاریخ عضویت
    اسفند 1382
    محل زندگی
    شيراز
    سن
    47
    پست
    234
    مبدل تاریخ شمسی به میلادی و قمری و برعکس برای #C ندارید؟

  4. #44
    کاربر دائمی آواتار Valadi
    تاریخ عضویت
    فروردین 1385
    محل زندگی
    فعلا در خدمت شما
    پست
    1,342
    اینو من دارم به زبان #C اما توی سیستمم گم کردم پیدا کنم میزارم توی سایت

  5. #45
    کاربر دائمی آواتار Valadi
    تاریخ عضویت
    فروردین 1385
    محل زندگی
    فعلا در خدمت شما
    پست
    1,342
    اینو ببیند برای #C
    فایل های ضمیمه فایل های ضمیمه

  6. #46
    خیلی ممنون از اساتید

    من مد یا هک یا قالب تاریخ هجری شمسی که روی vBulletin Version همین سایت نصب شده و (( تاریخ عضویت و تاریخ ارسال پست را به صورت هجری شمسی نشون میده)) را می خوام
    بعضی دوستان مانند سایت http://www.persian-forum.com قبلا نصب کردن ولی با مشکل مواجه شدن و حذفش کردن
    ممنون از همه ی اساتید

  7. #47

    عالی است

    ضمن تشکر لازم دیدم رسما تشکر نمایم
    واقعا عالی است
    با تشکر

  8. #48
    کاربر تازه وارد آواتار mohammad_alikhani
    تاریخ عضویت
    اردیبهشت 1385
    محل زندگی
    تهران
    پست
    53
    من از زمانی که یادم می یاد یه کامپوننت نبود که هم تاریخ میلادی داشته باشه هم شمسی. حالا قمری پیشکش...
    آخر سر به این فکر افتادم که خودم واسه دلفی این ابزار رو تولید کنم... بعد از اتمام کار حتما برای هم روی سایت آپ می کنم.

  9. #49

    نقل قول: تاریخ شمسی

    من خودم تو PHP دوبار از اول نشستم کلاس نوشتم ولی بعد از سر و کله زدن با باگهاش، تصمیم گرفتم بیخیال خودکفایی شم و از نمونه های آزمایش شده استفاده کنم.

    این کلاس رو از iranphp.net گرفتم. یه مقداری شلوغ پلوغه ولی متدهای مبدلش (جلالی به میلادی و میلادی به جلالی) خوب کار می کنه.




    واسه یه کاری دنبال تقویم جاوااسکریپت میگشتم. بطور اتفاقی وارد سایت آقای علی فرهادی شدم. اونجا یه تقویم خیلی خوب و مفید توسط ایشون ساخته شده: JalaliJSCalendar :: JavaScript DHTML Calendar

    اضافه کنم که سایت ایشون مطالب مفید دیگه ای هم دارند.
    فایل های ضمیمه فایل های ضمیمه

  10. #50
    مدیر بخش آواتار salehbagheri
    تاریخ عضویت
    خرداد 1386
    محل زندگی
    In Hearts
    سن
    34
    پست
    2,225

    نقل قول: تاریخ شمسی

    سلام!

    تبديل تاريخ ميلادي به شمسي و كلي امكانات ديگر!

    زبان VisualBasic 2008

    https://barnamenevis.org/showpo...8&postcount=19
    امیدم به دستان زیبای اوست . آنکه می آید . همان که نامش منجی ست ....

    به راستی اگر غرق نبودیم چرا مارا به منجی ای نیازمند کرده اند؟ ... دنیا دریاست ....

    دلنوشته های من


  11. #51

    نقل قول: تاریخ شمسی

    با عرض سلام لطفا برای مشکل کار با تاریخ سری به سایت www.nano3oft.com بزنید . دیگه فکر نکنم مشکل کار با تاریخ داشته باشید .

  12. #52

    نقل قول: تاریخ شمسی

    من يك برنامه با vb.netمي خوام كه هم تاريخ شمسي باشد هم تاريخ ميلادي براي ده سال كار كند اگر ممكن سورس كدش رو برايم بكذاريد ازشما ها متشكرم

  13. #53

    نقل قول: تاریخ شمسی

    نقل قول نوشته شده توسط hector2000 مشاهده تاپیک
    با سلام
    دوستان شاید خندتون بگیره ولی می خواهم بگم که جواب سوالم را فهمیدم و می خواهم در اینجا هم برای دوستان علاقه مند قرار بدم تا بدبختی هایی که من و دوستم کشیدیم را نکشند.
    این فایل را بصورت ASP برای دوستان قرار می دهم که براحتی می توانند ان را به کدهای وی بی و ی بی دات نت تبدیل کنند.
    طریقه استفاده:
    اگر در ASP می خواهید استفاده کنید:
    اول فایل را به برنامتون INCLUDE کنید و بعد برای تبدیل تاریخ میلادی به شمسی از نمونه های زیر استفاده کنید.
    میلادی به شمسی:...
    با تشکر از دوست ارجمندم حسن اقا.
    سلام عزیز
    میشه لطفاً بگید که چطور میشه از برنامه شما توی VB.NET استفاده کرد؟
    لطفاً یه جوری بگید تا ما مبتدی ها هم متوجه بشیم
    ممنون

  14. #54
    کاربر دائمی آواتار mdssoft
    تاریخ عضویت
    خرداد 1386
    محل زندگی
    تهران / ساری
    پست
    392

    تقویم شمسی C#‎

    این DLL تعدادی properties و یه متد برای تبدیل DateTime به تقویم شمسی فراهم کرده.
    البته من از خود PersianCalendar تو .Net Framework استفاده کردم و این کلاس رو برای راحتی کار و سریع تر شدن انجام پروژه نوشتم.

    تمام پروپرتی ها کامنت گذاری شدند و به راحتی متوجه میشید که هر کدام چه مقداری رو بر می گردونه.

    لینک دانلود

  15. #55
    کاربر جدید
    تاریخ عضویت
    اسفند 1388
    محل زندگی
    هر جا که امید هست و امید...
    پست
    6

    نقل قول: تاریخ شمسی

    کاش کمی توضیحتون بیشتر بود

  16. #56

    یک راه حل ساده برای استفاده از تاریخ شمسی در دات نت 3.5 به بالا

    یک راه حل ساده برای استفاده از تاریخ شمسی در دات نت 3.5 به بالا :

    کلاس زیر را به پروژه اضافه کنید :

    using System;
    using System.Globalization;

    public static class ShamsiDate
    {
    static PersianCalendar persianCalendar = new PersianCalendar();
    public static string ToShamsi(this DateTime miladiDate)
    {
    string year = persianCalendar.GetYear(miladiDate).ToString();
    string month = persianCalendar.GetMonth(miladiDate).ToString().Pa dLeft(2, '0');
    string day = persianCalendar.GetDayOfMonth(miladiDate).ToString ().PadLeft(2, '0');
    return year + "/" + month + "/" + day;
    }

    public static DateTime ToMiladi(this string shamsiDate)
    {
    int year = int.Parse(shamsiDate.Substring(0, 4));
    int month = int.Parse(shamsiDate.Substring(5, 2));
    int day = int.Parse(shamsiDate.Substring(8, 2));
    return persianCalendar.ToDateTime(year, month, day, 0, 0, 0, 0);
    }
    }


    بعد هر جا خواستید استفاده کنید. مثل این :

    string shamsiToday = DateTime.Now.ToShamsi();

    DateTime miladiDate = "1389/10/11".ToMiladi();

    آخرین ویرایش به وسیله rahmatr : پنج شنبه 09 دی 1389 در 13:44 عصر

  17. #57
    کاربر دائمی آواتار MSK
    تاریخ عضویت
    تیر 1383
    محل زندگی
    فعلا تهران - بعدا خدا می‌دونه!
    پست
    331

    نقل قول: تاریخ شمسی

    http://www.fourmilab.ch/documents/calendar/
    این سایت انواع مختلف تقویم ها رو توضیح داده و قابلیت تبدیل بین اونها رو داره و سرس کدها به جاوااسکریپت قابل دریافته.

    من میلادی به شمسی اون رو به پیتون تبدیل کردم که اینجا قرار میدم و اگه اشتباه نکنم بنا به ادعای نویسندش تا ۵هزار سال بعد از میلاد رو جواب میده!

    PersianDate.zip

    و روش استفاده:

    >>> import PersianDate
    >>> PersianDate.today()
    (1389.0, 12.0, 27.0, 5.0)
    >>> PersianDate.todayStr()
    '\xd8\xac\xd9\x85\xd8\xb9\xd9\x87 27 \xd8\xa7\xd8\xb3\xd9\x81\xd9\x86\xd8\xaf 1389'
    >>> PersianDate.greg2persian(1950, 1, 1)
    (1328.0, 10.0, 11.0)
    >>>


    که در آن چون کاراکتر های فارسی unicode اند بصورت کدشده چاب شده اند.

  18. #58
    کاربر تازه وارد آواتار ahmadbh
    تاریخ عضویت
    مهر 1383
    محل زندگی
    شيراز
    پست
    96

    نقل قول: تاریخ شمسی

    سلام
    چطور ميتونم تاريخ قمري در دلفي استفاده كنم از چه چيزي استفاده كنم
    لطفا نمونه سورس يا كامپوننتي بگذاريد
    باتشكر

  19. #59
    کاربر جدید آواتار 852258
    تاریخ عضویت
    آذر 1389
    محل زندگی
    شهرضا
    سن
    34
    پست
    2

    نقل قول: تاریخ شمسی

    نقل قول نوشته شده توسط nasr مشاهده تاپیک
    من از این کد در دلفی استفاده می کنم


    function shamsi(const a: string): string;
    var
    y, m, d: integer;
    ys, ms, ds: string;
    begin
    { m := strtoint((copy(a,0,2)));//05/09/07 2007/05/09
    d := strtoint((copy(a,4,2)));
    y := strtoint((copy(a,7,2)));y := 2000 + y;}

    m := strtoint((copy(a, 6, 2))); //05/09/07 2007/05/09
    d := strtoint((copy(a, 9, 2)));
    y := strtoint((copy(a, 3, 2))); y := 2000 + y;
    if ((M < 3) or ((M = 3) and (D < 21))) then
    Y := Y - 622
    else
    Y := Y - 621;

    case M of
    1:
    if (D < 21) then begin
    M := 10; D := D + 10;
    end
    else begin
    M := 11; D := D - 20;
    end;
    2:
    if (D < 20) then begin
    M := 11; D := D + 11;
    end
    else begin
    M := 12; D := D - 19;
    end;
    3:
    if (D < 21) then begin
    M := 12; D := D + 9;
    end
    else begin
    M := 1; D := D - 20;
    end;
    4:
    if (D < 21) then begin
    M := 1; D := D + 11;
    end
    else begin
    M := 2; D := D - 20;
    end;
    5, 6:
    if (D < 22) then begin
    M := M - 3; D := D + 10;
    end
    else begin
    M := M - 2; D := D - 21;
    end;
    7, 8, 9:
    if (D < 23) then begin
    M := M - 3; D := D + 9;
    end
    else begin
    M := M - 2; D := D - 22;
    end;
    10:
    if (D < 23) then begin
    M := 7; D := D + 8;
    end
    else begin
    M := 8; D := D - 22;
    end;
    11, 12:
    if (D < 22) then begin
    M := M - 3; D := D + 9;
    end
    else begin
    M := M - 2; D := D - 21;
    end;
    end;

    if d < 10 then ds := '0' + inttostr(d)
    else
    ds := inttostr(d);
    if m < 10 then ms := '0' + inttostr(m)
    else
    ms := inttostr(m);
    ys := inttostr(y); ys := copy(ys, 3, 2);

    result := ys + '/' + ms + '/' + ds;
    end;


    روش استفاده


    procedure TFormInfoAlum.FormShow(Sender: TObject);
    begin
    MaskEdit1.Text := shamsi(DateToStr(Date));
    end;

    مرسی از همگی

  20. #60
    کاربر دائمی آواتار M.T.P
    تاریخ عضویت
    دی 1388
    محل زندگی
    Planet Earth
    پست
    1,769

    نقل قول: تاریخ شمسی

    یک تابع جهت تبدیل تاریخ میلادی به شمسی به زبان vb6

    کد HTML:
    Function MiladiToShamsi(ByVal StrDate As String) As String
        Dim IntArrDay(0 To 1, 1 To 12) As Integer
        Dim IntArrRuz(0 To 1, 1 To 12) As Integer
        Dim IntI, IntChrisToNoruz As Integer
        Dim IntKabiseh, IntLeapYear As Integer
        Dim IntYear, IntMonth, IntDay As Integer
        Dim IntSal, IntMah, IntRuz As Integer
        Dim StrFormat As String
        
        IntArrDay(0, 1) = 31: IntArrDay(0, 2) = 28: IntArrDay(0, 3) = 31: IntArrDay(0, 4) = 30
        IntArrDay(0, 5) = 31: IntArrDay(0, 6) = 30: IntArrDay(0, 7) = 31: IntArrDay(0, 8) = 31
        IntArrDay(0, 9) = 30: IntArrDay(0, 10) = 31: IntArrDay(0, 11) = 30: IntArrDay(0, 12) = 31
        IntArrDay(1, 1) = 31: IntArrDay(1, 2) = 29: IntArrDay(1, 3) = 31: IntArrDay(1, 4) = 30
        IntArrDay(1, 5) = 31: IntArrDay(1, 6) = 30: IntArrDay(1, 7) = 31: IntArrDay(1, 8) = 31
        IntArrDay(1, 9) = 30: IntArrDay(1, 10) = 31: IntArrDay(1, 11) = 30: IntArrDay(1, 12) = 31
        
        IntArrRuz(0, 1) = 31: IntArrRuz(0, 2) = 31: IntArrRuz(0, 3) = 31: IntArrRuz(0, 4) = 31
        IntArrRuz(0, 5) = 31: IntArrRuz(0, 6) = 31: IntArrRuz(0, 7) = 30: IntArrRuz(0, 8) = 30
        IntArrRuz(0, 9) = 30: IntArrRuz(0, 10) = 30: IntArrRuz(0, 11) = 30: IntArrRuz(0, 12) = 29
        IntArrRuz(1, 1) = 31: IntArrRuz(1, 2) = 31: IntArrRuz(1, 3) = 31: IntArrRuz(1, 4) = 31
        IntArrRuz(1, 5) = 31: IntArrRuz(1, 6) = 31: IntArrRuz(1, 7) = 30: IntArrRuz(1, 8) = 30
        IntArrRuz(1, 9) = 30: IntArrRuz(1, 10) = 30: IntArrRuz(1, 11) = 30: IntArrRuz(1, 12) = 30
        
        IntYear = Year(StrDate)
        IntMonth = Month(StrDate)
        IntDay = Day(StrDate)
        
        IntSal = IntYear - 622
        
        If IntYear Mod 4 = 0 Then IntLeapYear = 1 Else IntLeapYear = 0 'Barrasi sale kabisel miladi
        If IntSal Mod 4 = 3 Then IntKabiseh = 1 Else IntKabiseh = 0 'Barrasi sale kabisel Shamsi
        
        IntChrisToNoruz = 79
        
        IntRuz = 0
        IntRuz = IntRuz + IntDay
        For IntI = 1 To IntMonth - 1
          IntRuz = IntRuz + IntArrDay(IntLeapYear, IntI)
        Next IntI
        
        If (IntRuz > IntChrisToNoruz) Then
          IntSal = IntSal + 1
          IntRuz = IntRuz - IntChrisToNoruz
        Else
          For IntMah = 1 To 9
            IntRuz = IntRuz + IntArrRuz(IntKabiseh, IntMah)
          Next IntMah
          If (IntKabiseh = 1) Then
            IntRuz = IntRuz + 11
          Else
            IntRuz = IntRuz + 10
          End If
        End If
        
        IntMah = 1
        While (IntRuz > IntArrRuz(IntKabiseh, IntMah))
         IntRuz = IntRuz - IntArrRuz(IntKabiseh, IntMah)
         IntMah = IntMah + 1
        Wend
        
        StrFormat = CStr(IntSal) & "/" & Format$(IntMah, "00") & "/" & Format$(IntRuz, "00")
        MiladiToShamsi = StrFormat
    End Function

  21. #61
    کاربر دائمی آواتار hamzehsh
    تاریخ عضویت
    مرداد 1385
    محل زندگی
    https://samanhis.ir
    سن
    41
    پست
    166

    نقل قول: تاریخ شمسی

    تبديل تاريخ و به دست آوردن تاريخ به زبان #C
    C#‎‎

    PersianDateBox.zipPersianDateBox.zip

  22. #62
    کاربر تازه وارد
    تاریخ عضویت
    تیر 1388
    محل زندگی
    تهران
    پست
    59

    نقل قول: تاریخ شمسی

    پروژه متن باز تقویم فارسی برای JDK و GWT

    http://sourceforge.net/projects/persian/

    http://code.google.com/p/persian-calendar/

صفحه 2 از 2 اولاول 12

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

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