如何处理系统自带的日期参数

ntcp

由于，系统自带的参数“服务器月”是个整型，所有一月份，就是‘1’。如果想填充为‘01’，那么就需要自己重新定义一个参数来实现实际的需求，然后，用这个参数来实现取服务器的月份（代码如下）：

procedure TYWCSZ1.ParamYWCS1GetValue(Sender: TObject; var Value: Variant);
begin
   Value := IntTostr(monthof(SysService.Time));  //取服务器的月，取服务器的年，YearOf等等）
   Value := TJustepCommonUnit.StrToRightLenStr(Variants.VarToStr(Value), '0', 2);
   //business.Forms.Dialogs.ShowMessage(Value.ToString);  //将该值Show出来看看
end;