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

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

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

با سلام

به این شکل :

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

موفق باشی .

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

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

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

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