如何计算任意一个月份的天数呢？

Question

function DayOfTheMonth(const AValue: TDateTime): Word;

Answer 1

Days := MonthDays[IsLeapYear(y),m]

Answer 2

const
   Month_Days: array[False..True, 1..12] of Word
      = ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
         (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));Days := Month_Days[IsLeapYear(AYear), AMonth];

Answer 3

case month of
  1,3,5,7,8,10,12:days:=31;
  4,6,9,11:days:=30;
  2:begin
      if year mod 4 then days:=29 else days:=28;
    end;

Answer 4

case month of//判断本月的天数
  1,3,5,7,8,10,12:day:=31;
  4,6,9,11:day:=30;
else
begin
if year mod 4=0 then//判断是29天还是28天
  day:=29
else
  day:=28;
end

Answer 5

兄弟啊，你连是否过程都区分不出来，怎么混啊！我定义的是一个数组，直接调用即可，IsLeapYear 是系统自带函数，判断是否闰年。