BMS-HOSxP Community
HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: wiphusit ที่ สิงหาคม 02, 2010, 15:12:03 PM
-
ต้องแก้อย่างไรให้เป็น พ.ศ. ครับ
-
ใช้ function formatthaidate ช่วยครับ
-
;D ;D ;D บอกแล้วอย่าติดเด็กให้มากไป ข้อมูลไม่ค่อยจะอัพเดตเลยวิษิตภูช่วงนี้ ;D ;D ;D
-
ผมตั้ง format ให้เป็นแบบนี้ครับ ได้ พ.ศ. 'd mmmm eeee'
-
;D ;D ;D บอกแล้วอย่าติดเด็กให้มากไป ข้อมูลไม่ค่อยจะอัพเดตเลยวิษิตภูช่วงนี้ ;D ;D ;D
อิอิ ::)
ผมตั้ง format ให้เป็นแบบนี้ครับ ได้ พ.ศ. 'd mmmm eeee'
ถ้าเป็น windows xp ได้ครับ แต่ windows 7 ไม่ได้ครับ
-
;D ;D ;D บอกแล้วอย่าติดเด็กให้มากไป ข้อมูลไม่ค่อยจะอัพเดตเลยวิษิตภูช่วงนี้ ;D ;D ;D
อ. เปลี่ยนชื่อพี่เค้าตลอดเลยนะครับ ;D ;D
-
ใครแก้ได้แล้วบ้างครับ
-
ใครแก้ได้แล้วบ้างครับ
ใช้ function formatthaidate ช่วยครับ
ทำได้แน่นอน แต่มันต้องแก้ทุกฟอร์มเลยครับ
-
ขอตัวอย่างหน่อยครับ
ใครแก้ได้แล้วบ้างครับ
ใช้ function formatthaidate ช่วยครับ
ทำได้แน่นอน แต่มันต้องแก้ทุกฟอร์มเลยครับ
-
ขอตัวอย่างหน่อยครับใครแก้ได้แล้วบ้างครับ
ใช้ function formatthaidate ช่วยครับ
ทำได้แน่นอน แต่มันต้องแก้ทุกฟอร์มเลยครับ
ส่งฟอร์มที่จะใช้ขึ้นระบบมา
-
ขอตัวอย่างหน่อยครับ
... สมมุติว่าเราต้องการให้ข้อมูลจาก DBPipeline['xxx_date'] ให้แสดงเป็น พ.ศ.
ก็สร้าง variable ขึ้นมาแล้วใส่คำสั่งด้านล่างครับ
Value := FormatThaiDate('d mmm yyyy',DBPipeline['xxx_date']);
โดยตรงรูปแบบของปี ต้องใช้ y ไม่ใช่ e นะครับ
แต่ต้องระวังนิดนึงครับ ถ้า DBPipeline['xxx_date'] ไม่มีข้อมูลวันที่อยู่ ตัว variable ที่ใช้ function FormatThaiDate นี้ จะแสดงเป็น วันที่ 30 เดือน ธันวาคม ปี 2442 ครับ
ซึ่งแบบนี้ในห้องคลอดก็จะพบได้ครับ ไม่ได้ลงข้อมูลวันที่ แต่ในช่องวันที่จะแสดง 30 ธันวาคม 2442
บางที่ จนท. มองผ่านๆ นึกว่าลงข้อมูลวันที่แล้ว ก็เลยไม่ได้ใส่ข้อมูลวันที่ก็มีครับ
สงสัยถ้า อ.mn พอมีเวลา ต้องรบกวน(อีกแล้ว ;D) แก้ไขตรงจุดนี้ให้สักนิดครับ ... :D ..
-
ขอตัวอย่างหน่อยครับ
... สมมุติว่าเราต้องการให้ข้อมูลจาก DBPipeline['xxx_date'] ให้แสดงเป็น พ.ศ.
ก็สร้าง variable ขึ้นมาแล้วใส่คำสั่งด้านล่างครับ
Value := FormatThaiDate('d mmm yyyy',DBPipeline['xxx_date']);
โดยตรงรูปแบบของปี ต้องใช้ y ไม่ใช่ e นะครับ
;D แต่ต้องระวังนิดนึงครับ ถ้า DBPipeline['xxx_date'] ไม่มีข้อมูลวันที่อยู่ ตัว variable ที่ใช้ function FormatThaiDate นี้ จะแสดงเป็น วันที่ 30 เดือน ธันวาคม ปี 2442 ครับ
ซึ่งแบบนี้ในห้องคลอดก็จะพบได้ครับ ไม่ได้ลงข้อมูลวันที่ แต่ในช่องวันที่จะแสดง 30 ธันวาคม 2442
บางที่ จนท. มองผ่านๆ นึกว่าลงข้อมูลวันที่แล้ว ก็เลยไม่ได้ใส่ข้อมูลวันที่ก็มีครับ
สงสัยถ้า อ.mn พอมีเวลา ต้องรบกวน(อีกแล้ว ;D) แก้ไขตรงจุดนี้ให้สักนิดครับ ... :D ..
;D ;D;D ตรวจสอบเองก่อน แบบนี้ได้ป่าวครับ
if DBPipeline['xxx_date']='' then
begin
value:='';
end
else
begin
Value := FormatThaiDate('d mmm yyyy',DBPipeline['xxx_date']);
end;
-
;D ;D;D ตรวจสอบเองก่อน แบบนี้ได้ป่าวครับ
if DBPipeline['xxx_date']='' then
begin
value:='';
end
else
begin
Value := FormatThaiDate('d mmm yyyy',DBPipeline['xxx_date']);
end;
... แบบนี้เคยลองแล้ว เหมือนติดอะไรสักอย่างแล้วใช้ไม่ได้ เดี๋ยวนึกก่อนแป๊บนึง ... ;D ...
-
ขอตัวอย่างหน่อยครับ
... สมมุติว่าเราต้องการให้ข้อมูลจาก DBPipeline['xxx_date'] ให้แสดงเป็น พ.ศ.
ก็สร้าง variable ขึ้นมาแล้วใส่คำสั่งด้านล่างครับ
Value := FormatThaiDate('d mmm yyyy',DBPipeline['xxx_date']);
โดยตรงรูปแบบของปี ต้องใช้ y ไม่ใช่ e นะครับ
แต่ต้องระวังนิดนึงครับ ถ้า DBPipeline['xxx_date'] ไม่มีข้อมูลวันที่อยู่ ตัว variable ที่ใช้ function FormatThaiDate นี้ จะแสดงเป็น วันที่ 30 เดือน ธันวาคม ปี 2442 ครับ
ซึ่งแบบนี้ในห้องคลอดก็จะพบได้ครับ ไม่ได้ลงข้อมูลวันที่ แต่ในช่องวันที่จะแสดง 30 ธันวาคม 2442
บางที่ จนท. มองผ่านๆ นึกว่าลงข้อมูลวันที่แล้ว ก็เลยไม่ได้ใส่ข้อมูลวันที่ก็มีครับ
สงสัยถ้า อ.mn พอมีเวลา ต้องรบกวน(อีกแล้ว ;D) แก้ไขตรงจุดนี้ให้สักนิดครับ ... :D ..
ขอต่อจาก อ.ขวดครับ
Value := FormatThaiDate('d mmm [/color]yyyy',DBPipeline['xxx_date']);
ตรง ',DBPipeline['xxx_date']); ให้ใส่ค่าตัวแปรได้ครับ โดยให้ไปประกาศตัวแปรที่
Declarations Variables เช่น ประกาศ d1 =: tdatetime;
แล้วมาที่ Events พิมพ์
begin
d1 := ',DBPipeline['xxx_date']);
end;
แล้วก็ไปพิมพ์ที่ Variable ของวันที่ เป็น
Value := FormatThaiDate('d mmmm yyyy',d1);
-
... แบบนี้เคยลองแล้ว เหมือนติดอะไรสักอย่างแล้วใช้ไม่ได้ เดี๋ยวนึกก่อนแป๊บนึง ... ;D ...
... คือ รู้สึกว่า DBPipeline['xxx_date'] มันจะเป็นวันที่ ไม่ใช่ string เลยใช้ = '' ไม่ได้
เคยลองแบบ DateToStr( DBPipeline['xxx_date']) = '' ก็จะแสดงผลได้ แต่ที่ไม่มีข้อมูลก็จะแสดงเป็น 30 ธันวาคม 2442 อยู่ดีครับ ...
... ที่ผมใช้ตอนนี้คือ แบบข้างล่างครับ(เป็นข้อมูล พ.ศ.ที่เสียชีวิต จากแบบรายงานผู้ป่วย รง.506 ครับ)
if GetSQLStringData('select death_date from surveil_member '+
'where sv_number = "'+DBPipeline['sv_number']+'" ') = '' then
Value := ''
else
Value := FormatThaiDate('yyyy',DBPipeline['death_date']);
... ไม่ทราบว่ามีท่านใดมีแนวทางอื่นแนะนำบ้างหรือเปล่าครับ ... :D ..
-
วันที่พิมพ์เอกสารมันเป็นวันที่จากระบบเป็นวันปัจจุบันนะครับ
-
วันที่พิมพ์เอกสารมันเป็นวันที่จากระบบเป็นวันปัจจุบันนะครับ
... อ๋อออออ.......................... ;D ....
... ถ้าต้องการวันที่ปัจจุบัน ก็ใช้
Value := FormatThaiDate('d mmmm yyyy',CurrentDate);
ก็ได้ครับ ได้วันที่ปัจจุบันเหมือนกัน ... :D ....
-
วันที่พิมพ์เอกสารมันเป็นวันที่จากระบบเป็นวันปัจจุบันนะครับ
... อ๋อออออ.......................... ;D ....
... ถ้าต้องการวันที่ปัจจุบัน ก็ใช้
Value := FormatThaiDate('d mmmm yyyy',CurrentDate);
ขอบคุณครับ
ก็ได้ครับ ได้วันที่ปัจจุบันเหมือนกัน ... :D ....