每月最后一天(100分)

D

dlmn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #1

如何得到每月最后一天?如3月31日，6月30日?

 

B

bigroute

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #2

还是自己手动做吧。有这时间都做完了。

 

F

fpsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #3

算出下一个月第一天，减去一天就是了

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #4

fpsky的办法好，呵呵~

 

F

fpsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #5

Var lDate:TDatetime;
iYear,iMonth,iDay :Word ;
begin
lDate:= Now() ;//得到今天
DeCodeDate(lDate,iYear,iMonth,iDay);
showmessage(datetimetostr(EnCodeDate(iYear,iMonth,1)));//这个月第一天（结果1）
lDate := incMonth(lDate) ;
DeCodeDate(lDate,iYear,iMonth,iDay);
lDate:=EnCodeDate(iYear,iMonth,1);//下个月第一天
lDate := lDate - 1 ;//下个月第一天 再减去一天＝这个月最后一天
showmessage(datetimetostr(ldate));//（结果2）

给分吧

 

F

fpsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #6

有时间看看我的问题
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1252006

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #7

D6中的函数

DaysInMonth //返回某月的天数
IsInLeapYear //指定的日期所在的年份是否闰年

在D6的DateUtils单元中

 

S

smallbs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #8

哈哈！！！

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #9

用现成的函数就行了： EndOfAMonth

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #10

对了，要uses DateUtils，而且要在Delphi6
呵呵
procedure TForm1.Button2Click(Sender: TObject);
begin
Caption := FormatDateTime('yyyy-mm-dd hh:mm:ss', EndOfAMonth(StrToInt(Edit1.Text), StrToInt(Edit2.Text)));
end;

 

H

HeXiang Lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #11

EndOfAMonth,真的是太经点了，怎么就没有在哪里看到Delphi的比较详细的函数介绍呢？
用Delphi那么久了，今天才知道有这么一个函数。

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #12

Delphi的What's new就有这些介绍
一般一拿到新版本的软件，都要看这些东西（如What's new之类）的
如果你不去看，那就比较难搞了。 []

 

Y

Yves

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #13

>>EndOfAMonth,真的是太经点了
把程序员都惯坏了，这点问题都不思考，小心脑袋生锈：—）

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #14

>>把程序员都惯坏了，这点问题都不思考，小心脑袋生锈：—）
大错特错
如果这么基本的东西都还要自己写的话，也太浪费时间了吧？人的生命是有限的啊[]
再说这样基本的东西根本达不到使脑袋不生锈的效果！ []

 

C

Crane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #15

呵呵，CJ，打个招呼~~~~[]

 

M

michael.fly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #16

很好.

 

B

bigroute

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #17

EndOfAMonth？
靠，这函数都有。
真是把Delphi 的程序员惯坏了.

 

C

cqbaobao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #18

聪明的程序用DELPHI[8D]
用DELPHI的程序越来越不聪明[]

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #19

Crane~~~~~~
俺还真长坚实了，呵呵

 

C

Crane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #20

咦？此话怎讲？？