函数报错**

beidou

有这么一段代码，delphi里面可以用，X3报错，报错也看不明白，请帮我看看
function TMAINFORM.DaysInAMonth:Word;
var
  ss:Word;
  yy,mm,dd:Word;
begin
  DecodeDate(Now,yy,mm,dd);
  Result:=Business.System.SysUtils.MonthDays[(mm=2) and Business.System.SysUtils.IsLeapYear(yy),mm];
end;

报错信息：
[错误]Biz:\GROUPPRODUCTSTAT\REPORTINPUT\EACHMANAGEINPUT\FUNCJYBJYSJTB.FUNC.DIR\MAINFORM.FORM.PAS(368, 3): Access violation at address 01AAF83C in module 'CLComp.bpl'. Read of address 00000008

lixy

你这个是算什么的？换一个算法试试吧，可能是 and运算 出错了。

beidou

函数目的是取当前月一共有多少天，IsLeapYear 是判断是否闰年

lixy

http://topic.csdn.net/t/20040427/16/3013783.html

atiger

??