怎样取当前服务器时间的年和月赋值

atiger

有四种方法：

方法一、
SysUtils.FormatDateTime('yyyy-mm-dd',Business.Data.SysSrv.SysService.Time).Substring(0,4);
SysUtils.FormatDateTime('yyyy-mm-dd',Business.Data.SysSrv.SysService.Time).Substring(6,2);
SysUtils.FormatDateTime('yyyy-mm-dd',Business.Data.SysSrv.SysService.Time).Substring(9,2);

方法二、
Dialogs.ShowMessage(SysUtils.IntToStr(Business.System.DateUtils.Monthof(Business.Data.SysSrv.SysService.Time)));
Dialogs.ShowMessage(SysUtils.IntToStr(Business.System.DateUtils.Yearof(Business.Data.SysSrv.SysService.Time)));

方法三、
就是使用代码实现：
procedure TMainForm.Button1Click(Sender: TObject);
var
  y, m, d: word;
  dt : TDateTime;
begin
  dt := DateTimePicker1.Date;
  SysUtils.DecodeDate(dt, y, m, d);
end;

方法四、
Value := IntTostr(yearof(SysService.Time))+TJustepCommonUnit.StrToRightLenStr(Value.ToString, '0', 6);
Value := IntTostr(Monthof(SysService.Time))+TJustepCommonUnit.StrToRightLenStr(Value.ToString, '0', 6);

    //SysService 在 Business.Data.SysSrv 下

atiger

通过Business提供的方法取获取服务器时间的年和月，详细代码如下：

1、Dialogs.ShowMessage(SysUtils.IntToStr(Business.System.DateUtils.DayOf(Business.Data.SysSrv.SysService.Time)));

2、Dialogs.ShowMessage(SysUtils.IntToStr(Business.System.DateUtils.Monthof(Business.Data.SysSrv.SysService.Time)));

3、Dialogs.ShowMessage(SysUtils.IntToStr(Business.System.DateUtils.Yearof(Business.Data.SysSrv.SysService.Time)));

atiger

通过Business平台提供的业务参数来获取服务器时间的年和月，详细代码如下：

procedure TMainForm.ButtonParamClick(Sender: TObject);
var
  lParam: TBizParam;
  lBizURL: TBizURL;
  lStr: string;
begin
  lBizURL := TBizURL.Create;
  lBizURL.URL := 'Biz:\SYSTEM\DataTimeParams.ParamGroup';
  Param:=SystemUtils.TContextUtils.GetParam(self.Context,lBizURL,'ServerDate');
end ;

1、函数声明：static function GetParam(AContext: TContext; const AParamURL: TBizURL): TBizParam; overload;
引用单元：Business.System. SysUtils
参数说明：
返回值：参数值。
AParamURL：参数的BizURL。

2、函数声明：static function GetParam(AContext: TContext; const AGroupURL: TBizURL; const AID: string):
引用单元：Business.System. SysUtils
参数说明：
返回值：参数值。
AContext：环境。
AGroupURL：参数组的BizURL。
AID：参数的ID。