【结】如何用函数获取年份、月份等？**

sgmx

procedure TMainForm.DataNavigator1BeforeAction(Sender: TObject; var Accept: Boolean);
var
   startdate : TDateTime;
   enddate : TDateTime;
   ksyear,jsyear,ksmonth,jsmonth:Integer;
begin
  if TBizDataSetAction(Sender).ID = BizActnConsts.ActionDataSetSave then
  begin
     startdate :=DataSetBrokerjk.DataSet.FieldByName('XMKSRQ').AsDateTime;
  ksyear := yearof(stratdate);  end;
end;
如何用代码获取startdate的年和月？红色代码不对！

shangxy

用FormatDateTime看看

sgmx

如何把字符转换为数字

shangxy

sysUtils.strtoint

Akon

楼主,还有问题不?

sgmx

没有了！