对一个日期格式，如何获得日

Question

如(TDateTime)2004-5-9
我想把9这个数字取出来给string1

Answer 1

Var
  y,m,d:word
  present:TDateTime;
begin
  decodedate(present,y,m,d)
  showmessage('日：'+IntToStr(d));
end;
也可以用FormatDateTime()

Answer 2

var
i:integer;
begin
 i:=StrToint(FormatDateTime('dd',date));
 ShowMessage(InttoStr(i));
end;

Answer 3

Unit DateUtils;function DayOf(const AValue: TDateTime): Word;

Answer 4

TTT.java***** TST.CLASS
SourceFile

Tst.java********** TTT.class


TTT

java/lang/Object

***** TST.CLASS


Tst

java/lang/Object

*****

Answer 5

decodedate(present,y,m,d)
不行吗？

Answer 6

一句话搞定
showmessage(formatdatetime('dd',now))

Answer 7

1：formatdatetime('dd',now)；
2：dayof(now);
3.decodedate(present,y,m,d)
任选一个都可以。

Answer 8

1：formatdatetime('dd',now)；
2：dayof(now);
3.decodedate(present,y,m,d)
任选一个都可以。

Answer 9

Var
  y,m,d:word
  present:TDateTime;
begin
  decodedate(present,y,m,d)
  showmessage('日：'+IntToStr(d));
end;