最好用FormatDateTime,可以指定输出格式.
定单号应该是整数形式,对于数字n:
var n:integer; s:string; d:TDateTime;
s := IntTostr(n);
if (n<10) then s := ' '+s
else if (n<100) then s := ' '+s;
result := FormatDateTime('yyyymmdd',d)+s;
定单号应该是整数形式,对于数字n:
var n:integer; s:string; d:TDateTime;
s := IntTostr(n);
if (n<10) then s := ' '+s
else if (n<100) then s := ' '+s;
result := FormatDateTime('yyyymmdd',d)+s;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货