怎样根据系统时间读出本月的第一天的日期和最后一天的日期，有没有相应的函数？(50分)

B

black-eyes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-14

• #1

 

M

miaofeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-14

• #2

在DateUtils单元中：
function StartOfAMonth(const AYear, AMonth: Word): TDateTime;
function EndOfAMonth(const AYear, AMonth: Word): TDateTime;

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-14

• #3

t:=strtodate(formatdatetime('yyyy-mm-',now)+'01');
edit1.Text := formatdatetime('yyyy-mm-dd',t);
t:=strtodate(formatdatetime('yyyy-mm-',incmonth(now,1))+'01')-1;
edit2.Text := formatdatetime('yyyy-mm-dd',t);
要函数的话把1、3两行自定义成函数，放到公共单元就好了。

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-14

• #4

miaofeng的也可以，但要uses DateUtils单元，且至少要Delphi6版本。

 

M

miaofeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-14

• #5

还是用这套函数吧，也在DateUtils单元：
function StartOfTheMonth(const AValue: TDateTime): TDateTime;
function EndOfTheMonth(const AValue: TDateTime): TDateTime;

得到本月第一天和最后一天：
StartOfTheMonth(Now);
EndOfTheMonth(Now);

 

J

jackchin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-14

• #6

没有,自己写
procedure GetFirstLast(const: theDate: TDate
var FirstDate, LastDate: TDate);
var
Y, M, D: Word;
begin
DecodeDate(theDate, Y, M, D);
FirstDate := EncodeDate(Y, M, 1);
if M = 12 then
begin
Inc(Y);
M := 1;
end else Inc(M);
LastDate := EncodeDate(Y, M, 1) - 1;
end;