كامپوننت تقويم شمسی

[Mahdi.Delphi]

سلام

من موقع نصب آخرین ورژن این کامپوننت به مشکل برخوردم.

از دلفی 7 و ویندوز سون استفاده میکنم.

این خطاها وجود دارد:

SolarError.jpg

کسی از دوستان چنین مشکلی نداشته؟

ممنون

[Mahdi.Delphi]

یعنی هیچکس همچین مشکلی نداره یا نمی دونه مشکل از کجاست ؟!

[azygole]

سلام وقتی با این کامپوننت یک روز یک روز اضافه می کنم 30 اسفند رو حساب نمی کنه می تونید راهنماییم کنید؟

[SayeyeZohor]

سلام وقتی با این کامپوننت یک روز یک روز اضافه می کنم 30 اسفند رو حساب نمی کنه می تونید راهنماییم کنید؟

نقل قول: كامپوننت تقويم شمسی
با سلام خدمت دوستان
ورژن اصلاح شده Solar_Calendar_Package_3_0_2 رو براي دانلود گذاشتم تا بلكه زودتر ايرادهاش رفع بشه و يك تقويم كاملاً حرفه اي فارسي داشته باشيم
البته بايد از آقاي خرسندي عزيز تشكر كرد

ايرادات مشاهده شده توسط من :
1- از تاريخ 1399 به بعد تاريخ 1100 رو نشون ميده و ميره از 1300 شروع ميكنه ...

البته اگه آقاي تاجیک لطف كنند و اين پست رو پاك نكنند

سلام اين نسخه اصلاح شده رو نصب كنين ببينين مشكلتون حل مي شه يا نه؟
Solar_Calendar_Package_3_0_2

[hp1361]

سلام

آیا نسخه سازگار با xe3 هم هست؟

ممنون

[Mahdi.Delphi]

سلام کسی نسخه سازگار با دلفی 7 رو داره ؟! این نسخه نهایی رو دلفی 7 جواب نمیده!!! توی سایت sourceforge هم فقط آخرین ورژن موجوده و لینک ورژن های قبلی که تو همین تاپیک هست هم به همون ورژن نهایی منتهی میشه ممنون

[tadeh2010]

سلام سال نویتان مبارک
خواسته ی شما اشتباه است
این ورژنهای جدید که از این کامپوننت ایجاد شده ، به مرور مشکلات یا باگهای برنامه رفع شده با اینکه هنوز هم کامل نیست
ولی بایستی یک تغییراتی بدهید تا کامپوننت روی دلفی 7 هم نصب بشود ولی باز بهتره سعی بکنید که به دلفی های جدیدتر روی بیاورید
چون من هم مشکلات شما را داشته ام
مثلا دلفی جدیدتر را نداشتم ولی دانلودش کردم
و بعد سیستم ام توانایی کافی برای نصب دلفی جدیدتر را نداشت (حجم درایوهایم کم بود)
یا برنامه ها و کامپوننتهایم را مجبور می شدم تغییر بدهم (مخصوصا استفاده از تابعpchar)
ولی بعدا دیدم این افزایش ورژن می ارزد
مخصوصا اینکه از unicode پشتیبانی می کنند

پس بهتره از دلفی های جدیدتر استفاده بکنید

[Delphi_Developer]

سلام

تابع ConvertDate رو فقط با monthcalendar میشه انجام داد ؟!! تو کامپوننتهای non-visible نیست هیچ کدوم ؟؟

[mahdy.asia]

سلام آقای خرسند
من کامپوننت شما را بررسی کردم و تصمیم دارم از این کامپوننت در پروژه های برنامه نویسی استفاده کنم کار بسیار ارزشمندی است انشاء الله موفق باشید
پیشنهاد : جهت کامپوننت دو label در نظر بگیرید جهت عنوان تقویم و نمایش روز هفته جلوی تاریخ مانند تصویر زیر

Solar2.jpg

[mahdy.asia]

