全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2319
推到 Plurk!
推到 Facebook!

如何去除FormatDateTime產生1899/12/30 00:00:00,我要空白??

答題得分者是:Fishman
elvis114
一般會員


發表:37
回覆:53
積分:18
註冊:2003-06-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-09-27 14:10:37 IP:220.130.xxx.xxx 訂閱
Dear All:

如下 程式 ,當fmDM.ADOQry.fieldbyname('LASTERRLOGINTIME').AsDateTime 為 0 時,edtLastErrLogintime.text 就會出現 1899/12/30 00:00:00 ,要如何取消它,我要代空值‧
edtLastErrLogintime.text := FormatDateTime('YYYY/MM/DD hh:nn:ss',fmDM.ADOQry.fieldbyname('LASTERRLOGINTIME').AsDateTime);

感恩

謝謝
------

南無藥師琉璃光如來
保佑您
h@visli
資深會員


發表:103
回覆:429
積分:431
註冊:2004-02-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-09-27 15:22:20 IP:219.134.xxx.xxx 未訂閱

[code delphi]
if fmDM.ADOQry.fieldbyname('LASTERRLOGINTIME').AsDateTime = 0 then
edtLastErrLogintime.text := ''
else
edtLastErrLogintime.text := FormatDateTime('YYYY/MM/DD hh:nn:ss',fmDM.ADOQry.fieldbyname('LASTERRLOGINTIME').AsDateTime);
[/code]


===================引 用 elvis114 文 章===================
Dear All:

如下 程式 ,當fmDM.ADOQry.fieldbyname('LASTERRLOGINTIME').AsDateTime 為 0 時,edtLastErrLogintime.text 就會出現 1899/12/30 00:00:00 ,要如何取消它,我要代空值‧
edtLastErrLogintime.text := FormatDateTime('YYYY/MM/DD hh:nn:ss',fmDM.ADOQry.fieldbyname('LASTERRLOGINTIME').AsDateTime);

感恩

謝謝
------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------
elvis114
一般會員


發表:37
回覆:53
積分:18
註冊:2003-06-17

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-09-27 16:02:02 IP:211.22.xxx.xxx 訂閱
謝謝大大的回覆,但是程式有很多行同樣的問題,如果每行都這樣加,感覺粉......笨. Sorry ( 我不是說大大 ,我是說程式看起來 )
我有想過這樣寫,但是想要詢問有沒有較好的方式,從FormatDateTime Function 下手,
或更換此 FormatDateTime Function 方法‧

真的只有接受 Delphi 了嗎??

我是用 Delphi6 開發

感恩
謝謝
------

南無藥師琉璃光如來
保佑您
dllee
站務副站長


發表:321
回覆:2519
積分:1711
註冊:2002-04-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-09-27 22:04:34 IP:59.105.xxx.xxx 訂閱

edtLastErrLogintime.text := FormatDateTime('YYYY/MM/DD hh:nn:ss',fmDM.ADOQry.fieldbyname('LASTERRLOGINTIME').AsDateTime);
改成
edtLastErrLogintime.text := MyFormatDateTime('YYYY/MM/DD hh:nn:ss',fmDM.ADOQry.fieldbyname('LASTERRLOGINTIME').AsDateTime);
MyFormatDateTime 函式內作成 h@visli 大大的方式回傳想要的值就 OK 了,原程式取代一次函式名稱就好了。


Seednet ShareMe 免費網路硬碟, 申請送2G, 用 MSN 幫她打廣告加 10G, 推薦1人加 1G, 活動只到 9 月底, 請把握時機
------
http://www.ViewMove.com
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-09-28 10:25:59 IP:59.124.xxx.xxx 未訂閱
Sorry !! 插一下花!
潛水太久,透一下氣!

1. FormCreat 時增加以下兩行程式碼(注意:所有日期、時間格式會被統一改為此格式)
ShortDateFormat := 'YYYY/MM/DD';
LongTimeFormat := 'hh:mm:ss';

2. 程式碼改為
edtLastErrLogintime.text := fmDM.ADOQry.fieldbyname('LASTERRLOGINTIME').AsString;

------
Fishman
elvis114
一般會員


發表:37
回覆:53
積分:18
註冊:2003-06-17

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-09-28 17:49:39 IP:211.22.xxx.xxx 訂閱
謝謝個位大大的幫忙,小弟受教了
------

南無藥師琉璃光如來
保佑您
系統時間:2024-05-04 7:03:32
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!