CMzfd:Double; //门诊封顶
CMxbfd:Double;//慢性病封顶
fMzyb:Double;//门诊已报
fMxbYb:Double;//慢性病已报
temp:Double;本此报销
门诊封顶比慢性病封顶要低
要求:门诊报销不能超过门诊封顶,慢性病不能超过封顶,但门诊报销加慢性病报销不能超过慢性病封顶。
用if语句帮我写一下吧!谢谢了!在线等!
CMxbfd:Double;//慢性病封顶
fMzyb:Double;//门诊已报
fMxbYb:Double;//慢性病已报
temp:Double;本此报销
门诊封顶比慢性病封顶要低
要求:门诊报销不能超过门诊封顶,慢性病不能超过封顶,但门诊报销加慢性病报销不能超过慢性病封顶。
用if语句帮我写一下吧!谢谢了!在线等!
begin
Result := True;
if iBXLX = 1 then //门诊报销
begin
if temp + fMzyb > CMzfd then Result := False
end
else begin
if temp + fMxbYb > CMxbfd then Result := False
end;
if temp + fMzyb + fMxbyb > CMxbfd then Result := False
end;