delphi如何编写一个显示日期时间的程序?

发布网友 发布时间：2024-10-15 04:20

我来回答

共3个回答

热心网友 时间：2024-10-15 04:18

代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Text:=FormatDateTime('yyyy年mm月dd日 hh时nn分ss秒',now());
end;

热心网友 时间：2024-10-15 04:16

FormatDateTime('yyyy年mm月dd日 hh时nn分ss秒',now())
正解，就一函数的事情

热心网友 时间：2024-10-15 04:24

新建一个application
在窗体是放两个控件:
Label1: TLabel;
Timer1: TTimer;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval :=1000; //1000是指1000毫秒
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption := FormatDateTime('YYYY年MM月DD日HH时MM分SS秒',now());
end;
适当调整窗体大小,以及label背景等即可达到你的目的