BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: P1005 ที่ มิถุนายน 13, 2012, 14:54:16 PM

หัวข้อ: ปัญหาวันที่ Windows 7 ครับ
เริ่มหัวข้อโดย: P1005 ที่ มิถุนายน 13, 2012, 14:54:16 PM

เครื่องคอมซื้อมาใหม่เป็น Windows 7 ครับ เวลาพิมพ์ OPD Card หรือฟอร์มอื่น รูปแบบวันที่ มันขึ้นเป็นปี คศ. ดังรูปครับ ไม่ทราบแก้ไขยังไง จริง แล้วมีคนเคยถามแล้วแหล่ะครับ แต่ผมหาคำตอบไม่เจอ รบกวนตอนให้อีกรอบนะครับ หรือส่งลิงค์ให้อีกหน   ขอบคุณครับ

หัวข้อ: Re: ปัญหาวันที่ Windows 7 ครับ
เริ่มหัวข้อโดย: poramat ที่ มิถุนายน 13, 2012, 15:04:22 PM

เข้าไปแก้ไขรายงานครับ วางตัวแปรตามนี้ครับ
Value := FormatThaiDate('d mmmm yyyy', DBPipeline['vstdate'])

สำหรับ form อื่นๆ
แก้รูปแบบวันที่ใน win7
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['birthday'])
Value := FormatThaiDate('d mmmm yyyy', DBPipeline['vstdate'])
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['expiredate'])
Value := FormatThaiDate('d mmmm yyyy', DBPipeline['regdate'])
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['DOB'])
Value := FormatThaiDate('d mmmm yyyy',CurrentDate)

หัวข้อ: Re: ปัญหาวันที่ Windows 7 ครับ
เริ่มหัวข้อโดย: armds ที่ มิถุนายน 13, 2012, 15:09:05 PM

เพิ่มเติม จากพี่ปิ๊ก นะครับ

FormatThaiDate    และ  formatthaidate

ใช้งานไม่เหมือนกันนะครับ  ถ้าให้ดีทั้ง xp และ win7  ให้ใช้  FormatThaiDate  ครับ

หัวข้อ: Re: ปัญหาวันที่ Windows 7 ครับ
เริ่มหัวข้อโดย: ismailsa ที่ ธันวาคม 16, 2012, 11:03:26 AM

ถามต่อนะคับ ในรายงานที่เขียนโดย pascal script เช่น
 st1:=formatdatetime('d mmm eeee',getsqldata('select birthday from patient where hn="'+fcds2['hn']+'"'));
   fcds['name4']:= st1;
ถ้าต้องการคิวรี่ออกมาเป็นปี พ.ศ. เลยได้ไหมครับ มี function หรือปล่าวคับ ลองใช้ function FormatThaiDate ก็ไม่ได้ เพราะตอนนี้ในใบ summary ถ้าปริ้นโดยWin 7 จะยัง ค.ศ อยู่

หัวข้อ: Re: ปัญหาวันที่ Windows 7 ครับ
เริ่มหัวข้อโดย: chk ที่ ธันวาคม 16, 2012, 21:02:52 PM

 8)  แค่เปลี่ยน y เป็น e  สำหรับ WIN 7  นะขอรับ  8)

หัวข้อ: Re: ปัญหาวันที่ Windows 7 ครับ
เริ่มหัวข้อโดย: ismailsa ที่ ธันวาคม 17, 2012, 09:30:13 AM

อ้างจาก: ismailsa ที่ ธันวาคม 16, 2012, 11:03:26 AM

ถามต่อนะคับ ในรายงานที่เขียนโดย pascal script เช่น
 st1:=formatdatetime('d mmm eeee',getsqldata('select birthday from patient where hn="'+fcds2['hn']+'"'));
   fcds['name4']:= st1;
ถ้าต้องการคิวรี่ออกมาเป็นปี พ.ศ. เลยได้ไหมครับ มี function หรือปล่าวคับ ลองใช้ function FormatThaiDate ก็ไม่ได้ เพราะตอนนี้ในใบ summary ถ้าปริ้นโดยWin 7 จะยัง ค.ศ อยู่

ลองเปลี่ยนแล้วไม่ได้ครับ จากคำสั่งข้างบน แต่ได้มาเป็น ค.ศ. แทน

หัวข้อ: Re: ปัญหาวันที่ Windows 7 ครับ
เริ่มหัวข้อโดย: udomchok ที่ ธันวาคม 18, 2012, 03:06:51 AM

อ้างจาก: ismailsa ที่ ธันวาคม 17, 2012, 09:30:13 AM

อ้างจาก: ismailsa ที่ ธันวาคม 16, 2012, 11:03:26 AM

ถามต่อนะคับ ในรายงานที่เขียนโดย pascal script เช่น
 st1:=formatdatetime('d mmm eeee',getsqldata('select birthday from patient where hn="'+fcds2['hn']+'"'));
   fcds['name4']:= st1;
ถ้าต้องการคิวรี่ออกมาเป็นปี พ.ศ. เลยได้ไหมครับ มี function หรือปล่าวคับ ลองใช้ function FormatThaiDate ก็ไม่ได้ เพราะตอนนี้ในใบ summary ถ้าปริ้นโดยWin 7 จะยัง ค.ศ อยู่

ลองเปลี่ยนแล้วไม่ได้ครับ จากคำสั่งข้างบน แต่ได้มาเป็น ค.ศ. แทน

Query ผลลัพธ์จะออกมาเป็น คศ. อยู่แล้วครับ
เวลาแสดงผลก็ไปใช้ FormatThaiDate จัดรูปแบบครับ

หัวข้อ: Re: ปัญหาวันที่ Windows 7 ครับ
เริ่มหัวข้อโดย: Guitar-hero ที่ มิถุนายน 05, 2014, 14:19:25 PM

ผมอยากทราบว่าถ้าผมต้องการกำหนดดังนี้
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['birthday'])

เพื่อให้ windows7 พิมพ์ ค.ศ. เป็นภาษาไทย ผมจะต้องเอา code นี้
ไปวางตรงส่วนไหนของรายงาน ครับ

หัวข้อ: Re: ปัญหาวันที่ Windows 7 ครับ
เริ่มหัวข้อโดย: udomchok ที่ มิถุนายน 07, 2014, 12:24:16 PM

อ้างจาก: Guitar-hero ที่ มิถุนายน 05, 2014, 14:19:25 PM

ผมอยากทราบว่าถ้าผมต้องการกำหนดดังนี้
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['birthday'])

เพื่อให้ windows7 พิมพ์ ค.ศ. เป็นภาษาไทย ผมจะต้องเอา code นี้
ไปวางตรงส่วนไหนของรายงาน ครับ

ศึกษาจาก http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=26640.0 นะครับ