BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: naj ที่ พฤศจิกายน 30, 2006, 04:23:19 AM

หัวข้อ: หาผลต่างของวันจากGetDateRangeDialog(date1, date2);
เริ่มหัวข้อโดย: naj ที่ พฤศจิกายน 30, 2006, 04:23:19 AM

เรียนถาม อ.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;
ก็ยังทำไม่ได้ครับ จะนำมาใส่ใน รายงานครับ
ขอบคุณครับ
นาจ
รพ หลวงพ่อเปิ่น

หัวข้อ: Re: หาผลต่างของวันจากGetDateRangeDialog(date1, date2);
เริ่มหัวข้อโดย: manoi ที่ พฤศจิกายน 30, 2006, 04:36:14 AM

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

โค๊ด: Delphi

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

หัวข้อ: Re: หาผลต่างของวันจากGetDateRangeDialog(date1, date2);
เริ่มหัวข้อโดย: naj ที่ พฤศจิกายน 30, 2006, 04:56:51 AM

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