如何回傳 |
尚未結案
|
nick167
中階會員 發表:86 回覆:133 積分:53 註冊:2003-02-12 發送簡訊給我 |
Function GetDateTrue(DateStr : String):Boolean; //判斷日期輸入合法性
var sDay:String;
TempDate:TdateTime;
begin
Result := False;
if Length(DateStr) = 7 then
begin
sDay:=IntToStr(StrToInt(LeftStr(DateStr,3)) 1911) '/' MidStr(DateStr,4,2) '/' RightStr(DateStr,2);
TempDate:=StrToDate(sDay); 如何回傳 StrToDate(sDay) 是否True or False ? Result:=
end;
end;
不好意思,新手上路,敬請高手包含謝謝大家
|
channel
尊榮會員 發表:67 回覆:707 積分:854 註冊:2002-05-02 發送簡訊給我 |
Function GetDateTrue(DateStr : String):Boolean; //判斷日期輸入合法性 var sDay:String; TempDate:TdateTime; begin Result := True; if Length(DateStr) = 7 then begin sDay:=IntToStr(StrToInt(LeftStr(DateStr,3)) 1911) '/' MidStr(DateStr,4,2) '/' RightStr(DateStr,2); try TempDate:=StrToDate(sDay); except Result:= False; end; end; end;應該這樣就可以了!您試試看吧!
------
~小弟淺見,參考看看~ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |