請問各位大大 . Delphi 要計算日期要如何做呢 ? 假如 Edit1 , Edit2 , Edit3 分別輸入 年 月 日 如何計算這日期的 前一天和後一天是那個日子 ?

您好!    比較簡單的處理方法, 直接將Edit中的字串形態轉換成日期形態, 然后再將其-1或者+1即可計算出前后日期. 範例如下:

Var
  MyString : String;
  MyDate1, MyDate2 : TDate;
begin
  MyString := Edit1.Text   '/'   Edit2.Text   '/'   Edit3.Text;
  MyDate1 := StrToDate(MyString);
  MyDate2 := MyDate1 - 1; //前一日
  MyDate2 := MyDate1   1; //后一日
  ShowMessage(DateToStr(MyDate2));
end;

參考看看! ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

能在之前先檢測日期正確嗎 ??

您好﹗    可以用Try..Except的語法來檢測﹕

Var
  MyString : String;
  MyDate1, MyDate2 : TDate;
begin
  MyString := Edit1.Text   '/'   Edit2.Text   '/'   Edit3.Text;
  Try
    MyDate1 := StrToDate(MyString);
    MyDate2 := MyDate1 - 1; //前一日
    MyDate2 := MyDate1   1; //后一日
    ShowMessage(DateToStr(MyDate2));
  Except
    ShowMessage('輸入的日期格式錯誤');
  end;
end;

參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

我認為你若用DataTimePicker元件來做會比較好做吧! 由元件來幫你判斷日期正不正確,很方便耶! var Date1, Date2 : TDate; begin Date1 := DataTimePicker1.Date 1; Date2 := DateTimePicker1.Date - 1; end;

沒有函數能直接檢測日期是否真確後傳回true or false

為什麼一執行 var MyDate1:TDate; 出現 error : [Error] tdate.pas(31): '.' expected but ';' found [Error] tdate.pas(34): ';' expected but 'END' found [Fatal Error] Project1.dpr(5): Could not compile used unit 'test\tdate.pas'

您好﹗    [Error] tdate.pas(31): '.' expected but ';' found //請檢查此段程式碼中是否有漏寫誤寫'.'符號﹐單行程式碼結束時是否有漏寫';'符號 [Error] tdate.pas(34): ';' expected but 'END' found //請檢查此段程式碼中某段結束時是否有漏寫'end;' 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/12/10 12:19:17

------
忻晟