Delphi时间处理函数

//引用单元
System.DateUtils

var
  _Year, _Month, _Day, _Hour, _Min, _Sec, _MSec : Word;
  _date : TDate;
  _time : TTime;
  _datetime : TDatetime;

//组装日期时间
_datetime := EncodeDateTime(_Year, _Month, _Day, _Hour, _Min, _Sec, _MSec);

//组装日期
_date := EncodeDate(_Year, _Month, _Day);

//组装时间
_time := EncodeTime(_Hour, _Min, _Sec, _MSec)

//分解日期时间
DecodeDateTime(Now(), _Year, _Month, _Day, _Hour, _Min, _Sec, _MSec);

//分解日期
DecodeDate(_date, _Year, _Month, _Day);

//分解时间
DecodeTime(_time, _Hour, _Min, _Sec, _MSec);