如何显现时间？(50分)

T

tctomsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #1

怎能样在LABLE中显现2000年几月几日？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #2

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := DateTimeToStr(Now);
end;

 

Z

zh_sh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #3

函数date是取当前日期
now是取当前日期和时间
time是取当前时间
如果你只要日期的话，可以用datetostr(date)或datatostr(now)
只要时间的话，可以用timetostr(time)或timetostr(now)
全要，用datetimetostr(now)

 

T

tctomsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #4

我的意思是要显视，比如2000年4月23日，而以上两位显现的是00-04-23不符合我的
要求

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #5

日期格式与系统有关的 可在 控制面板 区域设置 日期 中设定

 

S

shijian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #6

C++Builder代码,你应该能读懂

2000年月23日
TDateTime dtPresent = Now();
Word wYear, wMonth, wDay;
DecodeDate(dtPresent, wYear, wMonth, wDay);
Label1->Caption = IntToStr(wYear)+"年"+IntToStr(wMonth)+"月"+IntToStr(wDay)+"日";
200-4-23
Label1->Caption = FormatDateTime("yyyy-mm-dd",Now());

 

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #7

FormatDateTime('yyyy'年'mm'月'dd日',Now());

 

Z

zh_sh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #8

哦，理解错误
用FormatDateTime('yyyy''年''mm''月''dd''日''',now)

 

B

blue76

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #9

DateSeparator:='-';
ShortDateFormat:='yyyy-mm-dd';
LongDateFormat:='yyyy-mm-dd';

 

H

hxchxc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #10

FormatDateTime('yyyy'年'mm'月'dd日',Now());
这样不行，不会显示年月日
可以用下面这样
var year,month,day:word;
DecodeDate(now(),Year, Month, Day);
label1.caption:=inttostr(year)+'年'+inttostr(month)+'月'
+inttostr(day)+'日'

 

F

fstao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #11

控制面板->区域设置->日期->设定4位。OK!

 

C

chimney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #12

哎，来迟了，用FormatDateTime('dddddd',now);

 

W

wind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #13

哎，来迟了...同意chimney
再加上
DateSeparator := '-';
ShortDateFormat := 'yyyy-mm-dd';
LongDateFormat := 'yyyy''年''mm''月''dd''日';
TodayL.Caption := FormatDateTime('dddddd', Date);
这样你就不用去改系统日期了，管它什么长日期短日期一样显示2000年04月23日

 

R

route

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #14

i agree with "ZH_SH", his method is right and accurate!
use Delphi4.0

 

T

tctomsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #15

多谢各位，只可惜分数不够分，只好这样做了。