BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: ismailsa ที่ มีนาคม 05, 2012, 15:20:29 PM

หัวข้อ: ขอช่วยเรื่องการเทียบค่า BMI ใน Variable
เริ่มหัวข้อโดย: ismailsa ที่ มีนาคม 05, 2012, 15:20:29 PM

{นำค่ามา}
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 แต่โปรแกรมยังแปลผลว่าปกติ ซึ่งไม่ถูกต้อง เงื่อนไขผมมันเขียนไม่ถูกหรือปล่าวครับ มีวิธีเขียนยังงัยได้บ้างครับ ช่วยหน่อยครับ

หัวข้อ: Re: ขอช่วยเรื่องการเทียบค่า BMI ใน Variable
เริ่มหัวข้อโดย: pop_hosxp ที่ มีนาคม 05, 2012, 15:36:11 PM

ต้องเปลี่ยน 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';

หัวข้อ: Re: ขอช่วยเรื่องการเทียบค่า BMI ใน Variable
เริ่มหัวข้อโดย: ismailsa ที่ มีนาคม 05, 2012, 16:11:35 PM

อ้างจาก: pop_hosxp ที่ มีนาคม 05, 2012, 15:36:11 PM

ต้องเปลี่ยน 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 มากครับ
งั้นเสร็จกันซักที

หัวข้อ: Re: ขอช่วยเรื่องการเทียบค่า BMI ใน Variable
เริ่มหัวข้อโดย: udomchok ที่ มีนาคม 05, 2012, 18:34:55 PM

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

หัวข้อ: Re: ขอช่วยเรื่องการเทียบค่า BMI ใน Variable
เริ่มหัวข้อโดย: chaiyahos ที่ มีนาคม 09, 2012, 09:49:51 AM

เห็น 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';