问题是我试过decodetime也没有用啊!!
提出小时就没有问题

解决方案 »

  1.   

    decodetime没有用?不会吧
    你看看是不是别的地方出错了
      

  2.   

    老兄,'mm'是获得月份的,分钟应该用'nn':
    procedure TForm1.Button1Click(Sender: TObject);
    var
      mm:string;
    begin
      mm:=formatdatetime('nn',time);
      Self.Caption:=mm;
    end;
      

  3.   

    function FormatDateTime(const Format: string; DateTime: TDateTime): string;
    知道formatdatetime的第二个参数不是TTime类型,而是TDateTime类型,
    下面的例子可以,没有问题。mm:string;
    mm:=formatdatetime('mm',now);
    showmessage(mm);