تغییر Date با توجه به يك پارامتر ورودي

[Hamid_PaK]

می خواهیم یک تابع داشته باشیم که یک ورودی TDate و یک ورودی Integer داشته باشه و به نسبت عدد ورودی Date رو بالا و یا پایین ببرد ؟؟؟؟

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

[Kamyar.Kimiyabeigi]

درود
دوست عزیز ممکنه لینک زیر کمکتون کنه
http://www.barnamenevis.org/forum/search.php?searchid=3926

[Hamid_PaK]

آقا کامیار اگه ممکنه لینک تاپیک رو ارسال کنید!!! این به دردم نخورد...

با تشکر .

[m-khorsandi]

درود
اگه با دلفی 6 یا 7 کار میکنید:


procedure TForm1.Button1Click(Sender: TObject);
var
dJulianDate: Double;
dtChange: TDateTime;
begin
dJulianDate := DateTimeToJulianDate(now);
dJulianDate := dJulianDate + 5;

dtChange := JulianDateToDateTime(dJulianDate);
ShowMessage(DateToStr(dtChange));
end;

[vcldeveloper]

لازم نیست هیچ کار خاصی انجام بدی، به همین سادگی...


function ChangeDate(inDate : TDate; Value : integer): TDate;
begin
Result := inDate + Value;
end;

[Hamid_PaK]

بسیار عالی بود آقای کشاورز !

چطوری دقیقه Time رو اضافه یا کم کنیم ؟؟؟؟

باتشکر از آقای کشاورز و خورسندی .

[vcldeveloper]

چطوری دقیقه Time رو اضافه یا کم کنیم ؟؟؟؟


uses DateUtils;



IncMinute(Now,2);

مثال بالا دو دقیقه به زمان حال اضافه میکنه

[hamidreza]

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

[vcldeveloper]

من جواب شما رو در PM دادم، در دموهای Indy دو مثال با نام های TimeServer و TimeClient هستند که دقیقا همون کاری رو که قصد انجامش رو دارید نمایش میدند. لینک دانلود این دموها رو هم براتون گذاشته بودم:
http://www.projectindy.org/DemoDown...mos_26Oct04.zip