اصلاح: چه طوری می شه 2 تاریخ رو از هم کم کرد؟

[yaas]

سلام
چه طوری می شه 2 تاریخ رو از هم کم کرد؟؟؟
ممنون

[Sadegh_S]

منظور شما از تاریخ همان متغیر datetime است ؟ یا اینکه خودتان آن را تعریف کرده اید؟

[Gladiator]

با سلام

به این شکل :


procedure DecodeDate ( const SourceDate : TDateTime; out Year, Month, Day : Word ) ;

اینم یک مثال :


var
myDate : TDateTime;
myYear, myMonth, myDay : Word;
begin
// Set up the myDate variable to have a December 2000 value
myDate := StrToDate('29/12/2000');

// Now add a month to this value
myDate := IncMonth(myDate);

// And let us see what we get
DecodeDate(myDate, myYear, myMonth, myDay);
ShowMessage('myDate now = '+DateToStr(myDate));
ShowMessage('myDay = '+IntToStr(myDay));
ShowMessage('myMonth = '+IntToStr(myMonth));
ShowMessage('myYear = '+IntToStr(myYear));
end;

اینم نتیجه این مثال :



myDate now = 29/01/2001
myDay = 29
myMonth = 1
myYear = 2001


اینم آدرس سایتی که میتونی بیشتر اطلاعات دریافت کنی :

http://www.delphibasics.co.uk/RTL.asp?Name=DecodeDate

موفق باشی .

[said ali]

با سلام
یه کار دیگه هم میشه کرد چون تاریخ خودش یه متغیر Word در نتیجه میتونی مستقیما اونها رو از هم کم کنی بعد هم حاصل رو دیکد کنی .

[Kambiz]

از نوع Double هست نه Word.

[Gladiator]

بله از نوع دابل هستش نه ورد .

[said ali]

با سلام
با عرض معذرت فراوان :oops: :oops: :oops: .