如何显示当前日期！急！(30分)

W

wangchlai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-21

• #1

我是即将毕业的毕业生~！需要用delphi做个开发系统！现在要主界面上的statusbar控件的panles[1].text里显示当前日期该怎么弄！各位高手给点意见！谢谢！急！

 

隐

隐士山人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-21

• #2

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
showmessage(FormatDateTime('yyyy年mm月dd日',now));
end;

 

G

gblovezx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-21

• #3

procedure Tfrm_Main.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[1].Text := FormatDateTime('yyyy-MM-dd',Date);
StatusBar1.Panels[2].Text := FormatDateTime('hh:mm:ss',Now);
end;

 

H

hjylinyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-21

• #4

formatdatetime('yyyy/mm/dd',now);

 

L

lovefreezhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-21

• #5

StatusBar1.Panels[1].Text := FormatDateTime('yyyy-MM-dd',Now);

 

J

jnbyte

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-21

• #6

StatusBar1.Panels[1].Text := FormatDateTime('yyyy年MM月DD日 HH:MM:SS',now);
[]

 

W

wangchlai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-21

• #7

多人接受答案了。