سلام آقای خرسند
یک پیشنهاد جدید : اگر دو رقم اول تاریخ بوسیله یک متغیر حهت راحتی کاربر ثابت شود که کاربر هر بار نیاز نیاز به وارد کردن آن نباشد می تواند در راحتی ورود اطلاعات موثر باشد
مثال : 1392/01/01 رقم 13 ثتبیت شده باشد که کاربر تنها رقم های 92/01/01 را وارد کند

[m-khorsandi]

سلام آقای خرسند
من کامپوننت شما را بررسی کردم و تصمیم دارم از این کامپوننت در پروژه های برنامه نویسی استفاده کنم کار بسیار ارزشمندی است انشاء الله موفق باشید
پیشنهاد : جهت کامپوننت دو label در نظر بگیرید جهت عنوان تقویم و نمایش روز هفته جلوی تاریخ مانند تصویر زیر

Solar2.jpg

رشته‌ی روز مورد نظر رو میتونید از توابع کامپوننت بگیرید و هر جا که خواستید نمایش بدید

[hp1361]

سلام مجدد

آقای سازگاری تقویم با دلفی XE3 در دستور کارتون قرار داره؟امیدی هست؟

ممنون

[SayeyeZohor]

سلام مجدد

آقای سازگاری تقویم با دلفی XE3 در دستور کارتون قرار داره؟امیدی هست؟

ممنون

من نسخه ايشون رو سازگار با XE3 كردم و آپلود مي كنم
DelphiXE3.rar

از آقاي خرسندي درخواست مي كنم اگه روزي خواستند كامپوننتشون رو ارتقا بدند روي اين نسخه كار كنند چون چند تا باگ رو رفع كردم و اگه زحمت بكشند ، اين كامپوننت رو به بهبود بيشتر مي ره
باز هم از زحمات ايشون ممنون

[mahdy.asia]

رشته‌ی روز مورد نظر رو میتونید از توابع کامپوننت بگیرید و هر جا که خواستید نمایش بدید

سلام آقای خرسند
راهنمای شما رو من مطالعه کردم شما درست می گید اما من منظورم اینه که وقتی برنامه نویس کامپوننت را روی فرم قرار می دهد label های مذکور هم روی فرم قرار بگیرد(کامپوننت ترکیبی) و نیاز به این نباشد که دو کامپوننت label و کامپوننت solar را روی فرم قرار دهد و با هم آنها را تنظیم نماید و با استفاده از توابع لیبل ها را مقدار دهی نماید.

[hp1361]

من نسخه ايشون رو سازگار با XE3 كردم و آپلود مي كنم
DelphiXE3.rar

از آقاي خرسندي درخواست مي كنم اگه روزي خواستند كامپوننتشون رو ارتقا بدند روي اين نسخه كار كنند چون چند تا باگ رو رفع كردم و اگه زحمت بكشند ، اين كامپوننت رو به بهبود بيشتر مي ره
باز هم از زحمات ايشون ممنون

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

ممنون

[SayeyeZohor]

https://barnamenevis.org/showthread.p...=1#post1613160

https://barnamenevis.org/showthread.p...=1#post1616476

https://barnamenevis.org/showthread.p...=1#post1620193

اصلاحات صورت گرفته :

اول یک تشکر ویژه بابت کامپوننت

یک باگ کوچیک ! :
می خوام با استفاده از TSolarMonthCalender و مقادیر زیر :
MC.DayName + ' ' + IntToStr(MC.Day) + ' ' + MC.MonthName + ' ' + IntToStr(MC.Year);

یک رشته مثل این بسازم : " پنجشنبه 27 مهرماه 1391 "
اما رشته ای که ساخته میشه اینه : " جمعه 0 0 Sut " !
به نظر میاد در هنگام گرفتن مقدار day این مشکل پیش میاد ، اگر این مقدار رو از دستورات بالا حذف کنیم :
MC.DayName + ' ' + MC.MonthName + ' ' + IntToStr(MC.Year);

حدس من اينه كه ايراد تو اين function باشه :

function TSolarMonthCalendar.GetDay: integer;

