Printable View
سلام
من میخوام با استفاده از این کامپوننت ماه رو بصورت 4 هفته داشته باشم
من برای کاربر 2 تا کمبو باکس گذاشتم که مثلا کاربر ماه "تیر" رو انتخاب میکنه و بعد هم هفته سوم رو انخاب میکنه من میخوام توی این بازه در جدول عملیات جستجو رو انجام بدم
حالا بفرمایید که چطوری فاصله زمانی این هفته رو پیدا کنم
این هم یک مثال برای درک بهتر:
کاربر ماه "مرداد"و هفته "چهارم" رو انتخاب میکنه
خروجی بازه زمانی مد نظر : 1394/05/24 تا 1394/05/30
من این خروجی رو میخوام داشته باشم
ممنون میشم راهنمایی کنید
شما دو تا کامبوباکس دارید که ماه و هفته رو در اختیار کاربر قرار میده و بعد از انتخاب ماه و هفته، کامپوننت تقویم چه کاری باید انجام بده!!؟
باید با استفاده از این دوتا کامبوباکس به من بگه که این هفته انتخاب شده از ماه انتخابی از چه تاریخی شروع میشودنقل قول:
نوشته شده توسط m-khorsandi
این جزء وظایف این کامپوننت نیست و شما برای این کار نیاز به این کامپوننت ندارید.
شما با توجه به اندیس (کامبوباکس) هفته میتونی تاریخ شروع رو به دست بیاری، چونکه هر هفته 7 روز است و فقط کافیست که اندیس هفته رو در 7 ضرب کنی(تا تاریخ شروع به دست بیاد و ماه و سال رو هم که داری!) و یک سری شرایط ویژه برای روزهای آخر ماه و ماه هایی که 31 و 29 روزه هستند در نظر بگیری.
اگه میشد همچین کاری کرد مشکل من حل میشد
slrdtpckr.WeekOfTheYear:=5;
یعنی هفته ی سال رو به کامپوننت میدادم و date picker میرفت به اون تاریخ
نمیشه؟؟؟؟؟؟؟؟؟؟؟؟؟؟
سلام آقای خرسندی عزیز
بابت کامپوننت بسیار مفید و با ارزشتون تشکر
آخرین ویرایش و تغییراتی که دادید و بصورت رسمی توی sourceforge.net منتشر کردید مربوط به 2014-06-26 است .
آیا قصد ندارید که کامپوننت را با آخرین تغییرات و قابل نصب تا آخرین ورژن دلفی (seattle 10) انجام بدید و انجا بروزش کنید ؟
بسیار سپاس و تشکر
سلام و ممنونمنقل قول:
نوشته شده توسط hamid-nic
تا چند روز آینده منتظر نسخه جدید باشید.
در ضمن لطفا اشکالات و مواردی که مورد نیاز است تا در نسخه بعد رفع شوند یا توسعه داده شوند رو همین جا (با شرح کامل) بنویسید.
**
اگر اینجا ای-میلتون رو ثبت کنید از آخرین آپدیت ها با خبر خواهید شد.
ضمیمه 136517
خیلی خیلی خیلی ممنونمنقل قول:
سلام و ممنونم
تا چند روز آینده منتظر نسخه جدید باشید.
در ضمن لطفا اشکالات و مواردی که مورد نیاز است تا در نسخه بعد رفع شوند یا توسعه داده شوند رو همین جا (با شرح کامل) بنویسید.
اول از همه همون سازگاری با ورژن های بالاتر مثل XE7 و XE8 و Seattle 10
یه سری مواردی توی همین تاپیک بعضی از دوستان اشاره کردند که البته صحتش را بررسی بفرمایید مثل پست :
388 ، 389 ، 312 ، 313
و همه مواردی که خودتون صلاح می دونید
ان شااله که همیشه موفق باشید
منتظر ورژن جدید هستیم ...
نسخه 3.4.12 منتشر شد.
تغییرات و ویژگی های این نسخه :
- پشتیبانی از نسخه های XE3-XE10
- دکمه های ماه قبل/بعد اضافه شده است.
- امکان تغییر ماه با استفاده از کلیدهای کنترل + جهتی(چپ و راست)
- امکان تغییر ماه با استفاده از کلیدهای Shift + جهتی(چپ و راست)
- اصلاح تابع IncMonth و DecMonth
- اصلاح تابع IncDay و DecDay
- رفع اشکال تابع YMDScript
- رفع اشکال تابع GetToDay
- عدم وابستگی به نوع و شکل فرمت تاریخ در ویندوز
- حذف دکمه های کنار Editbox سال
آخرین نسخه رو میتونید از اینجا دانلود کنید و اگر از ابزار مدیریت سورس SVN استفاه میکنید از این لینک آپدیت کنید
تبریک میگم آقای خرسندی، مارکو کانتو توی وبلاگش کامپوننت شما رو معرفی کرده:تشویق:
http://blog.marcocantu.com/blog/delp...g-week-36.html
در قسمت Delphi Tools نوشته
با عرض سلام و خسته نباشید
متاسفانه من با نصب این کامپوننت مشکل دارم لطفا مراحل نصب رو بفرمایید . ممنون
درضمن من از ورژن XE3 استفاده میکنم
Open *.dpk file/Compile/Install
با سلام
دوستان گرامی من تو یک برنامه از این کامپوننت استفاده کردم
اما برنامه من برروی روی کامپیوتر های دیگه بازنمیشه و خطا میده
هنوز زیاد با بحث کامپوننت ها آشنا نیستم ، ولی اگه اشتباه نگم ، فکر میکنم چون از این کامپوننت استفاده کردم ، میبایست فایل dll یا ocx اون رو با دستور redsvr32 توی کامپیوتر مقصد نصب کنم ، اما دقیقاً نمیدونم چجوری و این فایل رو از کجا بیارم
خطایی تو کامپیوتر مقصد میده یه چیزی شبیه اینه که فایل rtl140.bpl و vcl140.bpl رو گم کرده و پیدا نمی کنه!!
لطفاً منو راهنمایی کنید،تشکر
چون آشنا نیستید عرض میکنم که به صورت پیش فرض بعد از کامپایل پروژه تون این کامپوننت تبدیل به بخشی از فایل اجرایی میشه و نیازی به نصب یا رجیستر هیچ dll یا ocxیی نیست.
سلام جناب استاد خرسندی؛ یه سوال دارم:
در کامپوننت تقویم شمسی، امکان محدود کردن انتخاب تاریخ وجود داره؟ یعنی یه کاری کنیم که کاربر بتونه مثلا فقط روزهای سال 94 رو انتخاب کنه (بصورت یک بازه به کامپوننت بدیم)، یا اینکه یه روزهای خاصی رو (بصورت پراکنده) مشخص کنیم که کاربر فقط اونا رو بتونه انتخاب کنه و بقیه تاریخ ها بصورت غیر فعال دیده بشن.
نه متاسفانه ولی امکان پیاده سازیش وجود داره.نقل قول:
نوشته شده توسط saeidd
(تا جاییکه خاطرم هست فقط روی روزهای هفته امکان محدود سازی وجود داره)
با سلام خدمت استادگرامی آقای خرسندی
معمولا در تیبل ها نوع فیلد تاریخ Date یا Datetime در نظر گرفته می شود. در حالیکه دركامپوننت تقويم شمسی شما به صورت شمسی به تیبل ارسال می شود اگر امکان آن هست تاریخ به صورت میلادی به تیبل ارسال گردد
آره روی روزهای هفته این امکان هست.نقل قول:
نوشته شده توسط m-khorsandi
پیاده سازیش می کنید عایا؟
البته همیشه به این شکل نیست ولی تو نسخه ی بعدی هر دو تایپ پوشش داده می شوند.نقل قول:
نوشته شده توسط fahimi
ممنون
حتما پیاده سازی میشه.نقل قول:
نوشته شده توسط saeidd
سپاس
با سلام و تبريك سال نو خدمت دوستان.
من بعد از سه سال دوباره اومدم سراغ برنامه نويسي، البته تقريبا همه چيز يادم رفته پس ببخشيد اگه سوالهاي ابتدايي ميپرسم/
من نسخه 3.4.12 روي دلفي 7 نصب كردم مشكلي هم نداشت. حالا چندتا سوال داشتم:
1. آيا اين نسخه روي دلفي 7 كار ميكنه يعني روي دلفي 7 زمان اجراي برنامه نوشته شده اجرا ميشه ؟
2. اگه در پروژه اي از نسخه 2.27.20 استفاده كرده باشم و الان نسخه 3.4.12 رو نصب كردم اون پروژه اجرا ميشه؟
3. چطور ميتونم نسخه 3.4.12 رو كه نصب كردم پاكش كنم از روي دلفي 7؟
4. وقتي داخل يك فرم از تقويم استفاده ميكنم و ميخوام تاريخ رو انتخاب كنم كه در باكس نوشته بشه خطاي زير رو نشون ميده. چيكار بايد بكنم؟
سلام
منم به جمع استفاده كنندگان كامپوننت آقاي خرسندي پيوستم.
1. تابع های تبدیل تاریخ میلادی به شمسی وب رعکس اضافه شود :
MiladyToShamsi('2009/02/02'
اینم از اینترنت گرفت و عالی هست لطفا اضافه کنید اقا خرسندی فقط یک کپی پست ساده هست!
Function TMainForm.MiladyToShamsi(DTime:tdateTime):tdateTim e;
var
YearEqual:array[0..2,0..2] of integer;
AddOneDay,AddFarDay:boolean;
AddTodays:byte;
Farday:byte;
ThisDay:word;
ThisMonth:word;
ThisYear:word;
YearDif1:Integer;
YearDif2:Integer;
TestRange1,testRange2,
FarsiRange1,FarsiRange2,P:Integer;
CurM,CurD:string;
sYear,sMonth,sDay:Variant;
Counter:Integer;
CurDay,CurMonth,CurYear:word;
Begin
CurM:='';
CurD:='';
YearEqual[1,1]:=1997;
YearEqual[1,2]:=1998;
YearEqual[2,1]:=1376;
YearEqual[2,2]:=1377;
DecodeDate(DTime,thisyear,thismonth,thisday);
YearDif1:=ThisYear-1997;
YearDif2:=ThisYear-1998;
Testrange1:=1996-(100*4);
Testrange2:=1996+(100*4);
FarsiRange1:=1375-(100*4);
FarsiRange2:=1375+(100*4);
AddOneDay:=false;
//Rem------------------------------
Counter:=TestRange1;
while TestRange2>=Counter do begin /////////////////////////
If thisYear=counter then begin
AddOneDay:=true;
break;
end;
If counter=TestRange2 then break;
counter:=counter+4
end;//while
If AddOneDay then
addtodays:=1
Else
AddTodays:=0;
//Rem---------------------------------/////////////////
If (((ThisMonth = 3) and (thisday<(20+AddtoDays)))
or ( ThisMonth<3)) then
YearDif1:=yearDif1-1;
//Rem------------
If (((thisYear mod 2)<>0) and
(((thismonth=3) and (thisday>(20-addTodays)))
or (thisMonth>4))) then
CurYear:=yearEqual[2,1]+YearDif1
else begin
CurYear:=YearEqual[2,1]+YearDif2;
Counter:=FarsiRange1;
while counter>FarsiRange2 do begin /////////////////////////
If CurYear=Counter then begin
AddFarDay:=true;
break;
end;
end;//while
If AddFarDay then
FarDay:=1 else Farday:=0;
If (((thismonth=3) and (thisday>20-(addToDays)+FarDay)) or (thismonth>3) ) then
CurYear:=CurYear+1;
end; //First If
If AddtoDays=1 then FarDay:=0;
//Rem---------------------------------
Case thismonth of
1:Begin
If thisday<(21-Farday) then begin
CurMonth:=10;
CurDay:=(ThisDay+10)+FarDay;
end else begin
CurMonth:=11;
CurDay:=(ThisDay-20)+FarDay;
end;
end;
2:Begin
If thisday<(20-Farday) then begin
CurMonth:=11;
CurDay:=(ThisDay+11)+FarDay;
end else begin
CurMonth:=12;
CurDay:=(ThisDay-19)+FarDay;
end;
End;
3:Begin
If thisday<(21-AddToDays) then begin
CurMonth:=12;
CurDay:=(ThisDay+9)+AddToDays+FarDay;
end else begin
CurMonth:=1;
CurDay:=(ThisDay-20)+AddToDays;
end;
End;
4:Begin
If thisday<(21-AddToDays) then begin
CurMonth:=1;
CurDay:=(ThisDay+11)+AddToDays;
end else begin
CurMonth:=2;
CurDay:=(ThisDay-20)+AddToDays;
end;
End;
5:Begin
If thisday<(22-AddToDays) then begin
CurMonth:=2;
CurDay:=(ThisDay+10)+AddToDays;
end else begin
CurMonth:=3;
CurDay:=(ThisDay-21)+AddToDays;
end;
End;
6:Begin
If thisday<(22-AddToDays) then begin
CurMonth:=3;
CurDay:=(ThisDay+10)+AddToDays;
end else begin
CurMonth:=4;
CurDay:=(ThisDay-21)+AddToDays;
end;
End;
7:Begin
If thisday<(23-AddToDays) then begin
CurMonth:=4;
CurDay:=(ThisDay+9)+AddToDays;
end else begin
CurMonth:=5;
CurDay:=(ThisDay-22)+AddToDays;
end;
End;
8:Begin
If thisday<(23-AddToDays) then begin
CurMonth:=5;
CurDay:=(ThisDay+9)+AddToDays;
end else begin
CurMonth:=6;
CurDay:=(ThisDay-22)+AddToDays;
end;
End;
9:Begin
If thisday<(23-AddToDays) then begin
CurMonth:=6;
CurDay:=(ThisDay+9)+AddToDays;
end else begin
CurMonth:=7;
CurDay:=(ThisDay-22)+AddToDays;
end;
End;
10:Begin
If thisday<(23-AddToDays) then begin
CurMonth:=7;
CurDay:=(ThisDay+8)+AddToDays;
end else begin
CurMonth:=8;
CurDay:=(ThisDay-22)+AddToDays;
end;
End;
11:Begin
If thisday<(22-AddToDays) then begin
CurMonth:=8;
CurDay:=(ThisDay+9)+AddToDays;
end else begin
CurMonth:=9;
CurDay:=(ThisDay-21)+AddToDays;
end;
End;
12:Begin
If thisday<(22-AddToDays) then begin
CurMonth:=9;
CurDay:=(ThisDay+9)+AddToDays;
end else begin
CurMonth:=10;
CurDay:=(ThisDay-21)+AddToDays;
end;
End;
end;//case
//Rem-----------------
CurM:=Trim(IntTostr(CurMonth));
CurD:=Trim(IntTostr(CurDay));
//Rem-----------------
If CurMonth<10 then
CurM:='0'+Trim(IntToStr(CurMonth));
If CurDay<10 then
CurD:='0'+Trim(IntTostr(CurDay));
Result:=EncodeDate(CurYear,CurMonth,CurDay);
end;
پیشنهاد دوم:
2. اما مشكلي كه دارم اينه وقتي به يك فيلد database مثلا تاريخ تولد وصل مي كنم، مي خواهم وقتي تاريخ تولد براي شخصي ذخيره نكردم، اون هيچ تاريخي پيش فرض نشان ندهد (خالي باشد).
دوستان يا خود اقاي خورسندي عزيز اين مشكلم را حل كنند لطفا.
بله، این مشکل حل میشه.نقل قول:
نوشته شده توسط ali_abbasi22145
سلام وتشکر
1. تابع تبدیل تاریخ میلادی به شمسی اضافه کنید و خیلی کاربردی هست و تست کردم و کاملا درسته که در اینجا گذاشتم:
اینم از اینترنت گرفتم و عالی هست لطفا اضافه کنید اقا خرسندی فقط یک کپی پست ساده هست!
Function TMainForm.MiladyToShamsi(DTime:tdateTime):tdateTim e;
var
YearEqual:array[0..2,0..2] of integer;
AddOneDay,AddFarDay:boolean;
AddTodays:byte;
Farday:byte;
ThisDay:word;
ThisMonth:word;
ThisYear:word;
YearDif1:Integer;
YearDif2:Integer;
TestRange1,testRange2,
FarsiRange1,FarsiRange2,P:Integer;
CurM,CurD:string;
sYear,sMonth,sDay:Variant;
Counter:Integer;
CurDay,CurMonth,CurYear:word;
Begin
CurM:='';
CurD:='';
YearEqual[1,1]:=1997;
YearEqual[1,2]:=1998;
YearEqual[2,1]:=1376;
YearEqual[2,2]:=1377;
DecodeDate(DTime,thisyear,thismonth,thisday);
YearDif1:=ThisYear-1997;
YearDif2:=ThisYear-1998;
Testrange1:=1996-(100*4);
Testrange2:=1996+(100*4);
FarsiRange1:=1375-(100*4);
FarsiRange2:=1375+(100*4);
AddOneDay:=false;
//Rem------------------------------
Counter:=TestRange1;
while TestRange2>=Counter do begin /////////////////////////
If thisYear=counter then begin
AddOneDay:=true;
break;
end;
If counter=TestRange2 then break;
counter:=counter+4
end;//while
If AddOneDay then
addtodays:=1
Else
AddTodays:=0;
//Rem---------------------------------/////////////////
If (((ThisMonth = 3) and (thisday<(20+AddtoDays)))
or ( ThisMonth<3)) then
YearDif1:=yearDif1-1;
//Rem------------
If (((thisYear mod 2)<>0) and
(((thismonth=3) and (thisday>(20-addTodays)))
or (thisMonth>4))) then
CurYear:=yearEqual[2,1]+YearDif1
else begin
CurYear:=YearEqual[2,1]+YearDif2;
Counter:=FarsiRange1;
while counter>FarsiRange2 do begin /////////////////////////
If CurYear=Counter then begin
AddFarDay:=true;
break;
end;
end;//while
If AddFarDay then
FarDay:=1 else Farday:=0;
If (((thismonth=3) and (thisday>20-(addToDays)+FarDay)) or (thismonth>3) ) then
CurYear:=CurYear+1;
end; //First If
If AddtoDays=1 then FarDay:=0;
//Rem---------------------------------
Case thismonth of
1:Begin
If thisday<(21-Farday) then begin
CurMonth:=10;
CurDay:=(ThisDay+10)+FarDay;
end else begin
CurMonth:=11;
CurDay:=(ThisDay-20)+FarDay;
end;
end;
2:Begin
If thisday<(20-Farday) then begin
CurMonth:=11;
CurDay:=(ThisDay+11)+FarDay;
end else begin
CurMonth:=12;
CurDay:=(ThisDay-19)+FarDay;
end;
End;
3:Begin
If thisday<(21-AddToDays) then begin
CurMonth:=12;
CurDay:=(ThisDay+9)+AddToDays+FarDay;
end else begin
CurMonth:=1;
CurDay:=(ThisDay-20)+AddToDays;
end;
End;
4:Begin
If thisday<(21-AddToDays) then begin
CurMonth:=1;
CurDay:=(ThisDay+11)+AddToDays;
end else begin
CurMonth:=2;
CurDay:=(ThisDay-20)+AddToDays;
end;
End;
5:Begin
If thisday<(22-AddToDays) then begin
CurMonth:=2;
CurDay:=(ThisDay+10)+AddToDays;
end else begin
CurMonth:=3;
CurDay:=(ThisDay-21)+AddToDays;
end;
End;
6:Begin
If thisday<(22-AddToDays) then begin
CurMonth:=3;
CurDay:=(ThisDay+10)+AddToDays;
end else begin
CurMonth:=4;
CurDay:=(ThisDay-21)+AddToDays;
end;
End;
7:Begin
If thisday<(23-AddToDays) then begin
CurMonth:=4;
CurDay:=(ThisDay+9)+AddToDays;
end else begin
CurMonth:=5;
CurDay:=(ThisDay-22)+AddToDays;
end;
End;
8:Begin
If thisday<(23-AddToDays) then begin
CurMonth:=5;
CurDay:=(ThisDay+9)+AddToDays;
end else begin
CurMonth:=6;
CurDay:=(ThisDay-22)+AddToDays;
end;
End;
9:Begin
If thisday<(23-AddToDays) then begin
CurMonth:=6;
CurDay:=(ThisDay+9)+AddToDays;
end else begin
CurMonth:=7;
CurDay:=(ThisDay-22)+AddToDays;
end;
End;
10:Begin
If thisday<(23-AddToDays) then begin
CurMonth:=7;
CurDay:=(ThisDay+8)+AddToDays;
end else begin
CurMonth:=8;
CurDay:=(ThisDay-22)+AddToDays;
end;
End;
11:Begin
If thisday<(22-AddToDays) then begin
CurMonth:=8;
CurDay:=(ThisDay+9)+AddToDays;
end else begin
CurMonth:=9;
CurDay:=(ThisDay-21)+AddToDays;
end;
End;
12:Begin
If thisday<(22-AddToDays) then begin
CurMonth:=9;
CurDay:=(ThisDay+9)+AddToDays;
end else begin
CurMonth:=10;
CurDay:=(ThisDay-21)+AddToDays;
end;
End;
end;//case
//Rem-----------------
CurM:=Trim(IntTostr(CurMonth));
CurD:=Trim(IntTostr(CurDay));
//Rem-----------------
If CurMonth<10 then
CurM:='0'+Trim(IntToStr(CurMonth));
If CurDay<10 then
CurD:='0'+Trim(IntTostr(CurDay));
Result:=EncodeDate(CurYear,CurMonth,CurDay);
end;
سلام جناب استاد خرسندی
من Solar_Calendar_Package_v3.4.12 رو روی xe3 نصب میکنم ولی وقتی توی فرم قرارش میدم این ارور رو میده . و در قسمت uses از SolarCalendarPackage ایراد میگیره .ممنون میشم راهنمایی کنید .
ضمیمه 140277ضمیمه 140278
مسیر کامپوننت رو به مسیرهای دلفی اضافه کنید.نقل قول:
نوشته شده توسط behnam-k
سلام جناب مهندس
من از قسمت tools>options>library آیتم library path مسیر کامپوننت رو اضافه میکنم . ولی مشکل حل نمیشه .
ضمیمه 140291
سلام دوستان
ممنون میشم بابت اضافه کردن کامپوننت به مسیر دلفی منو راهنمایی کنید .
سلامنقل قول:
نوشته شده توسط behnam-k
ای کاش جناب مهندس خرسندی عزیز یا یکی از اساتید پرونده سوال من رو ببنده .
ممنون
جناب مهندس سلام
من دوباره کامپوننت جنابعالی رو remove کردم و هنگام نصب مجدد متوجه شدم که این یبغام رو میده
[MSBuild Error] The "CreateRcFile" task failed unexpectedly.
System.UnauthorizedAccessException: Access to the path 'C:\Program Files (x86)\Embarcadero\RAD Studio\Solar_Calendar_Package_v3.4.12\SolarCalenda rPack.vrc' is denied.
at System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
at System.IO.FileStream.Init(String path, FileMode mode, FileAccess access, Int32 rights, Boolean useRights, FileShare share, Int32 bufferSize, FileOptions options, SECURITY_ATTRIBUTES secAttrs, String msgPath, Boolean bFromProxy)
at System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, FileShare share, Int32 bufferSize, FileOptions options)
at System.IO.StreamWriter.CreateFile(String path, Boolean append)
at System.IO.StreamWriter..ctor(String path, Boolean append, Encoding encoding, Int32 bufferSize)
at System.IO.StreamWriter..ctor(String path, Boolean append)
at Borland.Build.Tasks.Shared.CreateRcFile.WriteWindo wsRC()
at Borland.Build.Tasks.Shared.CreateRcFile.Execute()
at Microsoft.Build.BuildEngine.TaskEngine.ExecuteInst antiatedTask(EngineProxy engineProxy, ItemBucket bucket, TaskExecutionMode howToExecuteTask, ITask task, Boolean& taskResult)
ضمیمه 140400
وارد این بخش بشید : Tools->Options->Delphi Options->Library->Library Pathنقل قول:
نوشته شده توسط behnam-k
مسیرتون رو انتخاب کنید و Ok کنید.
مشکل کامپایل برنامه تون باید خیلی ساده حل بشه و اصلا مسئله ی پیچیده ای نیست.
ممنون جناب مهندس - مشکل با نصب مجدد دلفی حل شد .نقل قول:
نوشته شده توسط m-khorsandi
سلام
با ویندوز 10 وقتی برنامه من که از این کامپوننت استفاده اجرا می شود، این خطا را می دهد
این مشکل رفع شد.نقل قول:
نوشته شده توسط ali_abbasi22145
باسلام خدمت اساتید،
دریک برنامه ازتاریخ شمسی(solar calander)(نوشته شده توسط آقای خرسندی) استفاده می کنیم. نوع دیتا برای فیلدتاریخ درجداول مختلف برنامه هم ازنوع(text)درنظرگرفته ایم.
دریکی ازقسمتهای برنامه می خواهیم یک تاریخ(DBEdit1)را از تاریخ دیگر(DBEdit2) کم کنیم.(یعنی اختلاف روزهای بین دوتاریخ رابدست بیاوریم). تاریخ هم به این صورت هستش: 1395/05/22
دوستان محبت بفرمایید که چگونه می تونیم این مقایسه رو انجام بدیم.
ممنون!
از کدوم نسخه استفاده می کنید؟نقل قول:
نوشته شده توسط amirkazem
سلام، ازنسخه
Solar Calander For DelphiXE3 استفاده می کنم. که دریک پکیجی بود. فکرمیکنم نسخه اولیه باشه. مطمئنم که آخری نیست.
Solar_Calendar_Package_v3.4.12 این نسخه مشکل دارد.نقل قول:
نوشته شده توسط m-khorsandi
اون مشکل که تو شکل کماکان هست! وقتی یک رکورد خالی و جدید اضافه می کنم مثلا تاریخ تولد و تاریخ اخذ مدرک و تاریخ تحویل از رکورد اخری دارد
سلام خدمت جناب خرسندی عزیز.
امروز به یه مشکلی برخوردم در کامپوننت TSolarDatePicker؛ نسخه 3.4.12؛ وقتی که در صفحه تقویم باز شده می خوام سال رو بصورت دستی تایپ کنم رقم اول تایپ میشه و دیگه چیزی تایپ نمی کنه. مثل اینکه با تایپ اولین رقم نشانگر متن از باکس مربوطه میره بیرون و باید با کلیک ماوس دوباره نشانگر رو بیاریم اونجا و یه رقم دیگه تایپ کنیم و ... . عکس ضمیمه رو ببینید.
مشخصات : دلفی 2010، ویندوز 10، فونت فرمها و اشیاء فونت فارسی Iran-Sans
ممنونم اگه راهنمایی کنید.
سلام،نقل قول:
نوشته شده توسط saeidd
لطفا با آخرین نسخه بررسی کنید و نتیجه رو به من خبر بدید
آخرین نسخه رو میتونید با svn بگیرید یا مستقیما snapshot بگیرید
تستش کردم، مشکل همچنان برقراره.نقل قول:
نوشته شده توسط m-khorsandi
راستی یه نکته دیگه، اگه امکانش بود قابلیت تغییر فونت و همچنین تغییر سایز SolarMOnthCalendar رو بهش اضافه کن مهندس. خیلی عالی میشه.
آخرین نسخه رو امروز ریلیز کردمنقل قول:
نوشته شده توسط saeidd
لطفا دانلود کنید و اگه مشکلی بود اطلاع بدید.
مشکل تایپ دستی عدد سال حل شده مهندس، ممنون.نقل قول:
نوشته شده توسط m-khorsandi
اگه قابلیت تغییر فونت و همچنین تغییر سایز SolarMonthCalendar رو اضافه کنی خیلی بهتر میشه مهندس. منتظریم
با سلام وتشکر از زحمات آقای خرسندی
من دو تا مشکل دارم
اول من ورژن 3.4.27 رو امتحان کردم یه مشکلی داره وقتی در تقویم نمایشی روی کلید تغییر حالت (شمسی به میلادی)تقویم کلیک میکنی اول تغییر میلادی درست انجام میشه ولی در کلیک مجدد برای برگشت به شمسی به مشکل بر میخورم
اما در ورژن 3.4.12 این مشکل نیست
باتشکر
مشکل دوم عدم وجود خاصیت Anchors در TSolarMonthCalendar
باتشکر
جناب آقای مهندس خرسندی عزیز
با سلام و احترام
ضمن تشکر از کامپوننت تقویم شمسی
من از کامپوننت شما استفاده کردم بسیار عالی بود فقط یک خواهش امکان داره روش تغییر سایز تقویم که در TSolarDatePicker باز میشه رو به من بگین
میخوام بتونم سایزش رو عوض کنم
با تشکر
علی جان هنوز روی دلفی 2009 كاری نكردم ولی با دلفی 2007 مشكل خاصی نداره و فقط چند تا مشكل جزئی هست كه بايد حل بشن.
راهنما رو ديدی؟
با سلام
1 - امكان تغيير فرمت روز و ماه در تقويم ميلادي اضافه بشه مثلا 18/03/2017 و 03/18/2017
2 - امكان دو رقمي شدن اعداد زير 10 ---> 01 = 1