怎样才能取月份的日期 ( 积分: 20 )

A

andyzhouap98111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-09

• #1

要实现当你选某年的某个月份时，返回当前月份的日期，如选2005年一月返回如下
2005年1月1日，2005年1月2日，2005年1月3日..2005年1月30日，2005年1,31日
如果可以的话还能返回星期几就最好

 

A

andyzhouap98111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-09

• #2

要实现当你选某年的某个月份时，返回当前月份的日期，如选2005年一月返回如下
2005年1月1日，2005年1月2日，2005年1月3日..2005年1月30日，2005年1,31日
如果可以的话还能返回星期几就最好

 

K

kite20020304

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-09

• #3

uses DateUtils;
function DaysInMonth(const AValue: TDateTime): Word;
function DayOfWeek(Date: TDateTime): Integer;

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-09

• #4

用DELPHI自带的monthcalendar就可以了

 

无

无泪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-09

• #5

获取星期几
case DayOfWeek(Date) of
1:Week:=' 星期日';
2:Week:=' 星期一';
3:Week:=' 星期二';
4:Week:=' 星期三';
5:Week:=' 星期四';
6:Week:=' 星期五';
7:Week:=' 星期六';
end;

 

A

andyzhouap98111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-09

• #6

2005-1-1怎样才能转成2005年1月1日用formatdatetime好像不行　

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-09

• #7

FormatDatetime('YYYY"年"M"月"D"日&quot
HH"时"NN"分"SS"秒"ZZZ"毫秒"', Now);

 

H

huie_softbug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-09

• #8

我测试的结果是可以的：
var
temp:string;
begin
temp:=FormatDateTime('YYYY"年"M"月"D"日&quot
HH"时"NN"分"SS"秒"ZZZ"毫秒"',Now);
showmessage(temp);

 

A

andyzhouap98111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-11

• #9

多人接受答案了。