System Variable ใน windows 7

[wiphusit]

ต้องแก้อย่างไรให้เป็น พ.ศ. ครับ

[pop_hosxp]

ใช้ function formatthaidate ช่วยครับ

[jdadmin1]

  บอกแล้วอย่าติดเด็กให้มากไป ข้อมูลไม่ค่อยจะอัพเดตเลยวิษิตภูช่วงนี้

[smrmpo]

ผมตั้ง format ให้เป็นแบบนี้ครับ ได้ พ.ศ. 'd mmmm eeee'

[wiphusit]

บอกแล้วอย่าติดเด็กให้มากไป ข้อมูลไม่ค่อยจะอัพเดตเลยวิษิตภูช่วงนี้

อิอิ

ผมตั้ง format ให้เป็นแบบนี้ครับ ได้ พ.ศ. 'd mmmm eeee'

ถ้าเป็น windows xp ได้ครับ แต่ windows 7 ไม่ได้ครับ

[skypec]

บอกแล้วอย่าติดเด็กให้มากไป ข้อมูลไม่ค่อยจะอัพเดตเลยวิษิตภูช่วงนี้

อ. เปลี่ยนชื่อพี่เค้าตลอดเลยนะครับ 

[wiphusit]

ใครแก้ได้แล้วบ้างครับ

[doramon]

ใครแก้ได้แล้วบ้างครับ

ใช้ function formatthaidate ช่วยครับ   

ทำได้แน่นอน แต่มันต้องแก้ทุกฟอร์มเลยครับ   

[wiphusit]

ขอตัวอย่างหน่อยครับ

ใครแก้ได้แล้วบ้างครับ

ใช้ function formatthaidate ช่วยครับ  

ทำได้แน่นอน แต่มันต้องแก้ทุกฟอร์มเลยครับ  

[doramon]

ขอตัวอย่างหน่อยครับ

ใครแก้ได้แล้วบ้างครับ

ใช้ function formatthaidate ช่วยครับ  

ทำได้แน่นอน แต่มันต้องแก้ทุกฟอร์มเลยครับ  

ส่งฟอร์มที่จะใช้ขึ้นระบบมา

[Khuad]

ขอตัวอย่างหน่อยครับ

... สมมุติว่าเราต้องการให้ข้อมูลจาก 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  พอมีเวลา ต้องรบกวน(อีกแล้ว  ) แก้ไขตรงจุดนี้ให้สักนิดครับ ...  ..

[James011]

ขอตัวอย่างหน่อยครับ

... สมมุติว่าเราต้องการให้ข้อมูลจาก 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  ตรวจสอบเองก่อน  แบบนี้ได้ป่าวครับ


   if  DBPipeline['xxx_date']=''  then   
      begin
        value:='';
      end
      else
      begin
            Value := FormatThaiDate('d mmm yyyy',DBPipeline['xxx_date']);
      end;

[Khuad]

   
  ;D  ตรวจสอบเองก่อน  แบบนี้ได้ป่าวครับ


   if  DBPipeline['xxx_date']=''  then  
      begin
        value:='';
      end
      else
      begin
            Value := FormatThaiDate('d mmm yyyy',DBPipeline['xxx_date']);
      end;

... แบบนี้เคยลองแล้ว เหมือนติดอะไรสักอย่างแล้วใช้ไม่ได้  เดี๋ยวนึกก่อนแป๊บนึง ...  ...

[ฺBMS-Training Team]

ขอตัวอย่างหน่อยครับ

... สมมุติว่าเราต้องการให้ข้อมูลจาก 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  พอมีเวลา ต้องรบกวน(อีกแล้ว  ) แก้ไขตรงจุดนี้ให้สักนิดครับ ...  ..

ขอต่อจาก อ.ขวดครับ
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);

[Khuad]

... แบบนี้เคยลองแล้ว เหมือนติดอะไรสักอย่างแล้วใช้ไม่ได้  เดี๋ยวนึกก่อนแป๊บนึง ...  ...

... คือ รู้สึกว่า  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']);

... ไม่ทราบว่ามีท่านใดมีแนวทางอื่นแนะนำบ้างหรือเปล่าครับ ... ..

[wiphusit]

วันที่พิมพ์เอกสารมันเป็นวันที่จากระบบเป็นวันปัจจุบันนะครับ

[Khuad]

วันที่พิมพ์เอกสารมันเป็นวันที่จากระบบเป็นวันปัจจุบันนะครับ

... อ๋อออออ..........................     ....

... ถ้าต้องการวันที่ปัจจุบัน ก็ใช้

    Value := FormatThaiDate('d mmmm yyyy',CurrentDate);

    ก็ได้ครับ  ได้วันที่ปัจจุบันเหมือนกัน ...  ....

[wiphusit]

วันที่พิมพ์เอกสารมันเป็นวันที่จากระบบเป็นวันปัจจุบันนะครับ

... อ๋อออออ..........................     ....

... ถ้าต้องการวันที่ปัจจุบัน ก็ใช้

    Value := FormatThaiDate('d mmmm yyyy',CurrentDate);

ขอบคุณครับ

    ก็ได้ครับ  ได้วันที่ปัจจุบันเหมือนกัน ...  ....