关于日期的小问题(30分)

C

carrie4002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-23

• #1

想取系统日期，然后分别取出年、月、日赋给三个字符串变量。
需要代码。谢谢。

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-23

• #2

procedure TForm1.btn1Click(Sender: TObject);
var
wdYY,wdMM,wdDD: Word;
strYear,strMonth,strDate: String;
begin
DecodeDate(Now,wdYY,wdMM,wdDD);
strYear := IntToStr(wdYY); //strYear中为年份，如1999（年）
strMonth := IntToStr(wdMM); //strMonth中为月份，如12（月）
strDate := IntToStr(wddd); //strDate中为日期，如9(日）
end;

 

D

dey-999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-23

• #3

delphi:
formatdatetime('yyyy',now());
formatdatetime('mm',now());
formatdatetime('dd',now());
sql server:
datepart(yyyy,getdate())
datepart(mm,getdate())
datepart(dd,getdate())

 

Z

zsy146

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-23

• #4

var
nowdate : tdateTime;
year,month,day : integer;
begin
nowdate :=now;
year := yearof(nowdate ) ;
month := monthof(nowdate )
day := dayof(nowdate )
end;

 

C

carrie4002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-23

• #5

多人接受答案了。

 

L

lhc4000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-23

• #6

每人10分