有函数如下
function deSysDate(value, bz: string): string;
var
Year, Month, Day: Word;
begin
DecodeDate(strtodate(value), Year, Month, Day);
if bz = 'year' then
result := IntToStr(year);
if bz = 'month' then
result := IntToStr(month);
if bz = 'day' then
result := IntToStr(day);
end;使用时
procedure TfrmTdmzTjRtp.QRDBText10Print(sender: TObject;
var Value: string);
begin
value := deSysDate(value, 'day');
end;
function deSysDate(value, bz: string): string;
var
Year, Month, Day: Word;
begin
DecodeDate(strtodate(value), Year, Month, Day);
if bz = 'year' then
result := IntToStr(year);
if bz = 'month' then
result := IntToStr(month);
if bz = 'day' then
result := IntToStr(day);
end;使用时
procedure TfrmTdmzTjRtp.QRDBText10Print(sender: TObject;
var Value: string);
begin
value := deSysDate(value, 'day');
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货