線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:696
推到 Plurk!
推到 Facebook!

如何回傳

尚未結案
nick167
中階會員


發表:86
回覆:133
積分:53
註冊:2003-02-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-02-18 18:15:24 IP:61.228.xxx.xxx 未訂閱
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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-02-18 18:39:32 IP:211.21.xxx.xxx 未訂閱
 
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;
應該這樣就可以了!您試試看吧!
------
~小弟淺見,參考看看~
系統時間:2024-03-29 13:40:43
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!