begin

  //ResetYMD(Text, FCurrYear, FCurrMonth, FCurrDay);

  ResetYMD(OutDate, FCurrYear, FCurrMonth, FCurrDay);

  if FCurrDay > 0 then

    Result := FCurrDay

  else

    Result := 0;

end;

در اين function با تغيير متغير Text به OutDate مشكل حل مي شه .

و تغييرات گرافيكي و بقيه كه يادم نيست

[hp1361]

سلام

آقا من این فایل ها رو که دانلود می کنم حالا چه از اینجا و چه از SF در هر دو حالت متون فارسی رو چه در سورسش و چه در نمایشش عجق وجق نشون میده!

لیستشو حداقل کسی باشه بهم بده خودم درستش می کنم. یا دانلود کنید ببینید مشکل منو دارید اگه نداشتید برام فایل رو ایمیل کنید

خداخیرتون بده

hp1361@gmail.com

ممنون

[javad3d]

نقل قول: كامپوننت تقويم شمسی

سلام

من موقع نصب آخرین ورژن این کامپوننت به مشکل برخوردم.

از دلفی 7 و ویندوز سون استفاده میکنم.

این خطاها وجود دارد:



کسی از دوستان چنین مشکلی نداشته؟

ممنون

[ali_abbasi22145]

سلام
من دلفی 7 و ویندوز 8 دارم و دقیقا خطا دوستمان javad3d که نشان داده می دهد.
کسی برای دلفی 7 .dpk را دارد که اینجا آپلود کند

[kamran_br]

سلام من هم در دلفي هم مشكل دوستانم جواد و علي را دارم.لطفا راه حل اين مشكل را عنوان كنيد.در ضمن روزهاي پاييني تقويم با كليك روي آن به روز ماه بعد منتقل مي شود كه ايراد بزرگي است.ممنون ميشم راهنمايي بفرماييد

[SayeyeZohor]

نقل قول: كامپوننت تقويم شمسی

سلام

من موقع نصب آخرین ورژن این کامپوننت به مشکل برخوردم.

از دلفی 7 و ویندوز سون استفاده میکنم.

این خطاها وجود دارد:



کسی از دوستان چنین مشکلی نداشته؟

ممنون

با سلام
متاسفانه دلفي 7 ندارم و اين نسخه براي دلفي 2010 به بالا از طرف بنده تست شده است

[Delphi 2010]

با عرض سلام و خسته نباشید خدمت دوستان
و تشکر فراوان خدمت آقای خرسندی
من خودم مدتی هستش شروع کردم به کامپوننت نویسی میدونم چه امر سختی هستش و کمال تشکر رو دارم از آقای خرسندی

یه پیشنهاد دارم ولی نمیدونم دوستان ارائه کردن این پیشنهاد رو یا نه

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

توی عکس زیر تغییر سال رو نمایش میده
اگه اینگونه بشه تغییر داد عالی هستش البته در دو تا کامپوننت

[ATULICUS]

سلام به همگی !


از دوستان کسی این کامپوننت رو برا XE5 سازگار کرده یا نه !؟

[tadeh2010]

سلام استاد گرامی و جناب خرســـنـــدی
به نظر من بهتر است در برنامه تان روز ، ماه و سال به صورت عددی به برنامه پاس داده شود (در حال حاضر فقط مقدار text که از نوع رشته است این کار را می کند).
ولی مشکل فوق (که اگر تاریخ سیستم با یک فرمت دیگر باشد) در داخل کا مپوننت به مشکل بر می خوریم ولی من فکر کردم اگر از طریق سه پارامتر عددی بشود تاریخ را به کامپوننت پاس کرد می توانید در خود کامپوننت از تابع encodedate برای ساخت تاریخ با فرمت سیستم استفاده بکنید .
متشکرم .

سلام بازهم در این مورد به مشکل خوردم
بهتر میدونم رفعش بکنید آقای مهندس
این تصویر را ببینید
من از دیتا سورس تاریخ را از سرور میگیرم
Image 008.jpg

[tadeh2010]

با تغییر دادن روال SetInDate به صورت زیر فکر بکنم مشکل حل میشه، آیا درسته؟؟

procedure TCustomSolarCalendar.SetInDate(const Value: String);

var

 D:TDateTime;

begin

  if Length(Trim(Value)) <> 0 then

  begin

    if FDateKind = dkGregorian then

    begin

      {$IFDEF CompilerVersion >= 23}

      DecodeDate(StrToDate(FormatDateTime(FormatSettings  .ShortDateFormat, StrToDate(Value))), FCurrYear, FCurrMonth, FCurrDay);

      {$ELSE}

        D:=EncodeDate(FCurrYear, FCurrMonth, FCurrDay);

       DecodeDate(StrToDate(FormatDateTime(ShortDateForma  t, D )), FCurrYear, FCurrMonth, FCurrDay);

      {$ENDIF}



      if not CheckInputDate(FCurrYear, FCurrMonth, FCurrDay) then

        SeparateYMD(OutDate, FCurrYear, FCurrMonth, FCurrDay)

      else

        FInDate := Value;



      FTopPanel.FYear.Caption := Format(ST_ENGLISHYEAR, [IntToStr(FCurrYear)]);

    end

    else

    begin

      SeparateYMD(Value, FCurrYear, FCurrMonth, FCurrDay);



      if not CheckInputDate(FCurrYear, FCurrMonth, FCurrDay) then

        SeparateYMD(OutDate, FCurrYear, FCurrMonth, FCurrDay)

      else

        FInDate := Value;



      FTopPanel.FYear.Caption := Format(ST_PERSIANYEAR, [IntToStr(FCurrYear)]);

    end;



    FPrevMenuItem := FCurrMonth;



    if FMonthObject = moPopupMenu then

    begin

      FMenu.Items[FPrevMenuItem - 1].Checked := True;

      FMenu.Items[FPrevMenuItem - 1].RadioItem := True;

    end

    else

    if FMonthObject = moComboBox then

      FMonthCombo.ItemIndex := FPrevMenuItem - 1;



    OutDate := InDate;

    MonthChanging();

  end;

end;

[Mahdi.Delphi]

در این کامپوننت برای محاسبه تعداد روزهای بین دو تاریخ تابعی تعریف شده؟

مثلا از 1392/02/31 تا 1390/9/29 چند روزه؟!

[یوسف زالی]

برای این کار از کدهایی که در تاپیک موجود در امضای من هست استفاده کنید.

[fazel-as]

سلام
نسخه XE5 هم وجود دارد؟
تشکر

[komeyl]

دوستان من سلام
این برنامه یک کامپوننت نیست، بلکه یک نمونه برنامه هست که با کدهای مختلفی که طی سرچ هام تو اینترنت پیدا کردم چند سال قبل (دوران دانشجویی) نوشتم و قابلیت تبدیل تاریخ های (شمسی / قمری / و میلادی) به همدیگه رو داره .
البته احتمالا تبدیل به و تبدیل از قمری یکسری مشکلاتی داره که نهایتا منجر به نمایش تاریخ یکی دو روز قبل یا بعد از تاریخ صحیح میشه که با صرف کمی وقت خودتون می تونید درستش کنید.
ضمنا آیکون برنامه در کنار ساعت ویندوز نمایش داده میشه که کد اون هم توی سورس هست و میتونید استفاده کنید.
امیدوارم لذت ببرید.

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

ایمیل : KomeylWorld@Gmail.Com

[Mahdi.Delphi]

برای این کار از کدهایی که در تاپیک موجود در امضای من هست استفاده کنید.

سلام

میشه برای محاسبه تعداد روزها بین دو تاریخ شمسی ابتدا اون دو تاریخ رو به میلادی تبدیل کرد بعد با استفاده از تابع DaysBetween از یونیت DateUtils تعداد روزها رو محاسبه کرد؟

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

function Date_DaysBetween(Dt1, Dt2: string; DateBase: TDateBase): integer;

var

  SYear1: integer;

  SYear2: integer;

  i, Day: integer;

  X1, X2: integer;

