【结贴】日期函数的问题

yellowspring

下面这个代码有什么问题？为什么会报错呢？

type
  TReportParam = class(Object)
  private
  public
      strReportType : string;
      strYear : string;
      iQuarter : Integer;
      iMonth : Integer;
      iWeekOfMonth : Integer;
      iWeekOfYear: Integer;
  end;

type
  TCT_ZTB_DBZBSBFLTJMXBB_MAINFORM = class(TForm)
.
.
.
某函数中
begin
//下面的语句报错
myReportParam.strYear := DateUtils.YearOf(myDateTimePicker.Date).ToString;
end;

end;

end.

FBO

是不是有对象没有创建，代码贴全些。

yellowspring

procedure TCT_ZTB_DBZBSBFLTJMXBB_MAINFORM.BizFormShow(Sender: TObject);
begin
    Init;
end;

procedure TCT_ZTB_DBZBSBFLTJMXBB_MAINFORM.Init;
begin
    myReportParam := TReportParam.Create;
    myReportParam.strReportType := '1';
    //myReportParam.strYear := DateUtils.YearOf(myDateTimePicker.Date).ToString;
    myReportParam.strYear := '2009';
end;

shangxy

你不要用tostring
使用：SysUtils.formatdatetime来格式化日期。

yellowspring

找到方法了
IntToStr(DateUtils.YearOf(myDateTimePicker.Date))
这样写就ok了

shangxy

不管用哪种方法，就不要使用tostring就ok了