var wYear,wMonth,wDay: Word;
begin
  Decode(Date,wYear,wMonth,wDay);
end;

解决方案 »

  1.   

    DecodeDate() 是将日期格式分解为年月日
    EncodeDate() 是将年月日合并为日期格式
      

  2.   

    var wYear,wMonth,wDay: Word;
    begin
      Decode(Date,wYear,wMonth,wDay);
    end;
      

  3.   

    DecodeTime 是将时间分解为时、分、秒、毫秒
    EncodeTime 反之
      

  4.   

    I'm sorry!DecodeDate
    or 
    DecodeTime
      

  5.   

    procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
      

  6.   

    怎样直接比较两个date的大小关系?
      

  7.   

    是吗?
    我用decodedate分开了
    谢谢大家高诉此函数
    直接比较datetimepicker.date 在它的closeup中比较不起作用