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

تماشای رایگان فیلم ایرانی ، خارجی و کودک آکادمی دلفی
نمایش نتایج: از 1 به 14 از 14

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

  1. #1
    مدیرکل سایت admin آواتار ها
    تاریخ عضویت
    September 2008
    محل سکونت
    تهران ، آیسک
    سن
    39
    نوشته ها
    522
    تشکر ها
    247
    تشکر شده 250 بار در 160 ارسال.
    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 (16 / April / 2016)

  3. #2
    کاربر سایت talaptolop آواتار ها
    تاریخ عضویت
    December 2013
    سن
    10
    نوشته ها
    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 آواتار ها
    تاریخ عضویت
    December 2013
    سن
    10
    نوشته ها
    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 آواتار ها
    تاریخ عضویت
    September 2008
    محل سکونت
    تهران ، آیسک
    سن
    39
    نوشته ها
    522
    تشکر ها
    247
    تشکر شده 250 بار در 160 ارسال.
    Blog Entries
    1
    سلام کاربر [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]* و مرسی از* نظر لطفتون.
    این یک تابع برای تبدیل تاریخ میلادی به شمسیه ، کافیه* این رو در قسمت بالای یونیت اتون یعنی بعد از* implementation
    کپی کنید و در هر قسمت از کدتون فقط این رو به صورت زیر صدا بزنید .
    مثال :
    تبدیل 2013/12/01 به شمسی
    کد:

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

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

    b_e_shamlu (16 / April / 2016)

  7. #5
    مدیر انجمن meyti آواتار ها
    تاریخ عضویت
    August 2013
    نوشته ها
    143
    تشکر ها
    134
    تشکر شده 78 بار در 55 ارسال.
    با اجازه از مدیر عزیز :
    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 آواتار ها
    تاریخ عضویت
    August 2013
    نوشته ها
    143
    تشکر ها
    134
    تشکر شده 78 بار در 55 ارسال.
    البته اگه کمی تابع رو تغییر بدیم فراخوانی اون راحتتر میشه :

    کد:

    کد:
    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 آواتار ها
    تاریخ عضویت
    September 2008
    محل سکونت
    تهران ، آیسک
    سن
    39
    نوشته ها
    522
    تشکر ها
    247
    تشکر شده 250 بار در 160 ارسال.
    Blog Entries
    1
    سلام* و درود خدمت مدیر [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

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

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

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

    b_e_shamlu (16 / April / 2016)

  11. #8
    مدیر انجمن meyti آواتار ها
    تاریخ عضویت
    August 2013
    نوشته ها
    143
    تشکر ها
    134
    تشکر شده 78 بار در 55 ارسال.
    به اینجاش فکر نکرده بودم ولی با دستور زیر درست میشه و فرمت به هر صورتی باشه درست عمل میکنه :

    کد:

    کد:
    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 (16 / April / 2016)

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




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


  14. #10
    مدیر انجمن b_e_shamlu آواتار ها
    تاریخ عضویت
    July 2013
    محل سکونت
    کرج
    سن
    56
    نوشته ها
    123
    تشکر ها
    149
    تشکر شده 94 بار در 46 ارسال.
    راستی کامپوننت تاریخ را در قسمت کامپوننت ها آپلود کردم خیلی خوبه میتونی خیلی کارها کرد مثل تقویم هجری با تمامی رویدادها
    دلفی کاران را دوست دارم [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

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



  15. #11
    مدیر انجمن meyti آواتار ها
    تاریخ عضویت
    August 2013
    نوشته ها
    143
    تشکر ها
    134
    تشکر شده 78 بار در 55 ارسال.

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

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

  16. #12
    مدیرکل سایت admin آواتار ها
    تاریخ عضویت
    September 2008
    محل سکونت
    تهران ، آیسک
    سن
    39
    نوشته ها
    522
    تشکر ها
    247
    تشکر شده 250 بار در 160 ارسال.
    Blog Entries
    1

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

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

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

    meyti (16 / April / 2016)

  18. #13
    مدیر انجمن meyti آواتار ها
    تاریخ عضویت
    August 2013
    نوشته ها
    143
    تشکر ها
    134
    تشکر شده 78 بار در 55 ارسال.

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

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

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

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

    admin (16 / April / 2016)

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

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

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

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

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

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

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