问一个关于日期的问题(50分)

T

Thomas Chong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #1

正在做数据库统计，请问如何得到当前日期的这个月的第一天和最后一天啊？好急，最好给出
程序。

 

D

dongberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
present: TDate;
FirstDate: TDate;
LastDate: TDate;
Year, Month, Day: Word;
begin
Present:= Date;
DecodeDate(Present, Year, Month, Day);
FirstDate:=EncodeDate(Year, Month, 1);
if Month=12 then
LastDate:=EncodeDate(Year, Month,31)
else
LastDate:=EncodeDate(Year, Month+1, 1) - 1;
end;

 

Z

zyl000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #3

我的思路是这样的：先用decodedate()分解出当前日期的年、月、日，
然后用下一个月的1号用encodedate()合成，再减去当月1号，就得到了本月的天数。

 

C

cnaoszh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #4

DecodeDate()函数是正确的

 

L

linglingx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #5

完全同意楼上dongberlin的程序！
可惜来晚了！！

 

M

Mao2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #6

可将 dongberlin 的程序改得更简单，用以下一句代替被注释的语句：
LastDate:=incMonth(FirstDate)-1;

{
if Month=12 then
LastDate:=EncodeDate(Year, Month,31)
else
LastDate:=EncodeDate(Year, Month+1, 1) - 1;
}

 

T

Thomas Chong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #7

接受答案了.