ขอช่วยเรื่องการเทียบค่า BMI ใน Variable

[ismailsa]

{นำค่ามา}
Value:= GetSqlStringData('select bmi from opdscreen where vn="'+DBPipeline['vn']+'"');
{เทียบค่า}
if Value < 18.5 then
  Value := '- น้ำหนักน้อยกว่ามาตรฐาน'
else if (Value >= 18.5) or (Value <= 22.9) then
  Value := '- ปกติ'
else if (Value >= 23) or (Value <= 24.9) then
  Value := '- อ้วนระดับ1'
else if (Value >= 25) or (Value <= 29.9) then
  Value := '- อ้วนระดับ 2'
else if Value >= 30 then
  Value := '- อ้วนระดับ 3';

ตอนนี้ใช้งานแล้ว pt ค่า BMI =25.18 แต่โปรแกรมยังแปลผลว่าปกติ ซึ่งไม่ถูกต้อง เงื่อนไขผมมันเขียนไม่ถูกหรือปล่าวครับ มีวิธีเขียนยังงัยได้บ้างครับ ช่วยหน่อยครับ

[pop_hosxp]

ต้องเปลี่ยน or เป็น and ครับ

Value:= GetSqlStringData('select bmi from opdscreen where vn="'+DBPipeline['vn']+'"');

if Value < 18.5 then
  Value := '- น้ำหนักน้อยกว่ามาตรฐาน'
else if (Value >= 18.5) and (Value <= 22.9) then
  Value := '- ปกติ'
else if (Value >= 23) and (Value <= 24.9) then
  Value := '- อ้วนระดับ1'
else if (Value >= 25) and (Value <= 29.9) then
  Value := '- อ้วนระดับ 2'
else if Value >= 30 then
  Value := '- อ้วนระดับ 3';

[ismailsa]

ต้องเปลี่ยน or เป็น and ครับ

Value:= GetSqlStringData('select bmi from opdscreen where vn="'+DBPipeline['vn']+'"');

if Value < 18.5 then
  Value := '- น้ำหนักน้อยกว่ามาตรฐาน'
else if (Value >= 18.5) and (Value <= 22.9) then
  Value := '- ปกติ'
else if (Value >= 23) and (Value <= 24.9) then
  Value := '- อ้วนระดับ1'
else if (Value >= 25) and (Value <= 29.9) then
  Value := '- อ้วนระดับ 2'
else if Value >= 30 then
  Value := '- อ้วนระดับ 3';

ขอบคุณท่าน pop_hosxp มากครับ
งั้นเสร็จกันซักที

[udomchok]

http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=25138.0

[chaiyahos]

เห็น bmi ใน  opdscreen เก็บค่าเป็นทศนิยม 2 ตำแหน่ง
ถ้าใช้แบบนี้ได้ป่าวครับ
Value:= GetSqlStringData('select bmi from opdscreen where vn="'+DBPipeline['vn']+'"');

if Value <= 18.5 then
  Value := '- น้ำหนักน้อยกว่ามาตรฐาน'
else if Value < 23 then
  Value := '- ปกติ'
else if Value< 25 then
  Value := '- อ้วนระดับ1'
else if Value < 30 then
  Value := '- อ้วนระดับ 2'
else if Value >= 30 then
  Value := '- อ้วนระดับ 3';