Delphi的Y2k问题！(5分)

Z

zx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-17

• #1

procedure TForm1.Button1Click(Sender:TObject);
var
NowDate,LastDate,DateLong: TDateTime;
begin
NowDate:= Now;
LastDate:= 0;
DateLong:= Nowdate-LastDate;
ShowMessage(DateTimeToStr(NowDate)+#13#10
+DateTimeToStr(LastDate)+#13#10
+DateTimeToStr(DateLong)+#13#10);
end;

delphi不是没有2000年问题吗?可是他的年为什么还是两位显示
？是不是能设置一下？0 怎么变成了1999-12-30?

 

D

DNChen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-17

• #2

好象取了95的默认时间格式，你在control panel中设置一下短日期格式为YYYY/MM/DD就可以了。

 

Z

zx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-17

• #3

对了！
但是能不能在程序里强制一下，或更改control panel的设置？

 

D

DNChen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-17

• #4

可以，具体我忘了，反正是sysutils单元里有几个变量，对应control panel中的设置，只要在程序启动时，修改这些变量就可以了，具体的你自己查帮助吧。修改这些变量不会影响到control panel中的设定.

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-17

• #5

FORMATDATETIME('yyyy-mm-dd',yourdate)

 

Z

zx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-18

• #6

24小时呢？
CJ :今天是星期天，项目到了最关键时候，不过今天我会抽空去刻光盘！

 

D

dragonhh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-22

• #7

使用Decode及Formatdatetime函数可以解决Y2k问题!

 

L

lzw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-23

• #8

to dragonhh,可以说详细点吗？

 

Z

zx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-24

• #9

多人接受答案了。