您們好， 我想用Funtion來判斷我的日期(DBGrid)是否為星期六或星期日，例如:8/13(六)那就加一為星期日，但又碰到星期日，就再加一為星期一。 這樣解釋…不知各位大大了不了解…

Hi tea15,    不知道是否是你要的：

uses DateUtils    procedure TForm1.Button1Click(Sender: TObject);
  Function MyWorkDate(InDate : TDate) : TDate;
    var
      DOW : Word;
      R : TDate;
    begin
      DOW := DayOfTheWeek(InDate);
      Case DOW of
        6 : R := InDate   2;
        7 : R := InDate   1;
      else
        R := InDate;
      end;
      Result := R;
    end;
begin
  Edit1.Text := DateToStr(MyWorkDate(MonthCalendar1.Date));
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

用 DayOfWeek(Date) 可以取得某日(Date) 是星期幾 星期日傳回 1，星期一傳回 2，星期六傳回 7，餘類推

你好 我想請問一下... Edit1.Text := DateToStr(MyWorkDate(MonthCalendar1.Date)); 上述一行代表什麼意思?

Hi tea15,    DateToStr : Converts a TDateTime value to a string MyWorkDate : Custom Function MonthCalendar1.Date : Date selected by MonthCalendar1    全部指令合起來的意思是： 將MonthCalendar1選定的日期經過你所說的運算，轉換為字串後顯示在 Edit1 內！ ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

你好 請問一下，我除了一個button和一個 edit外，還要設定什麼屬性或者元件嗎?

如果是以Fishman的例子來說 還需要MonthCalendar這個元件在Component Palette 的 Win32 另外MyWorkDate這個function因為是在button下 所以只能給這個按鈕使用 如過要給其他程序呼叫 那就要換個位置嚕!^^