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

**admin** · 23 / December / 2012, 04:06 PM

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

کد:

کد:

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;

**talaptolop** · 24 / December / 2012, 12:16 AM

نقل قول از 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;

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

**talaptolop** · 24 / December / 2012, 12:20 AM

نقل قول از 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;

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

آخه فقط بلدم روی یه شی کد بنویسم این کد رو نمیفهمم کجا و چجوری کپی کنم.....!

ممنون میشم کامل و واضح حالیم کنین

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

**admin** · 25 / December / 2012, 01:14 AM

سلام کاربر [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]* و مرسی از* نظر لطفتون.
این یک تابع برای تبدیل تاریخ میلادی به شمسیه ، کافیه* این رو در قسمت بالای یونیت اتون یعنی بعد از* implementation
کپی کنید و در هر قسمت از کدتون فقط این رو به صورت زیر صدا بزنید .
مثال :
تبدیل 2013/12/01 به شمسی
کد:

کد:

MiladiToShamsi(2013,12,01);

**meyti** · 19 / January / 2013, 08:06 PM

با اجازه از مدیر عزیز :
1- این تابع تست شد و یه ایراد کوچک داشت . اونم یه * " [* i* ] " * در آخر خط 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);

**meyti** · 19 / January / 2013, 08:23 PM

البته اگه کمی تابع رو تغییر بدیم فراخوانی اون راحتتر میشه :

کد:

کد:

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);

**admin** · 20 / January / 2013, 03:01 AM

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

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

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

**meyti** · 20 / January / 2013, 08:29 PM

به اینجاش فکر نکرده بودم ولی با دستور زیر درست میشه و فرمت به هر صورتی باشه درست عمل میکنه :

کد:

کد:

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;

**sanazgh** · 24 / January / 2013, 01:01 PM

وووواااااااای که نمیدوننین خودتون (

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

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

*

)چقدر بزرگوارین و خوووووووووووووووووووووووو وووب . ممنون مرسی مشکلم حل شد*

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

**b_e_shamlu** · 13 / October / 2013, 10:40 PM

راستی کامپوننت تاریخ را در قسمت کامپوننت ها آپلود کردم خیلی خوبه میتونی خیلی کارها کرد مثل تقویم هجری با تمامی رویدادها

**meyti** · 14 / April / 2016, 12:56 PM

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

**admin** · 14 / April / 2016, 10:44 PM

نوشته اصلی توسط meyti

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

چه مشکلی ؟؟؟
من چک کردم و هیچ مشکلی ندیدم ...

**meyti** · 16 / April / 2016, 09:59 AM

نوشته اصلی توسط admin

چه مشکلی ؟؟؟
من چک کردم و هیچ مشکلی ندیدم ...

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

**med0098** · 12 / July / 2018, 11:00 AM

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