我用Function ISPM(const AValue:Tdatetime):Boolean; 的方法進行判斷Now時間似乎不是很好的方法，不知道是否有更好的方法來判斷？ 謝謝 另外如何取出系統時間？我使用now 只是取出了年份/月份/日期… ----------要知道自己有多笨，到DelphiK.Top來看看----------

if ispm(Time) then ... else ...;

引言: 我用Function ISPM(const AValue:Tdatetime):Boolean; 的方法進行判斷Now時間似乎不是很好的方法，不知道是否有更好的方法來判斷？ 謝謝 另外如何取出系統時間？我使用now 只是取出了年份/月份/日期…

Hi, 使用 function IsPM(const AValue: TDateTime): Boolean; 就是一個最簡單的方式了, 或是你也可以自行使用 DecodeTime 來取得 小時 的部分, 再來判斷是否大於 12 也是一樣的 (IsPM function 也就是透過這樣的方式來達成的) 取出系統時間, 使用 Now 就抓得出來了, 使用 DecodeDate 可以拆出 年/月/日, 使用 DecodeTime 可以拆出 時/分/秒/微秒, 若是要自行格式化顯示的時間, 亦可使用 FormatDateTime function !! 詳細使用方式可以參考 help!

Why? var dt:tdatetime; begin dt:=now; edit1.Text:=datetostr(dt); The text is '2004-2-2' ? Thx . ----------要知道自己有多笨，到DelphiK.Top來看看----------

datetostr() ^^^^ 當然只有日期，函示名稱不是很清楚嗎？ 用 DateTimeToStr()

引言: datetostr() ^^^^ 當然只有日期，函示名稱不是很清楚嗎？ 用 DateTimeToStr()

o...愚昧…見笑了 ----------要知道自己有多笨，到DelphiK.Top來看看----------