اضافه و کم کردن از زمان (Time )؟

[Ali-Far]

سلام.
با چه تابعی می توانیم یک مقدار مانند دقیقه را به زمان اضافه یا کم کنیم ؟
مانند توابع INC و DEC که برای اعداد به کار می رود.

[mzjahromi]

دستور زیر سه دقیقه به زمان اضافه میکنه


Time1:=Time1+EncodeTime(00{HH},03{MM},00{SS},00{MS })

[Ali-Far]

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

[mzjahromi]

مگه نمی خواهید زمان را کم یا اضافه کنید؟
خوب یک روشش اونی هست که نوشتم

[Hamid_PaK]

یونیت DateUtils رو به اینترفیس اضافه کنید بعد از توابعی مانند IncYear, IncDay, IncWeek و ... استفاده کنید ...

یا حق !!!

[Ali-Far]

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

[Mahmood_M]

یونیت DateUtils رو به اینترفیس اضافه کنید بعد از توابعی مانند IncYear, IncDay, IncWeek و ... استفاده کنید ...
آقا حمید می شه یه مثال از این توابع اینجا بنویسید؟ آخه هرکاری می کنم Eror می ده !!! ...
راستش می خوام در یک فیلد از بانک اطلاعاتی که از نوع تاریخ است ، تاریخ رو قرار بدم ( با 2 روز بیشتر، یعنی 2 روز به تاریخ اضافه بشه و درون بانک ثبت بشه ) ...
اگه یه مثال در این رابطه بزنید ممنون می شم ...
اینم بگم که DateUtils رو به قسمت Uses اضافه کردم و مشکل از اون نیست.

[Hamid_PaK]

مثال :


uses
DateUtils;

procedure TّForm.Button1Click(Sender: TObject);
var
tmpDate: TDateTime;
begin
tmpDate := IncDay(Now, 2);
ShowMessage(DateTimeToStr(tmpDate));
end;


یا حق !!!

[Mahmood_M]

آقا حمید دستتون درد نکنه ...
دیگه متوجه شدم ...