آخرين پست هاي ارسالي انجمن ايران دلفي

دانلود رایگان کامپوننت های دلفی طراحی تخصصی ربات تلگرام
نمایش نتایج: از 1 به 14 از 14

موضوع: تبدیل تاریخ میلادی به شمسی

  1. #1
    مدیرکل سایت admin آواتار ها
    تاریخ عضویت
    مهر ۱۳۸۷
    محل سکونت
    تهران ، بندرعباس ، آیسک
    سن
    33
    نوشته ها
    513
    تشکر ها
    240
    تشکر شده 217 بار در 138 ارسال.
    Blog Entries
    1

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

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

    کد:

    کد:
    Function MiladiToShamsi(var Year, Month, Day: Word): String;
    const
      count_days : array[1..12] of Byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
    var
      i: Byte;
      st: String;
      day_year: Integer;
    begin
      day_year:= 0;
      for i:= 1 to month - 1 do
        day_year:= day_year + count_days;
      day_year:= day_year + day;
    
      if IsLeapYear(Year) and (month > 2) then
        Inc(day_year);
    
      if (day_year <= 79) then
      begin
        if ((Year - 1) mod 4 = 0) then
          day_year:= day_year + 11
        else
          day_year:= day_year + 10;
    
        Year:= Year - 622;
    
        if (day_year mod 30 = 0) then
        begin
          Month:= (day_year div 30) + 9;
          Day:= 30;
        end
        else
        begin
          Month:= (day_year div 30) + 10;
          Day:= day_year mod 30;
        end;
      end
      else
      begin
        year:= year - 621;
    
        day_year:= day_year - 79;
        if (day_year <= 186) then
        begin
          if (day_year mod 31 = 0) then
          begin
            Month:= (day_year div 31);
            Day:= 31;
          end
          else
          begin
            Month:= (day_year div 31) + 1;
            Day:= day_year mod 31;
          end;
        end
        else
        begin
          day_year:= day_year - 186;
          if (day_year mod 30 = 0) then
          begin
            Month:= (day_year div 30) + 6;
            Day:= 30;
          end
          else
          begin
            Month:= (day_year div 30) + 7;
            Day:= day_year mod 30;
          end;
        end;
      end;   // else  .
    
      st:= IntToStr(Year) + &quot;/&quot;;
      if (Month < 10) then
        st:= st + &quot;0&quot;;
      st:= st + IntToStr(Month) + &quot;/&quot;;
      if (Day < 10) then
        st:= st + &quot;0&quot;;
      st:= st + IntToStr(Day);
    
      Result:= st;
    end;
    دلفی ،*جذاب ترین زبان طراحی نرم افزار ...

  2. کاربر مقابل از admin عزیز به خاطر این پست مفید تشکر کرده است:

    b_e_shamlu (۲۸ / فروردین / ۱۳۹۵)

  3. #2
    کاربر سایت talaptolop آواتار ها
    تاریخ عضویت
    دی ۱۳۹۲
    سن
    5
    نوشته ها
    2
    تشکر ها
    0
    تشکر شده 0 بار در 0 ارسال.
    نقل قول از admin
    اینم یک تابع واسه تبدیل تاریخ به شمسی

    کد:

    کد:
    Function MiladiToShamsi(var Year, Month, Day: Word): String;
    const
     *count_days : array[1..12] of Byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
    var
     *i: Byte;
     *st: String;
     *day_year: Integer;
    begin
     *day_year:= 0;
     *for i:= 1 to month - 1 do
     * *day_year:= day_year + count_days;
     *day_year:= day_year + day;
    
     *if IsLeapYear(Year) and (month > 2) then
     * *Inc(day_year);
    
     *if (day_year <= 79) then
     *begin
     * *if ((Year - 1) mod 4 = 0) then
     * * *day_year:= day_year + 11
     * *else
     * * *day_year:= day_year + 10;
    
     * *Year:= Year - 622;
    
     * *if (day_year mod 30 = 0) then
     * *begin
     * * *Month:= (day_year div 30) + 9;
     * * *Day:= 30;
     * *end
     * *else
     * *begin
     * * *Month:= (day_year div 30) + 10;
     * * *Day:= day_year mod 30;
     * *end;
     *end
     *else
     *begin
     * *year:= year - 621;
    
     * *day_year:= day_year - 79;
     * *if (day_year <= 186) then
     * *begin
     * * *if (day_year mod 31 = 0) then
     * * *begin
     * * * *Month:= (day_year div 31);
     * * * *Day:= 31;
     * * *end
     * * *else
     * * *begin
     * * * *Month:= (day_year div 31) + 1;
     * * * *Day:= day_year mod 31;
     * * *end;
     * *end
     * *else
     * *begin
     * * *day_year:= day_year - 186;
     * * *if (day_year mod 30 = 0) then
     * * *begin
     * * * *Month:= (day_year div 30) + 6;
     * * * *Day:= 30;
     * * *end
     * * *else
     * * *begin
     * * * *Month:= (day_year div 30) + 7;
     * * * *Day:= day_year mod 30;
     * * *end;
     * *end;
     *end; * // else *.
    
     *st:= IntToStr(Year) + &quot;/&quot;;
     *if (Month < 10) then
     * *st:= st + &quot;0&quot;;
     *st:= st + IntToStr(Month) + &quot;/&quot;;
     *if (Day < 10) then
     * *st:= st + &quot;0&quot;;
     *st:= st + IntToStr(Day);
    
     *Result:= st;
    end;




    _ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ _ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ _ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ _ــ_ــ_ــ_ــ_ــ_ــ_ــ_


  4. #3
    کاربر سایت talaptolop آواتار ها
    تاریخ عضویت
    دی ۱۳۹۲
    سن
    5
    نوشته ها
    2
    تشکر ها
    0
    تشکر شده 0 بار در 0 ارسال.
    نقل قول از admin
    اینم یک تابع واسه تبدیل تاریخ به شمسی

    کد:

    کد:
    Function MiladiToShamsi(var Year, Month, Day: Word): String;
    const
     *count_days : array[1..12] of Byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
    var
     *i: Byte;
     *st: String;
     *day_year: Integer;
    begin
     *day_year:= 0;
     *for i:= 1 to month - 1 do
     * *day_year:= day_year + count_days;
     *day_year:= day_year + day;
    
     *if IsLeapYear(Year) and (month > 2) then
     * *Inc(day_year);
    
     *if (day_year <= 79) then
     *begin
     * *if ((Year - 1) mod 4 = 0) then
     * * *day_year:= day_year + 11
     * *else
     * * *day_year:= day_year + 10;
    
     * *Year:= Year - 622;
    
     * *if (day_year mod 30 = 0) then
     * *begin
     * * *Month:= (day_year div 30) + 9;
     * * *Day:= 30;
     * *end
     * *else
     * *begin
     * * *Month:= (day_year div 30) + 10;
     * * *Day:= day_year mod 30;
     * *end;
     *end
     *else
     *begin
     * *year:= year - 621;
    
     * *day_year:= day_year - 79;
     * *if (day_year <= 186) then
     * *begin
     * * *if (day_year mod 31 = 0) then
     * * *begin
     * * * *Month:= (day_year div 31);
     * * * *Day:= 31;
     * * *end
     * * *else
     * * *begin
     * * * *Month:= (day_year div 31) + 1;
     * * * *Day:= day_year mod 31;
     * * *end;
     * *end
     * *else
     * *begin
     * * *day_year:= day_year - 186;
     * * *if (day_year mod 30 = 0) then
     * * *begin
     * * * *Month:= (day_year div 30) + 6;
     * * * *Day:= 30;
     * * *end
     * * *else
     * * *begin
     * * * *Month:= (day_year div 30) + 7;
     * * * *Day:= day_year mod 30;
     * * *end;
     * *end;
     *end; * // else *.
    
     *st:= IntToStr(Year) + &quot;/&quot;;
     *if (Month < 10) then
     * *st:= st + &quot;0&quot;;
     *st:= st + IntToStr(Month) + &quot;/&quot;;
     *if (Day < 10) then
     * *st:= st + &quot;0&quot;;
     *st:= st + IntToStr(Day);
    
     *Result:= st;
    end;





    ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_
    ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_
    ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_
    سلام خسته نباشین خیلی سایت باحالیه خیلی چیز یادگرفتم
    من مبتدی ام خیلی از دلفی سردر نمیارم نیاز مبرم هم به استفاده از تاریخ
    شمسی تو یه برنامه دارم چندجا این تابع رو دیدم ولی نمیفهمم چطوری ازش
    استفاده کنم.......!
    آخه فقط بلدم روی یه شی کد بنویسم این کد رو نمیفهمم کجا و چجوری کپی کنم.....!
    ممنون میشم کامل و واضح حالیم کنین
    ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_
    ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_
    ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ــ_ ــ_ــ_ــ_ــ_ــ_ــ_

  5. #4
    مدیرکل سایت admin آواتار ها
    تاریخ عضویت
    مهر ۱۳۸۷
    محل سکونت
    تهران ، بندرعباس ، آیسک
    سن
    33
    نوشته ها
    513
    تشکر ها
    240
    تشکر شده 217 بار در 138 ارسال.
    Blog Entries
    1
    سلام کاربر [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]* و مرسی از* نظر لطفتون.
    این یک تابع برای تبدیل تاریخ میلادی به شمسیه ، کافیه* این رو در قسمت بالای یونیت اتون یعنی بعد از* implementation
    کپی کنید و در هر قسمت از کدتون فقط این رو به صورت زیر صدا بزنید .
    مثال :
    تبدیل 2013/12/01 به شمسی
    کد:

    کد:
    MiladiToShamsi(2013,12,01);
    دلفی ،*جذاب ترین زبان طراحی نرم افزار ...

  6. کاربر مقابل از admin عزیز به خاطر این پست مفید تشکر کرده است:

    b_e_shamlu (۲۸ / فروردین / ۱۳۹۵)

  7. #5
    مدیر انجمن meyti آواتار ها
    تاریخ عضویت
    مرداد ۱۳۹۲
    نوشته ها
    142
    تشکر ها
    134
    تشکر شده 73 بار در 54 ارسال.
    با اجازه از مدیر عزیز :
    1- این تابع تست شد و یه ایراد کوچک داشت . اونم یه * &quot; [* i* ] &quot; * در آخر خط 11 کم داشت . البته شما درست کد رو گذاشتید ولی سایت اون رو نشان نمیده .


    تابع اصلاح شده :

    کد:

    کد:
    Function MiladiToShamsi(var Year, Month, Day: Word): String;
    const
    count_days : array[1..12] of Byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
    var
    i: Byte;
    st: String;
    day_year: Integer;
    begin
    day_year:= 0;
    for i:= 1 to month - 1 do
    day_year:= day_year + count_days[ i ] ; 
    
    day_year:= day_year + day;
    
    if IsLeapYear(Year) and (month > 2) then
    Inc(day_year);
    
    if (day_year <= 79) then
    begin
    if ((Year - 1) mod 4 = 0) then
    day_year:= day_year + 11
    else
    day_year:= day_year + 10;
    
    Year:= Year - 622;
    
    if (day_year mod 30 = 0) then
    begin
    Month:= (day_year div 30) + 9;
    Day:= 30;
    end
    else
    begin
    Month:= (day_year div 30) + 10;
    Day:= day_year mod 30;
    end;
    end
    else
    begin
    year:= year - 621;
    
    day_year:= day_year - 79;
    if (day_year <= 186) then
    begin
    if (day_year mod 31 = 0) then
    begin
    Month:= (day_year div 31);
    Day:= 31;
    end
    else
    begin
    Month:= (day_year div 31) + 1;
    Day:= day_year mod 31;
    end;
    end
    else
    begin
    day_year:= day_year - 186;
    if (day_year mod 30 = 0) then
    begin
    Month:= (day_year div 30) + 6;
    Day:= 30;
    end
    else
    begin
    Month:= (day_year div 30) + 7;
    Day:= day_year mod 30;
    end;
    end;
    end; // else .
    
    st:= IntToStr(Year) + &quot;/&quot;;
    if (Month < 10) then
    st:= st + &quot;0&quot;;
    st:= st + IntToStr(Month) + &quot;/&quot;;
    if (Day < 10) then
    st:= st + &quot;0&quot;;
    st:= st + IntToStr(Day);
    
    Result:= st;
    end;



    2-چون پارامترهای ورودی تابع باید به صورت متغیر باشه ، فراخوانی تابع باید با متغییر و به صورت زیر باشه .

    کد:

    کد:
    v1:=2014;
    v2:=1;
    v3:=22;
    label1.caption:=MiladiToShamsi(v1,v2,v3);





  8. #6
    مدیر انجمن meyti آواتار ها
    تاریخ عضویت
    مرداد ۱۳۹۲
    نوشته ها
    142
    تشکر ها
    134
    تشکر شده 73 بار در 54 ارسال.
    البته اگه کمی تابع رو تغییر بدیم فراخوانی اون راحتتر میشه :

    کد:

    کد:
    Function MiladiToShamsi(date1:TDate): String;
    const
    count_days : array[1..12] of Byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
    var
    
    Year, Month, Day: Word ;
    i: Byte;
    st,strtemp: String;
    day_year: Integer;
    
    begin
    
    strtemp:=datetostr(date1);
    Year:=strtoint(copy(strtemp,1,4));
    Month:=strtoint(copy(strtemp,6,2));
    Day:=strtoint(copy(strtemp,9,2));
    
    
    day_year:= 0;
    for i:= 1 to month - 1 do
    day_year:= day_year + count_days [ i ] ;
    day_year:= day_year + day;
    
    if IsLeapYear(Year) and (month > 2) then
    Inc(day_year);
    
    if (day_year <= 79) then
    begin
    if ((Year - 1) mod 4 = 0) then
    day_year:= day_year + 11
    else
    day_year:= day_year + 10;
    
    Year:= Year - 622;
    
    if (day_year mod 30 = 0) then
    begin
    Month:= (day_year div 30) + 9;
    Day:= 30;
    end
    else
    begin
    Month:= (day_year div 30) + 10;
    Day:= day_year mod 30;
    end;
    end
    else
    begin
    year:= year - 621;
    
    day_year:= day_year - 79;
    if (day_year <= 186) then
    begin
    if (day_year mod 31 = 0) then
    begin
    Month:= (day_year div 31);
    Day:= 31;
    end
    else
    begin
    Month:= (day_year div 31) + 1;
    Day:= day_year mod 31;
    end;
    end
    else
    begin
    day_year:= day_year - 186;
    if (day_year mod 30 = 0) then
    begin
    Month:= (day_year div 30) + 6;
    Day:= 30;
    end
    else
    begin
    Month:= (day_year div 30) + 7;
    Day:= day_year mod 30;
    end;
    end;
    end; // else .
    
    st:= IntToStr(Year) + &quot;/&quot;;
    if (Month < 10) then
    st:= st + &quot;0&quot;;
    st:= st + IntToStr(Month) + &quot;/&quot;;
    if (Day < 10) then
    st:= st + &quot;0&quot;;
    st:= st + IntToStr(Day);
    
    Result:= st;
    end;


    فراخوانی :

    کد:

    کد:
    Label1.Caption:=MiladiToShamsi(date);


  9. #7
    مدیرکل سایت admin آواتار ها
    تاریخ عضویت
    مهر ۱۳۸۷
    محل سکونت
    تهران ، بندرعباس ، آیسک
    سن
    33
    نوشته ها
    513
    تشکر ها
    240
    تشکر شده 217 بار در 138 ارسال.
    Blog Entries
    1
    سلام* و درود خدمت مدیر [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

    روشتون روش خوبیه* البته یه ایراد کوچولو داره ، اون هم مربوط به کد نویسی شما نیست، مربوط به فرمت تاریخ میلادیه.
    اگر کاربر* تاریخ رو از سیستم گرفت و سیستم هم تاریخ رو به صورت زیر یعنی :

    2011/30/10
    یا
    30/10/2011
    بهش بده باید چیکار کرد ؟
    دیگه اون موقع کاراکتر 1 تا 4 ممکنه سال نباشه و ...
    در هر صورت مرسی از خلاقیت و پشتکار شما مدیر عزیز.
    موفق و موید باشید
    دلفی ،*جذاب ترین زبان طراحی نرم افزار ...

  10. کاربر مقابل از admin عزیز به خاطر این پست مفید تشکر کرده است:

    b_e_shamlu (۲۸ / فروردین / ۱۳۹۵)

  11. #8
    مدیر انجمن meyti آواتار ها
    تاریخ عضویت
    مرداد ۱۳۹۲
    نوشته ها
    142
    تشکر ها
    134
    تشکر شده 73 بار در 54 ارسال.
    به اینجاش فکر نکرده بودم ولی با دستور زیر درست میشه و فرمت به هر صورتی باشه درست عمل میکنه :

    کد:

    کد:
    strtemp:=FormatDateTime(&quot;yyyy/mm/dd&quot;, date1);




    کد:

    کد:
    Function MiladiToShamsi(date1:TDate): String;
    const
    count_days : array[1..12] of Byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
    var
    
    Year, Month, Day: Word ;
    i: Byte;
    st,strtemp: String;
    day_year: Integer;
    
    begin
    
    strtemp:=FormatDateTime(&quot;yyyy/mm/dd&quot;, date1);
    
    Year:=strtoint(copy(strtemp,1,4));
    Month:=strtoint(copy(strtemp,6,2));
    Day:=strtoint(copy(strtemp,9,2));
    
    
    day_year:= 0;
    for i:= 1 to month - 1 do
    day_year:= day_year + count_days [ i ] ;
    day_year:= day_year + day;
    
    if IsLeapYear(Year) and (month > 2) then
    Inc(day_year);
    
    if (day_year <= 79) then
    begin
    if ((Year - 1) mod 4 = 0) then
    day_year:= day_year + 11
    else
    day_year:= day_year + 10;
    
    Year:= Year - 622;
    
    if (day_year mod 30 = 0) then
    begin
    Month:= (day_year div 30) + 9;
    Day:= 30;
    end
    else
    begin
    Month:= (day_year div 30) + 10;
    Day:= day_year mod 30;
    end;
    end
    else
    begin
    year:= year - 621;
    
    day_year:= day_year - 79;
    if (day_year <= 186) then
    begin
    if (day_year mod 31 = 0) then
    begin
    Month:= (day_year div 31);
    Day:= 31;
    end
    else
    begin
    Month:= (day_year div 31) + 1;
    Day:= day_year mod 31;
    end;
    end
    else
    begin
    day_year:= day_year - 186;
    if (day_year mod 30 = 0) then
    begin
    Month:= (day_year div 30) + 6;
    Day:= 30;
    end
    else
    begin
    Month:= (day_year div 30) + 7;
    Day:= day_year mod 30;
    end;
    end;
    end; // else .
    
    st:= IntToStr(Year) + &quot;/&quot;;
    if (Month < 10) then
    st:= st + &quot;0&quot;;
    st:= st + IntToStr(Month) + &quot;/&quot;;
    if (Day < 10) then
    st:= st + &quot;0&quot;;
    st:= st + IntToStr(Day);
    
    Result:= st;
    end;



  12. کاربر مقابل از meyti عزیز به خاطر این پست مفید تشکر کرده است:

    b_e_shamlu (۲۸ / فروردین / ۱۳۹۵)

  13. #9
    کاربر سایت sanazgh آواتار ها
    تاریخ عضویت
    دی ۱۳۹۲
    سن
    4
    نوشته ها
    1
    تشکر ها
    0
    تشکر شده 0 بار در 0 ارسال.
    وووواااااااای که نمیدوننین خودتون (
    [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]*و*
    [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
    *
    )چقدر بزرگوارین و خوووووووووووووووووووووووو وووب . ممنون مرسی مشکلم حل شد*




    * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


  14. #10
    مدیر انجمن b_e_shamlu آواتار ها
    تاریخ عضویت
    مرداد ۱۳۹۲
    محل سکونت
    کرج
    سن
    50
    نوشته ها
    123
    تشکر ها
    149
    تشکر شده 93 بار در 45 ارسال.
    راستی کامپوننت تاریخ را در قسمت کامپوننت ها آپلود کردم خیلی خوبه میتونی خیلی کارها کرد مثل تقویم هجری با تمامی رویدادها
    دلفی کاران را دوست دارم [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

    [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]



  15. #11
    مدیر انجمن meyti آواتار ها
    تاریخ عضویت
    مرداد ۱۳۹۲
    نوشته ها
    142
    تشکر ها
    134
    تشکر شده 73 بار در 54 ارسال.

    پاسخ : تبدیل تاریخ میلادی به شمسی

    با سلام
    کد بالا به مشکل برخورده و برای تاریخ 25 / 1 / 95 و به بعد درست کار نمیکنه . !!!
    جالبه که کامپوننت i18n هم دقیقا همین اشتباه رو داره !

  16. #12
    مدیرکل سایت admin آواتار ها
    تاریخ عضویت
    مهر ۱۳۸۷
    محل سکونت
    تهران ، بندرعباس ، آیسک
    سن
    33
    نوشته ها
    513
    تشکر ها
    240
    تشکر شده 217 بار در 138 ارسال.
    Blog Entries
    1

    پاسخ : تبدیل تاریخ میلادی به شمسی

    نقل قول نوشته اصلی توسط meyti نمایش پست ها
    با سلام
    کد بالا به مشکل برخورده و برای تاریخ 25 / 1 / 95 و به بعد درست کار نمیکنه . !!!
    جالبه که کامپوننت i18n هم دقیقا همین اشتباه رو داره !
    چه مشکلی ؟؟؟
    من چک کردم و هیچ مشکلی ندیدم ...
    دلفی ،*جذاب ترین زبان طراحی نرم افزار ...

  17. کاربر مقابل از admin عزیز به خاطر این پست مفید تشکر کرده است:

    meyti (۲۸ / فروردین / ۱۳۹۵)

  18. #13
    مدیر انجمن meyti آواتار ها
    تاریخ عضویت
    مرداد ۱۳۹۲
    نوشته ها
    142
    تشکر ها
    134
    تشکر شده 73 بار در 54 ارسال.

    پاسخ : تبدیل تاریخ میلادی به شمسی

    نقل قول نوشته اصلی توسط admin نمایش پست ها
    چه مشکلی ؟؟؟
    من چک کردم و هیچ مشکلی ندیدم ...

    معذرت اشتباه از من بود - تاریخ سیستم اشتباه بود !!

  19. کاربر مقابل از meyti عزیز به خاطر این پست مفید تشکر کرده است:

    admin (۲۸ / فروردین / ۱۳۹۵)

  20. #14
    کاربر سایت med0098 آواتار ها
    تاریخ عضویت
    تیر ۱۳۹۷
    نوشته ها
    1
    تشکر ها
    0
    تشکر شده 0 بار در 0 ارسال.

    پاسخ : تبدیل تاریخ میلادی به شمسی

    با سلام
    لطفا در مورد کد ذیل توضیحاتی بدید ممنون می شم
    strtemp:=FormatDateTime(&quot;yyyy/mm/dd&quot;, date1);
    این yyyy/mm/dd در کجای برنامه تعریف شده
    کی از Quot استفاده می شه؟

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

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