procedure TForm1.Button1Click(Sender: TObject);
var
dtT,dtY : TDateTime ;
str : string ;
begin
dtT := Date ;
str := FormatDateTime('yymmdd',dtT) ;
ShowMessage(str) ;
dtY := dtT-1 ;
str := FormatDateTime('yymmdd',dtY) ;
ShowMessage(str) ;
end;
var
dtT,dtY : TDateTime ;
str : string ;
begin
dtT := Date ;
str := FormatDateTime('yymmdd',dtT) ;
ShowMessage(str) ;
dtY := dtT-1 ;
str := FormatDateTime('yymmdd',dtY) ;
ShowMessage(str) ;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货