如何把windows日期格式改成'yyyy-mm-dd'用程序如何实现???(100分)

H

hj007008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #1

如何把windows日期格式改成'yyyy-mm-dd'用程序如何实现???

 

Y

yanghai0437

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #2

如果在程序中你只需要用fomatdate函数就行了,
如果在其他地方,你需要修改windows的"控制
面板"->"区域设置"->日期->"短日期样式"

 

K

kmwap

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #3

formatdatetime('yyyy-mm-dd',now())

 

X

x_coffee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #4

function FormatDateTime(const Format: string; DateTime: TDateTime): string;

 

G

gonghh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #5

以下代码,我在win2000 下调试通过。万无一失 ：）
----------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
DefLCID: LCID;
Buffer: array[0..255] of char;
begin
Application.UpdateFormatSettings := True;
StrPCopy(Buffer,'yyyy-MM-dd');
DefLCID := GetThreadLocale;
if SetLocaleInfo(DefLCID,LOCALE_SSHORTDATE,Buffer) then begin
ShortDateFormat := Buffer;
end;
Application.UpdateFormatSettings := False;
end;

 

P

pcc_mmz1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #6

formatdatetime('yyyy-mm-dd',date())

 

H

hj007008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #7

多人接受答案了。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #8

搜索一下，前一段时间也有人问。有答案的。