อยากได้ script delphi ในการแก้ไขราคายา รหัส ลำดับ ของ สกส ครับ จะได้ สลับไปมาระหว่าง ราคาเก่า กับราคาใหม่ได้ อยากได้ script delphi ที่คล้ายกับคำสั่ง foxpro ที่ผมเขียนใว้ครับ
หลักเกณฑ์ในการกำหนดราคายา คัดลอกจาก อัตราค่าบริการสาธารณสุข ลงวันที่ 21 มิ.ย 2549
ราคาต้นทุนต่อหน่วย (บาท) ราคาที่ให้เบิก
0.01 – 0.20 0.50
0.21 – 0.50 1.00
0.50 – 1 1.50
1.01 – 5 1.50 + 125 % ของส่วนที่เกิน 1 บาท
5.01 – 10 6.50 + 120 % ของส่วนที่เกิน 5 บาท
10.01 – 50 12.50 + 118 % ของส่วนที่เกิน 10 บาท
50.01 – 100 60 + 116 % ของส่วนที่เกิน 50 บาท (60 ปัดเศษจาก 59.70)
100.01 – 500 118 + 114 % ของส่วนที่เกิน 100 บาท
500.01 – 1,000 574 + 112 % ของส่วนที่เกิน 500 บาท
1,000.01 – 5,000 1,134 + 110 % ของส่วนที่เกิน 1,000 บาท
5,000.01 – 10,000 5,534 + 108 % ของส่วนที่เกิน 5,000 บาท
เกิน 10,000 10,934 + 106 % ของส่วนที่เกิน 10,000 บาท
ราคาขายต่ำกว่า 10 บาท ควรปัดให้เป็นเท่าของ 0.25 บาท
ราคาขายสูงกว่า 10 บาท แต่ไม่เกิน 100 บาท ควรปัดให้เป็นเท่าของ 0.50 บาท
ราคาขายสูงกว่า 100 บาท ควรปัดเศษให้เป็นบาท โดย น้อยกว่า 0.50 บาทปัดลง 0.50 ขึ้นไปปัดขึ้น
ตัวอย่าง
ทุน ราคาที่ให้เบิก ราคาที่ให้เบิก ปัดเศษ
2 1.50 + 1.25 X (2 – 1) 2.75 -
4 1.50 + 1.25 X (4 – 1) 5.25 -
8 6.50 + 1.20 X (8 – 5) 10.10 10
16 12.50 + 1.18 X (16 – 10) 19.58 19.50
32 12.50 + 1.18 X (32 – 10) 38.46 38.50
64 60 + 1.16 X (64 – 50) 76.24 76
128 118 + 1.14 X (128 – 100) 149.92 150
512 574 + 1.12 X (512 – 500) 587.44 587
1,024 1,134 + 1.10 X (1,024 – 1,000) 1,160.40 1,160
6,000 5,534 + 1.08 X (6,000 – 5,000) 6,614
11,000 10,934 + 1.06 X (11,000 – 10,000) 11,994
ตัวอย่างคำสั่ง foxpro ที่เขียนใว้ครับ
n_cost=ราคาต้นทุน
Price_N=ราคาที่ให้เบิกได้,ราคาขาย
หัวข้อ: ขยายระยะเวลาการมีผลใช้บังคับประกาศกระทรวงการคลัง เรื่องอัตราค่าบริการสาธารณสุข (อ่าน 11608 ครั้ง)