為什麼是重覆執行? |
尚未結案
|
tea15
初階會員 發表:64 回覆:72 積分:27 註冊:2005-06-15 發送簡訊給我 |
private
{ Private declarations }
f,t:string;
Function MyWorkDate(InDate : TDate) : TDate;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
datetimepicker1.Date:=EncodeDate(strtoint(copy(edit1.Text,1,4)),strtoint(copy(edit1.Text,5,2)),strtoint(copy(edit1.Text,7,2)));
edit2.Text:=datetostr(myworkdate(datetimepicker1.Date));
if adoQuery1.Locate('holiday', edit2.Text, []) then ////-----為什麼老是這一行出現重覆執行的動作?////
begin
if radiobutton1.Checked then //繳款日
begin
edit2.Text:=datetostr(myworkdate(datetimepicker1.Date-1))
end
else if radiobutton2.Checked then//兌現日
begin
edit2.Text:=datetostr(myworkdate(datetimepicker1.Date+1))
end
end;
Function Tform1.MyWorkDate(InDate : TDate) : TDate;
var
DOW :word;
R: TDate;
begin
R:= InDate;
DOW := DayOfTheWeek(R); if RadioButton1.Checked then
begin
Case DOW of
6 : R := R -1;
7 : R := R -2;
1 : R := R -3;
else
R := R-1;
end
end
else if RadioButton2.Checked then
begin
Case DOW of
5 : R := R +3;
6 : R := R +2;
7 : R := R +1;
else
R := R+1;
end
end; label1.caption := '星期'+IntToStr(DayOfTheWeek(R));
Result := R;
end; 一直是這樣的錯誤,我該如何修改呢?
|
pgdennis
資深會員 發表:41 回覆:526 積分:443 註冊:2002-05-23 發送簡訊給我 |
|
tea15
初階會員 發表:64 回覆:72 積分:27 註冊:2005-06-15 發送簡訊給我 |
|
bestlong
站務副站長 發表:126 回覆:734 積分:512 註冊:2002-10-19 發送簡訊給我 |
|
lutienlung
一般會員 發表:3 回覆:5 積分:1 註冊:2005-04-01 發送簡訊給我 |
|
tea15
初階會員 發表:64 回覆:72 積分:27 註冊:2005-06-15 發送簡訊給我 |
|
bestlong
站務副站長 發表:126 回覆:734 積分:512 註冊:2002-10-19 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |