关于如何分别取出date类型的年，月，日的问题！(50分)

S

sanxiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #1

我想把date类型的年，月和日分别取出，但是不知道有没有这样的函数？
急！谢谢！

 

T

tulipfan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #2

use dateutils;
再到单元里看一下，你会有很大收获的！

 

R

resun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #3

var
Present: TDateTime;
Year, Month, Day:word
begin
Present::=now;
DecodeDate(Present, Year, Month, Day);//分解年，月，日
.....
end;

 

L

louhong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #4

SQLServer里有year(),month(),day()的函数．Delphi好象没有直接可以得到结果的函数，但
是可以根据日期格式，用Copy(S;
Index, Count: Integer): string;来作到

 

T

tianjh007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #5

用FormatDateTime就行了
年： FormatDateTime('yyyy',Date);
月： FormatDateTime('mmmm',Date);
年： FormatDateTime('dd',Date);
看看FormatDateTime的帮助

 

L

lovedp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #6

唉,来晚了,同意resun

 

Z

zhousi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #7

用decodeData,DecodeTime;
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;

 

B

bxqxb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #8

DecodeDate

 

R

rebirth

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #9

如果是delphi7就简单了，直接支持拆分，其他版本也可以弄个delphi7的关于时间处理的单元，少做修改就可以充分搞定你的问题。

 

易

易名烦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #10

同意用formatdatetime()

 

S

sanxiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #11

接受答案了.

 

G

gylgw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #12

用resun的方法：
var
yy,mm,d:word;
begin
DecodeDate(date,yy,mm,dd);//分解年，月，日
.....
end;