ผู้เขียน หัวข้อ: เขียนโค้ดใน Variable อย่างไร ให้แสดงวันที่ ที่ไม่เป็นตัวเลขทั้งหมด  (อ่าน 709 ครั้ง)

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

ออฟไลน์ pardon.yu

  • Newbie
  • *
  • กระทู้: 20
  • Respect: 0
    • ดูรายละเอียด
ผมทำสติ๊กเกอร์วันนัด ทุกอย่างใช้ได้หมด อยากแก้ให้วันที่ เป็นวัน แบบ ตัวอย่างแบบนี้ 11 ม.ค. 2565  จะต้องเขียนโค้ดอย่างไรครับ ด้านล่างคือตัวอย่างโค้ดที่เขียนไว้ครับ วันที่มันออกมาเป็นแบบนี้ 11/01/2565

Label59.Caption:= GetSQLStringData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'"');
Label61.Caption:= GetSQLStringData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" and note like "%lab%"  ');
Label64.Caption:= GetSQLStringData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" and note like "%สถานีสุขภาพ%"  ');
« แก้ไขครั้งสุดท้าย: กันยายน 11, 2022, 01:36:16 AM โดย pardon.yu »
 

ออฟไลน์ pop_hosxp

  • Hero Member
  • *****
  • กระทู้: 3,128
  • Respect: +38
    • ดูรายละเอียด
    • Phanomphrai Hospital
ผมทำสติ๊กเกอร์วันนัด ทุกอย่างใช้ได้หมด อยากแก้ให้วันที่ เป็นวัน แบบ ตัวอย่างแบบนี้ 11 ม.ค. 2565  จะต้องเขียนโค้ดอย่างไรครับ ด้านล่างคือตัวอย่างโค้ดที่เขียนไว้ครับ วันที่มันออกมาเป็นแบบนี้ 11/01/2565

Label59.Caption:= GetSQLStringData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'"');
Label61.Caption:= GetSQLStringData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" and note like "%lab%"  ');
Label64.Caption:= GetSQLStringData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" and note like "%สถานีสุขภาพ%"  ');

ลองทดสอบดูครับ

Label59.Caption:= FormatThaiDate('d mm yyyy',GetSQLDateData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" '));
Label61.Caption:= FormatThaiDate('d mm yyyy',GetSQLDateData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" and note like "%lab%"  '));
Label64.Caption:= FormatThaiDate('d mm yyyy',GetSQLDateData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" and note like "%สถานีสุขภาพ%"  '));
pop434241@gmail.com
รพ.พนมไพร จ.ร้อยเอ็ด www.phanomphrai.net

ออฟไลน์ pardon.yu

  • Newbie
  • *
  • กระทู้: 20
  • Respect: 0
    • ดูรายละเอียด
ได้แล้วครับ ขอบคุณมากครับ ผมมือใหม่หัดเขียนครับ
 

ออฟไลน์ pardon.yu

  • Newbie
  • *
  • กระทู้: 20
  • Respect: 0
    • ดูรายละเอียด
รบกวนอีกครั้ง ครับ หลังจากแก้โค้ดแล้ว ไม่สามารถพิมพ์สติกเกอร์ได้ ถ้าเงื่อนไข วันนัดไม่ครับ
จะมีวันนัดทั้งหมด 3 นัด ถ้าขาดนัดใดนัดหนึ่งจะพิมพ์ไม่ได้ กลายเป็นเออเร่อไปเลยครับ