程序里打星的行为什么不运行啊？——高手解决下 ( 积分: 50 )

if Ismonthin(adoquerymonth,'the_month',getyearandmonth(leave_date)) then
* m3:=(c-1)/d*0.5
else
* m3:=(c-1)/d;
end
else
begin
c:=dayof(strtodate(leave_date));
d:=DaysInaMonth(yearof(strtodate(leave_date)),monthof(strtodate(leave_date)));
if Ismonthin(adoquerymonth,'the_month',getyearandmonth(leave_date)) then
* m3:=(c-1)/d*0.5
else
* m3:=(c-1)/d;
end;

我操，这个世界没有天理了～～～～～