各位大大我在做一個有關DateTimePicker起迄時間的判斷

我寫下這段程式碼是下在DateTimePicker的onchange裡

if (Trunc(DateTimePicker_OrdDay_e.Date) < Trunc(self.DateTimePicker_OrdDay_s.Date)) then begin
showmessage('結束日期不可以小於開始日期！');
end;

不過若我起的時間假設為2007/7/3的話，而user去點選迄的DateTimePicker時

卻是「固意」將日期往「下個月份」移

此時就會一直執行showmessage('結束日期不可以小於開始日期！')

而DateTimePicker上的月份也會一直往前跳動

我也試了很多種方法，不知如杜絕user這種做法

<textarea class="delphi" rows="10" cols="60" name="code"> procedure TForm1.DateTimePicker1Change(Sender: TObject); begin DateTimePicker2.MinDate := DateTimePicker1.Date; end; </textarea>

------
Fishman

謝謝大大，我試過了，可以^^