درخواست کامپوننت تاریخ شمسی برای دلفی 7

[Nesta]

سلام
من احتياج به کامپننت تاريخ شمسی دارم که مجانی باشه اگه کسی داره تورو خدا يه جا بهم بده يعنی اپلد کنه ممنون ميشام ورژن 7

[Sina]

اي بابا
اين چه ربطي به مقالات داره ؟ :!:

[Nesta]

سلام آقا سينا بيخيل گير نده من ميزرم که اگه کسی اينجا زياد امد شايد داشته باشه آخه يه چيزه الکی نيست که همه سر در بيارن ببخشيد

[NaserM]

من یه کامپوننت دارم اگه می خوای ایمیل بزن بهم که بهت بدم
Nmokkary@Yahoo.Com

[مهمان]

سلام کارلوس عزيز
من يک کد براي چنين کاري براتون ميل زده ام.
نمي دونم به دردت بخوره يا نه.
موفق باشيد :wink:

[Nesta]

سلام آقا naserm اگه زحمت بکشی برام ميل کنی ممنون ميشام من آدرس ايميل رو بهت ميدم من يه کامپننت ميخوام رامبد جان که datepicker رو از اينا هم داشته باشه که واقعاً ميدنی که لازم هست من البته خودم کامپننت های توپی دارم که بدن اگه خواستين يه جا براتون اپلد ميکنم که حال کنين مثلاً کامپننت های فلش در delphi که کلک هست حالا آقا اين email من saeid_nafar2005@yahoo.com

[Spy]

کارلوس جان نمیشه از این استفاده کنی؟
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

:shock:

[Nesta]

سلام
سپی جان دستت درد نکنه ولی اين کامپننت نيست دی ال ال هستش که من درست کار باهاش رو بلد نيستم اگه کسی بتونه در اين ضمينه و کار باهاش منو راهنمای کنه من يک دنيا ازش ممنون ميشام

[double_n]

آقا جان يا اماده اون رو بخر يا
تو درخواست نرم افزار و يا كرك در خواست كن .
شايد يكي گير بياد

[Nesta]

سلام
دوسته عزيز من نميخاستم بخوارم چون زور داره خيلی ها دارن ميتونن به منم بدان در عوض من يه چيز هعی درم که ميتونم به همه بدم اينطوری بهتره

[saniak_robot]

اگه به من میل بزنی برات میفرستم .

[mojtaba802]

جناب این یک تابع است که به شرح زیر است:

اين يک تابع است
Function MiladyToShamsi(DTime:tdateTime):tdateTime;
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;
مثلا در فرم کريت بنويس:
label1.caption:=datetimetostr(MiladyToShamsi(date) );

موفق باشي
mojtaba8022000@yahoo.com
مجتبي رضائي از برازجان
:blush: :rolleye: :biggrin: :) :happy:

[hp1361]

سلام

اقا ناصر اگه میشه برای من هم بفرست ممنونتم

hp1361@gmail.com

[kadir]

من کامپوننت تقویم فارسی رو تو وبلاگم گذاشتم
میتونی بری ببینی شاید به دردت خورد
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[hp1361]

اقا قدير دستت درد نكنه بدردم خورد حسابي

ممنون

[soldier]

سلام
آقا مجتبي خيلي خوب بود ممنون.

[b_yaghobi]

دوستان عزيز يك كامپوننت با سورس براتون ميگذارم :
اين سورس خودم هست لطفا اگر به سورس آن تغييراتي داديد به من هم بدهيد. همين.

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[soldier]

سلام
اينو خودت نوشتي يا اينكه سورس رو فقط تبديل كردي به كمپننت؟

[amir_dpr]

ميتوني از كامپ.ننت farsidate2 استفاده كني
هر كس مي خواد ايميل بزنه تا براش بفرستم

[soldier]

سلام آقا امير
اين كمپننت ساخته شده
توي يه تاپيك ديگه! بگردي پيدا مي كني

[مرد مباح]

از روي دي ال ال كه توي اين بخش سرچ كنيد پيدا ميشه ميتونين بردارين.
طرز استفادشم اومده توش.

موفق باشيد.

[soldier]

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