求一个能返回一个月有多少天的函数(50分)

苦

苦海无边

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #1

；（内容如题）

 

远

远帆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #2

这个问题我不知道。
说说你具体需要干什么？或许我可以帮你。

 

苦

苦海无边

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #3

我随便地说个年月
例如 2004 10 月
他能返回给我这个月有多少天
就是这样啊

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #4

自己算，可以么？
反正一年只有12个月，定义一个数组，分别是
31,28,31,30,31,30,31,
31,30,31,30,31,30,31
，然后通过判断某该月所在年份，如果(Year Mod 4)=0则为闰年。
Function GetDays(year:Integer;month:Integer):Integer;
begin
; case month of
; ; 1,3,5,7,8,10,12:Result:=31;
; ; 4,6,9,11:Result:=30;
; ; 2:if ((year mod 4)=0) then
; ; ; ; Result:=29
; ; ; else
; ; ; ; Result:=28;
; end;
end;

 

苦

苦海无边

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #5

当然可以，关键是我记得有个干这个函数

 

S

shijunwu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #6

function DayOfTheMonth(const AValue: TDateTime): Word;

 

L

lld

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #7

Function GetDays(year:Integer;month:Integer):Integer;
var
; m1, m2: TDate;
begin
; m1 := EncodeDate(year, month, 1);
; m2 := IncMonth(m1, 1);
; Result := m2 - m1;
end;

 

苦

苦海无边

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #8

多人接受答案了。