获取系统年份的函数和年月的函数是什么？(50分)

清

清风徐来

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #1

获取系统年份的函数和年月的函数是什么？

 

D

delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #2

DecodeDate(Date, Year, Month, Day);

Date = 取当前日期
Year 年
Month 月
Day 日

 

清

清风徐来

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #3

请问怎么用呀，有没有例子，最好有源代码

 

S

sluger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #4

u can get information from help files!!!

 

D

duckstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #5

var
Year, Month, Day: Word;
begin
DecodeDate(Now, Year, Month, Day);
Showmessage(inttostr(Year));
Showmessage(inttostr(Month));
Showmessage(inttostr(Day));
end;

 

梦

梦菲斯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #6

formatdatetime也可以啊！

 

H

hzqlli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #7

var
Year, Month, Day: Word;
begin
DecodeDate(Now, Year, Month, Day);
inttostr(Year);
inttostr(Month);
inttostr(Day);
end;

 

F

fwcy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #8

formatdatetime('yyyy-mm-dd',date),可获得当前的年月日.

 

P

pengjinlongex

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #9

var
Year, Month, Day: Word;
begin
DecodeDate(Now, Year, Month, Day);
Showmessage(inttostr(Year)+inttostr(Month)+inttostr(Day));

end;

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #10

更简单的办法是
在你的单元的uses中，引用DateUtils单元

然后直接用函数MonthOf(), YearOf(), DayOf()和WeekOf()等函数来获得日期参数的
月、年、日、星期 的值
如
var
wYear: word;
begin
wYear := YearOf(now);
end;

 

D

dz2050

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #11

now

 

Z

zhengbo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #12

var
Persitent: TDateTime;
Year, Month, Day: Word;
begin
Persitent := Now;
DecodeDate(Persitent, Year, Month, Day);
end;

 

K

kenj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #13

在调用sql server的 getdata()函数

 

莞

莞尔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #14

我一般用date获取日期(即年月日，YYYY-MM-DD)，用now获取现在时间,直接运用就行.

 

S

sthsm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #15

到数据库服务器调用时间

然后根据楼上说的可能用 formatdatetim函数取其中的年、月、日字符。

也可用DecodeDate函数

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #16

yearof

 

L

luord

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #17

delphi帮助上不是有嘛！
procedure TForm1.Button1Click(Sender: TObject);

var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end;

 

清

清风徐来

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-22

• #18

多人接受答案了。