begin;D ;D ตัวหารเป็น 0
if DBPipeline['sex']=1 then
if DBPipeline['creatinine']<=0.9 then
Value :=141*exp(-0.411*ln(DBPipeline['creatinine']/0.9))*exp(DBPipeline['age_y']*ln(0.993))
else
Value:=141*exp(-1.209*ln(DBPipeline['creatinine']/0.9))*exp(DBPipeline['age_y']*ln(0.993));
if DBPipeline['sex']=2 then
if DBPipeline['creatinine']<=0.7 then
Value:=144*exp(-0.329*ln(DBPipeline['creatinine']/0.7))*exp(DBPipeline['age_y']*ln(0.993))
else
Value:=144*exp(-1.209*ln(DBPipeline['creatinine']/0.7))*exp(DBPipeline['age_y']*ln(0.993));
end;
procedure Variable35OnCalc(var Value: Variant);
begin
if (DBPipeline['egfr']='') then Value:=0 ;
end;
ไม่ผ่านครับมันขึ้นเหมือนเดิม