;D ;D ;D ;Dผมใช้อยู่ครับ ใน Windows 7 ที่เคยทดสอบครับ อธิบายยาวๆๆ 555
1. ถ้าใช้ GetDateRangeDialog(date1, date2); ใช้สามารถ FormatThaiDate(fFormat, fDate); ได้ครับ
2. แต่ถ้าใช้ GetUserParameter(i) จะใช้ FormatThaiDate(fFormat, fDate) แล้ว Error ครับ
- เลยเปลี่ยนมาใช้ ISO2Date(d, f); แทน
- แต่ ISO2Date(d, f) จะติดปัญหาตอน Preview ใน Report Designer จะได้ ค.ศ. เหมือนเดิม ถึงใช้ eeee แล้วก็ตาม แต่ก็จะไม่มีปัญหาเวลาเปิดใน HOSxP เพราะจะได้ พ.ศ. ตามที่กำหนด ตามที่ผมแสดงตัวอย่างไว้ข้างบน
สรุปคือ GetUserParameter(i) ใช้กับ ISO2Date(d, f); ใช้ใน HOSxP In Windows 7 ได้ครับ
;D ;D Preview Report by HOSxP ดูได้จาก Report ตัวอย่างครับ
;D ;D ;D ;Dผมใช้อยู่ครับ ใน Windows 7 ที่เคยทดสอบครับ อธิบายยาวๆๆ 555
1. ถ้าใช้ GetDateRangeDialog(date1, date2); ใช้สามารถ FormatThaiDate(fFormat, fDate); ได้ครับ
2. แต่ถ้าใช้ GetUserParameter(i) จะใช้ FormatThaiDate(fFormat, fDate) แล้ว Error ครับ
- เลยเปลี่ยนมาใช้ ISO2Date(d, f); แทน
- แต่ ISO2Date(d, f) จะติดปัญหาตอน Preview ใน Report Designer จะได้ ค.ศ. เหมือนเดิม ถึงใช้ eeee แล้วก็ตาม แต่ก็จะไม่มีปัญหาเวลาเปิดใน HOSxP เพราะจะได้ พ.ศ. ตามที่กำหนด ตามที่ผมแสดงตัวอย่างไว้ข้างบน
สรุปคือ GetUserParameter(i) ใช้กับ ISO2Date(d, f); ใช้ใน HOSxP In Windows 7 ได้ครับ
Value :=GetSQLDateData('select firstday from patient where hn="'+DBPipeline['HN']+'" ');
แล้วถ้าแบบนี้กำหนดยังไงครับ
Value := ISO2Date(GetUserParameter(0),'dd mmmm ')+
inttostr(strtoint(ISO2Date(GetUserParameter(0),'yyyy'))+543);
ขอบคุณครัยValue :=GetSQLDateData('select firstday from patient where hn="'+DBPipeline['HN']+'" ');
แล้วถ้าแบบนี้กำหนดยังไงครับ
;D ;D ;D ;Dโค๊ด: Delphi
Value:=FormatThaiDate('dd/mm/yyyy', GetSQLDateData('select firstday from patient where hn="'+DBPipeline['HN']+'" ')) ;
ขอบคุณครัยแล้ว วิภู จะขอบคุณใครล่ะครับ ;D ;D ;D ;D