หาผลต่างของวันจากGetDateRangeDialog(date1, date2);

[naj]

เรียนถาม อ.mn
ผมจะหาผลต่างของวันจากการ ds2-ds1
GetDateRangeDialog(date1, date2);   
       ds1:=formatdatetime('yyyy-mm-dd',date1);
    ds2:=formatdatetime('yyyy-mm-dd',date2);
ไม่ทราบจะใช้ function ตัวไหนครับ
ผมไปดูตัวอย่าง ของ http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
var
  fromdate, toDate : TDateTime;

begin
  // Set up our date variables
  fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);
  toDate   := EncodeDateTime(2000, 02, 29,  9, 0, 0, 0);

  // Display these dates and the days between them
  ShowMessage('From date = '+DateTimeToStr(fromDate));
  ShowMessage('To   date = '+DateTimeToStr(toDate));
  ShowMessage('Whole days difference = '+
              IntToStr(DaysBetween(toDate, fromDate))+' days');
end;
ก็ยังทำไม่ได้ครับ จะนำมาใส่ใน รายงานครับ
ขอบคุณครับ
นาจ
รพ หลวงพ่อเปิ่น

[manoi]

เอา date2 - date1 จะได้ผลต่างของวันครับ เช่น

โค๊ด: Delphi

1.   showmessage(inttostr(date2-date1));
2.  

[naj]

แจ่มแจ้งครับ
นึกไม่ถึงว่าไม่ต้องอย่างนี้
คงต้องขึ้นเขาไปหาหนอนไม้ไผ่กินจักหน่อยจะได้ฉลาดขึ้นกว่านี้
ขอบคุณครับ