begin

  if DateBase = dbSolar then

    begin

    SYear1 := StrToInt(Copy(Dt1, 1, 4));

    SYear2 := StrToInt(Copy(Dt2, 1, 4));

 

    Day := 0;

    for i := SYear1 +1 to SYear2 -1 do

      Day := Day +Date_DaysPerYear(i, dbSolar);

 

    X1 := Date_DaysOfYear(Dt1, dbSolar);

    X2 := Date_DaysOfYear(Dt2, dbSolar);

    Result := Day + X2 -X1 +IfThen(SYear1 = SYear2, 0, Date_DaysPerYear(SYear1, dbSolar));

    end

 

  else

    Result := DaysBetween(StrToDate(Dt1, FormatSetting), StrToDate(Dt2, FormatSetting));

end;

[یوسف زالی]

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

[Mahdi.Delphi]

می شه. همین کد هم همین کار رو می کنه.

آخه توی کد شما اگه DateBase از نوع dbSolar باشه از طریق اون حلقه FOR و با روش متفاوتی محاسبات رو انجام میده!

نکته تبدیل درست تاریخه.

یعنی اگه اول تاریخ ها رو میلادی کنیم و بعد از DaysBetween استفاده کنیم ممکنه مشکل پیش بیاد؟

اگه تاریخ ها درست تبدیل بشن قاعدتاً نباید مشکلی باشه!!!

[joker]

سلام
نسخه XE5 هم وجود دارد؟
تشکر

امروز سوئچ کردم روی xe5 و دیدم ی کوچولو مشکل داشت برای سازگاری با xe5
تغییرات در حد تبدیل smallint به integer و اضافه کردن یک FormatSettings

DecodeDate(StrToDate(FormatDateTime(FormatSettings  .ShortDateFormat, StrToDate(Value))), FCurrYear, FCurrMonth, FCurrDay);

      {$ELSE}

      DecodeDate(StrToDate(FormatDateTime(FormatSettings  .ShortDateFormat, StrToDate(Value))), FCurrYear, FCurrMonth, FCurrDay);

      

حل شد و الان دارم از این تقویم خوب در xe5 استفاده میکنم
فولدر تغییر یافته سورسی که از sf.net دریافت شده را ضمیمه میکنم ، ایشالا که مشکلی نباشه و کار دوستان راه بیفته

[SayeyeZohor]

با سلام خدمت دوستان


نسخه Solar Calendar مخصوص دلفی XE5 ، XE4 ، XE3 , .... رو براتون قرار می دم تغییرات اعمال شده رو درسورس برنامه ذکر کردم

Solar_Calendar_Package_4.0.0 ویرایش شده در تاریخ 05-12-1392 توسط SayeyeZohor

[mehdi_gh125]

با عرض سلام و احترام
ضمن تشکر خواهشمند ه ام طریقه نصب solar_calendar را در XE4 توضیح دهید من در حین نصب با خطا مواجه میشم ، فکر کنم روند نصب و اشتباه انجام میدم با تشکر فراوان.

[firststep]

چه خطایییی؟

[mehdi_gh125]

با سلام عکس خطا تقدیم حضور می گردد:
error.jpg

[101101000]

با سلام و تبریک سال نو و خسته نباشید به همه دوستان
من این کامپوننت رو با یه سری قابلیت های نمایشی و امکانات بهتر تغییر دادم و هم تو دلفی xe, xe2, xe3, xe4,xe5 تست شده و کار میکنه.

فقط ذکر میکنم که به Alpha Control نیاز داره. اگر دوستان تمایل داشتند پیام خصوصی پست الکترونیک بدن براشون ارسال کنم.

Solar.jpg

[ATULICUS]

گر دوستان تمایل داشتند پیام خصوصی پست الکترونیک بدن براشون ارسال کنم.

چه کاریه دوست عزیز
همین جا اتچ کن ، اگه ایرادی هم داشته باشه ، دوستان میگن !


به نظر من قشنگ شده
مدتهاست دنبال یه planner یا month calendar زیبا می گردم ، اما متاسفانه روی ظاهر کامپوننت ها اونجور که باید کار نمیشه !

[101101000]

چشم این هم خدمت شما دوست عزیز و دیگر دوستان
Solar.rar