ผู้เขียน หัวข้อ: อ.นาจ ช่วยแก้ไขรายงายให้หน่อยครับ ตรงคำสั่งอายุครับ  (อ่าน 7627 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ Neo

  • Hero Member
  • *****
  • กระทู้: 1,703
  • The Kop
  • Respect: +6
    • ดูรายละเอียด
กำลังหัดใช้ Varible ถ้า อ.นาจมีคู่มือการเขียนรายงานส่งมาให้หน่อยนะครับ ช่วยนี้กำลังขยัน
Mr.Chayanut Suwamat
E-Mail=>Mr.Chayanut9@Gmail.com
BMS DATACENTER ระดับจังหวัดบึงกาฬ Start 1 พ.ย. 2554
สำนักงานสาธารณสุขจังหวัดบึงกาฬ

ออฟไลน์ Neo

  • Hero Member
  • *****
  • กระทู้: 1,703
  • The Kop
  • Respect: +6
    • ดูรายละเอียด
ลืมส่ง Report
Mr.Chayanut Suwamat
E-Mail=>Mr.Chayanut9@Gmail.com
BMS DATACENTER ระดับจังหวัดบึงกาฬ Start 1 พ.ย. 2554
สำนักงานสาธารณสุขจังหวัดบึงกาฬ

ออฟไลน์ nayok

  • Full Member
  • ***
  • กระทู้: 143
  • ทำงานให้สนุก และจงเป็นสุขกับการทำงาน
  • Respect: +1
    • ดูรายละเอียด
ผมขออนุญาตแนะนำนะครับ อยากให้เข้าไปศึกษาดูในเว็บ Delphi Basic ครับจะมีตัวอย่างของคำสั่งทุกคำสั่งใน Variable อธิบาย+ตัวอย่างเข้าใจง่ายดีครับ ตามลิ้งค์เลยครับ
http://www.delphibasics.co.uk/ByFunction.asp?Main=Strings
สุรนนท์ ประกอบพร
โรงพยาบาลนครนายก
HOSxP : 3.5ุ6.11.19d
Server: HP ProLiant ML350 Gen8 DOUBLE XEON E5-2620 X 2 CPU RAM 128 G. SAS 300 G. X 4  Raid 5 
OS: CentOS 6.3 _x64 Linux Server  MySQL 5.5.28-29.1-Percona_x64
Slave: HP ProLiant ML350 Gen8 DOUBLE XEON E5-2620 X 2 CPU RAM 128 G. SAS 300 G. X 4  Raid 5 
OS: CentOS 6.3 _x64 Linux Server  MySQL 5.5.28-29.1-Percona_x64
E-mail: hynix6635@hotmail.com
Nakhonnayok Hospital Tel.037-311151 # 201 (Compcenter)

ออฟไลน์ yord

  • Hero Member
  • *****
  • กระทู้: 1,952
  • PATTANI HOSPITAL
  • Respect: +2
    • ดูรายละเอียด
    • http://www.pattanihos.com
ผมขออนุญาตแนะนำนะครับ อยากให้เข้าไปศึกษาดูในเว็บ Delphi Basic ครับจะมีตัวอย่างของคำสั่งทุกคำสั่งใน Variable อธิบาย+ตัวอย่างเข้าใจง่ายดีครับ ตามลิ้งค์เลยครับ
http://www.delphibasics.co.uk/ByFunction.asp?Main=Strings
แอบมาเก็บเป็นความรู้ครับ  ;D
ขอบคุณครับ  ;D ;D ;D
Mr.Yordying Kongkachan (yord02@gmail.com)
ADMIN PATTANI HOSPITAL  http://www.pattanihos.com
เริ่มใช้ HOSxP พฤศจิกายน 2549
(Master)IBM X3650 M3 QuardCord 3.06 1 CPU 20 GBs. of Ram (up to 68 GBs 29/06/56)
Linux 64bit MySQL 5.5.21 64bit (ด้วยความช่วยเหลือของ อ.บอยครับ)
(Slave1)HP ProLiant ML350 G6 Xeon E5530 2.04 20 GBs. Ram (up to 54 GBs 27/06/56)
Linux 64bit MySQL 5.1.30 64bit Database v.3.56.4.9 (29/06/56) client v.3.56.3.19

ออฟไลน์ snhos

  • Sr. Member
  • ****
  • กระทู้: 373
  • ฉันยังรู้สึกว่าตัวเองยังเด็กในการทำงานและความรู้
  • Respect: +3
    • ดูรายละเอียด
ช่วยตอบ ใน vn_stat ก็มีฟิลด์ อายุ (age_y) ไม่น่าต้องใช้ variable ให้ยุ่งยาก
ผมทำให้เลยแนบไฟล้มาให้ลองดูนะ
โรงพยาบาลไทรน้อย นนทบุรี 60 เตียง
เริ่มระบบ 2551 ขอบคุณอาจารย์หมาน้อย คุณหนุ่ม (รพ.ปากเกร็ด),อ.อ๊อด อ.นาจ และท่านปราชญ์ทุกท่าน ผู้เป็นอาจารย์และคนช่วยเหลือ
Master:IBM Xeon QuardCore X3650 M2 CPU 2.0 ram 28 g
OS:CentOS 6.4
Percona:5.5.33  
hosxp:3.56.9.30

Slave:IBM Xeon QuardCore E5405 CPU 2.0 ram 6 g
OS:CentOS 6.4
Percona:5.5.33  
hosxp:3.56.9.30

LIS LAB
Pfsense Log

ออฟไลน์ golf_win

  • Hero Member
  • *****
  • กระทู้: 3,481
  • Respect: +112
    • ดูรายละเอียด
ขออนุญาติแจมนะครับ  ;D ;D
variable ที่คุณ NEO เขียนมาเกือบถูกแล้วครับขาดแค่วงเล็บปิดแค่อันเดียวลองเปรียบเทียบดูนะครับ
เดิม ---> Value :=    GetThaiAge((GetSQLDateData('select birthday from patient where hn = "'+DBPipeline['hn']+'"') ,CurrentDate);
ใหม่---> Value :=    GetThaiAge((GetSQLDateData('select birthday from patient where hn = "'+DBPipeline['hn']+'"') ),CurrentDate);
 ;D ;D ผมแนบ report แบบ variable มาด้วยครับเผื่อท่านใดต้องการใช้จะได้ไม่ต้องทำใหม่ครับ  ;D ;D
โรงพยาบาลเจ็ดเสมียน จังหวัดราชบุรี
Start 19-1-51    35 station
HOSxP  3.59.5.18 Activate License
Tel. 032-305096-7 ต่อ 118
Web. http://csmhos.thaiddns.com:8080
         http://csmhos.thaieasydns.com:8080

ออฟไลน์ มนตรี บอยรักยุ้ยคนเดียว

  • Hero Member
  • *****
  • กระทู้: 5,369
  • Respect: +12
    • ดูรายละเอียด
    • โรงพยาบาลชุมชน ด่านมะขามเตี้ย
ขออนุญาติแจมนะครับ  ;D ;D
variable ที่คุณ NEO เขียนมาเกือบถูกแล้วครับขาดแค่วงเล็บปิดแค่อันเดียวลองเปรียบเทียบดูนะครับ
เดิม ---> Value :=    GetThaiAge((GetSQLDateData('select birthday from patient where hn = "'+DBPipeline['hn']+'"') ,CurrentDate);
ใหม่---> Value :=    GetThaiAge((GetSQLDateData('select birthday from patient where hn = "'+DBPipeline['hn']+'"') ),CurrentDate);
 ;D ;D ผมแนบ report แบบ variable มาด้วยครับเผื่อท่านใดต้องการใช้จะได้ไม่ต้องทำใหม่ครับ  ;D ;D
:o :o :o :o :o :o
เริ่ม11พย.2548OPD-Paperlessพร้อมHOSxPลดโลกร้อน
IPD-Lesspaper1ตค2560ระบบDmsByNeoNetwork
IPD-Paperless1พ.ค2562ระบบHOSxPXE4
MT-Oracle9.3+MariaDB-10.4.xx,SL-Oracle9.3+MariaDB-11.0.xx
LOG=MySQL-8.4.xx,INV=PostgreSQL11

ออฟไลน์ naj

  • Hero Member
  • *****
  • กระทู้: 2,449
  • Respect: +10
    • ดูรายละเอียด
    • http://www.luangphopern-hospital.com
แก้ไขให้ตามต้องการแล้วครับ
ใช้ function copy ช่วยครับ ตัดเฉพาะอายุที่เป็นปีที่ต้องการ
โค๊ด: Pascal
  1.   Value :=   copy(GetThaiAge((GetSQLDateData('select birthday from patient where hn = "'+DBPipeline['hn']+'"') ,CurrentDate),1,5);
  2.  
« แก้ไขครั้งสุดท้าย: ธันวาคม 30, 2008, 08:44:10 AM โดย naj »
Yindee And Tan

ออฟไลน์ Neo

  • Hero Member
  • *****
  • กระทู้: 1,703
  • The Kop
  • Respect: +6
    • ดูรายละเอียด
ขอบคุณอ.ทุกท่านที่ช่วยสั่งสอน
Mr.Chayanut Suwamat
E-Mail=>Mr.Chayanut9@Gmail.com
BMS DATACENTER ระดับจังหวัดบึงกาฬ Start 1 พ.ย. 2554
สำนักงานสาธารณสุขจังหวัดบึงกาฬ

ออฟไลน์ snhos

  • Sr. Member
  • ****
  • กระทู้: 373
  • ฉันยังรู้สึกว่าตัวเองยังเด็กในการทำงานและความรู้
  • Respect: +3
    • ดูรายละเอียด
ข้อควรคำนึง ถ้าใช้ variable ตามที่ท่านทั้งหลายเขียนมา ผมว่านะเวลาที่เราเรียก report ออกมา  อายุน่าจะผิด สมมติ นาย  ก  ถูกลงวินิจฉัย เมื่อวันที่ 1/12/2551 ว่า เป็นหอบหืด ซึ่งตอนนั้นเขาอายุ 25  ถ้าเราใช้ variable ดังกล่าว ถ้าเราเรียกข้อมูลมาครั้งละวัน  หรือเดือน  อายุจะไม่ตรงกับอายุที่เขาถูกวินิจฉัยว่าเป็นหอบหืด  ผมว่าน่าจะใช้อายุที่มีอยู่แล้วใน vn_stat ดีกว่า ผมพูดถูกหรือเปล่านี้
โรงพยาบาลไทรน้อย นนทบุรี 60 เตียง
เริ่มระบบ 2551 ขอบคุณอาจารย์หมาน้อย คุณหนุ่ม (รพ.ปากเกร็ด),อ.อ๊อด อ.นาจ และท่านปราชญ์ทุกท่าน ผู้เป็นอาจารย์และคนช่วยเหลือ
Master:IBM Xeon QuardCore X3650 M2 CPU 2.0 ram 28 g
OS:CentOS 6.4
Percona:5.5.33  
hosxp:3.56.9.30

Slave:IBM Xeon QuardCore E5405 CPU 2.0 ram 6 g
OS:CentOS 6.4
Percona:5.5.33  
hosxp:3.56.9.30

LIS LAB
Pfsense Log

ออฟไลน์ naj

  • Hero Member
  • *****
  • กระทู้: 2,449
  • Respect: +10
    • ดูรายละเอียด
    • http://www.luangphopern-hospital.com
ถูกต้องครับ ไม่ควรใช้ currentdate ควรใช้ vstdateมากกว่าครับ
Yindee And Tan

ออฟไลน์ Neo

  • Hero Member
  • *****
  • กระทู้: 1,703
  • The Kop
  • Respect: +6
    • ดูรายละเอียด
ขอบคุณอาจารย์ทั้งสองท่านมากครับ ถ้าเป็นอย่างนั้นควรทำอย่างที่อาจารย์กล่าวไว้จริง ควรเอาอายุ ณ วันที่ตรวจรักษา
Mr.Chayanut Suwamat
E-Mail=>Mr.Chayanut9@Gmail.com
BMS DATACENTER ระดับจังหวัดบึงกาฬ Start 1 พ.ย. 2554
สำนักงานสาธารณสุขจังหวัดบึงกาฬ