ใช้การลบกันธรรมดาแหล่ะ อย่างนี้นะ ------------------------------- Procedure MinusDate(Date1,Date2:Tdate); Var Ans : Extended; begin if Date1 > Date2 Then Ans := Date1 - Date2 else Ans := Date2 - Date1; ShowMessage('ห่างกัน :' +floattostr(ans))+ 'วัน'); End;