我在database 中有一個field的type 是DateTime. 例如 10/15/2004 12:00:00 PM 我如何拿取當中的分鐘和秒? 還有一個問題. 假如我自己定義一個TDateTime 的變數, 我如何assign資料給它?

取得可以用內建函數 procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word); 指定可以用內建函數 function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):TDateTime; 我是雪龍

------
http://blog.bestlong.idv.tw/
http://www.bestlong.idv.tw/
http://delphi-ktop.bestlong.idv.tw/

引言: 我在database 中有一個field的type 是DateTime. 例如 10/15/2004 12:00:00 PM 我如何拿取當中的分鐘和秒? 還有一個問題. 假如我自己定義一個TDateTime 的變數, 我如何assign資料給它?

FormatdateTime('mm:ss',Table.FieldByName('DateTime').AsDateTime); // 取得分鐘和秒 -- 把手握緊，裡面什麼也沒有 把手鬆開，你擁有的是一切

引言: 我在database 中有一個field的type 是DateTime. 例如 10/15/2004 12:00:00 PM 我如何拿取當中的分鐘和秒? 還有一個問題. 假如我自己定義一個TDateTime 的變數, 我如何assign資料給它?

提供您另一個簡便的方法..可直接格式化成字串輸出..不用宣告變數 S := FormatDateTime('"時間" dddd, mmmm d, yyyy, " at " hh:nn AM/PM',DateTime); 自訂輸出格式為時間..例如..

您好﹗    Uses DateUtils

取出分
Var
  X : Word;
begin
  X := MinuteOf(Now); //Now部分可用您的資料欄位值替換
  ShowMessage('取得的分是﹕'  IntToStr(X));
end;    取出秒
Var
  X : Word;
begin
  X := SecondOf(Now); //Now部分可用您的資料欄位值替換
  ShowMessage('取得的秒是﹕'   IntToStr(X));
end;

其它的相關函數﹕ DayOf（取出日） HourOf（取出時） MilliSecondOf（取出千分秒） 使用方法同上述的MinuteOf和SecondOf函數﹐但記得需Uses DateUtils﹐适用于 TDateTime形態（TDate和TTime形態亦可）﹐回傳值形態為Word﹒ 自己宣告的TDateTime變數﹐可使用如下程式碼賦值﹕

Var
  MyDateTime : TDateTime;
begin
  MyDateTime := Now;
  //MyDateTime := ADOTable1.Fields[2].AsDateTime;
end;

========================= 我是您的朋友﹐有您真好﹗ =========================

------
忻晟