FormatDateTime 一段以时间为命令的代码

//FormatDateTime 一段以时间为命令的代码 
procedure TForm1.Button1Click(Sender: TObject);  
var
  filename,timename: string;
begin
    filename := '文件名_'; //这是一个变量名
    timename :=filename +FormatDateTime( 'yyyy"年"mm"月"dd"日_"dddd"_"hh"_"mm"_"ss',now);
    ShowMessage(timename);
end;

 

 

 

 

 

procedure  TForm1 . Button2Click ( Sender :  TObject );
var
   filename , timename : string ;
begin
    // filename:='文件名_'; //这是一个变量名
     timename := FormatDateTime ( '[yyyy"-"mm"-"dd" "dddd" "hh"-"mm"-"ss ]' , now );
     ShowMessage ( timename );
end ;

通过 Wiz 发布