日期问题

Question

Now为当前时间。
Edit1.Text := FormatDateTime('yyyy''年''MM''月''dd''日'' hh:mm:ss',Now);

Answer 1

uses
  DateUtils;//...
Edit1.Text := DateToStr(Today);
//...

Answer 2

Edit1.Text:=DateToStr(Date);也可以
Date为取日期的函数

Answer 3

edit1.text:=datetimetostr(date);这个是取的日期格式，是系统默认的Edit1.Text := FormatDateTime('yyyy-mm-dd',date);这个是定义了日期的格式，又可以转换了类型，还是这个好用

Answer 4

比较精确的是使用GETTICKCOUNT函数

Answer 5

procedure TForm1.Timer1Timer(Sender: TObject);
begin
        edit1.text:=datetimetostr(now);//可以是now也可以是date
end;
試試吧，你會明白的