如果寫一個出生年月日除錯的程式 |
答題得分者是:christie
|
sives1227
一般會員 發表:24 回覆:19 積分:8 註冊:2007-10-12 發送簡訊給我 |
|
christie
資深會員 發表:30 回覆:299 積分:475 註冊:2005-03-25 發送簡訊給我 |
procedure TForm1.MskEdt1Exit(Sender: TObject);
var dt:TDate; begin Try dt:=StrToDate(MaskEdit1.Text); if dt>now then begin ShowMessage('生日大於今天') end; Except on e:exception do ShowMessage('Sorry, ' e.Message); End; end; PS:貼圖以附檔上傳
------
What do we live for if not to make life less difficult for each other? |
jackiemi2_seed
中階會員 發表:37 回覆:97 積分:76 註冊:2006-09-11 發送簡訊給我 |
------
OS : Win 7 pro Program : Delphi 7 DataBase : Ms Sql 2008 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |