ผมทำวันจำหน่ายผู้ป่วยในเป็น Variable เพื่อให้แสดงวันจำหน่ายเป็นปี พ.ศ. ดังนี้

[panus_t]

ผมทำวันจำหน่ายผู้ป่วยในเป็น Variable เพื่อให้แสดงวันจำหน่ายเป็นปี พ.ศ. ดังนี้
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['date2']);

แต่มีปัญหาว่าถ้าพิมพ์รายงานดังกล่าว แล้ววันจำหน่ายคนไข้ เป็นค่าว่าง มันจะแสดงวันจำหน่ายเป็น 30 ธันวาคม 2542 จะแก้ไขอย่างไรครับ    

[pop_hosxp]

ลองแบบนี้ครับ

โค๊ด: Delphi

1. If [date2]=''
2. then Value:=''
3. else
4. Value := FormatThaiDate('d mmmm yyyy',DBPipeline['date2']);

[panus_t]

ลองแบบนี้ครับ

โค๊ด: Delphi

1. If [date2]=''
2. then Value:=''
3. else
4. Value := FormatThaiDate('d mmmm yyyy',DBPipeline['date2']);

ขอบคุณครับ
ตอนแรกทำแบบนี้ครับ
 if DBPipeline['date2']="" then
    begin
      Value := 'ยังไม่จำหน่ายออก';
    end
 else
    begin
      Value := FormatThaiDate('d mmmm yyyy',DBPipeline['date2']);
    end;
แต่ไม่ Work ไม่ทราบว่ามันผิดตรงไหนครับ 

[panus_t]

Error ครับ

[Terminator2015]

  ระบบแสดงรูปแบบวันที่ครับ จึงแสดงเป็นข้อความไม่ได้ครับ ปรับเป็นค่าว่าง ตาม อ.ป๊อบ ดีกว่าครับ

[panus_t]

ระบบแสดงรูปแบบวันที่ครับ จึงแสดงเป็นข้อความไม่ได้ครับ ปรับเป็นค่าว่าง ตาม อ.ป๊อบ ดีกว่าครับ

"ยังไม่จำหน่ายออก" คำนี้แสดงออกในรายงานอยู่ครับ
แต่ Error ที่ Post เป็น Error จากคำสังของคุณ pop_hosxp ครับ

[panus_t]

ถ้าใช้คำสั่ง
 if DBPipeline['date2'] is null then
    begin
      Value := '';
    end
 else
    begin
      Value := FormatThaiDate('d mmmm yyyy',DBPipeline['date2']);
    end;

จะเข้าเงื่อนไขที่ 2 ครับ

[udomchok]

ตอนแรกทำแบบนี้ครับ
 if DBPipeline['date2']="" then
    begin
      Value := 'ยังไม่จำหน่ายออก';
    end
 else
    begin
      Value := FormatThaiDate('d mmmm yyyy',DBPipeline['date2']);
    end;
แต่ไม่ Work ไม่ทราบว่ามันผิดตรงไหนครับ 

ใช้ "" ไม่ได้ครับ ต้องเป็น '' (single quote 2 ตัว ติดกัน)

===============================================
แนะนำว่าไม่ต้องใช้ begin/end กรณีมี 1 expression ครับ
เช่น
if DBPipeline['date2']='' then
   Value := 'ยังไม่จำหน่ายออก'
 else
   Value := FormatThaiDate('d mmmm yyyy',DBPipeline['date2']);

แค่นี้พอ สังเกต นิพจน์ (expression) หลัง then จะไม่มี ; ปิดท้ายบรรทัดนะครับ

[udomchok]

ลองศึกษาจากตัวอย่างนี้ครับ
CUSTOM-TestDateFormat_UDC

[khaimok]

ผมทำวันจำหน่ายผู้ป่วยในเป็น Variable เพื่อให้แสดงวันจำหน่ายเป็นปี พ.ศ. ดังนี้
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['date2']);

แต่มีปัญหาว่าถ้าพิมพ์รายงานดังกล่าว แล้ววันจำหน่ายคนไข้ เป็นค่าว่าง มันจะแสดงวันจำหน่ายเป็น 30 ธันวาคม 2542 จะแก้ไขอย่างไรครับ    

ลอง แบบนี้ดูครับ
Value := FormatThaiDate('d mmmm',DBPipeline['date2'])+' '+FormatThaiDate('yyyy',DBPipeline['date2']);