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

[panus_t]

แก้ไข ค.ศ.ให้เป็น พ.ศ.ให้หน่อยครับ
ทำรายงานใน win7 เป็น ค.ศ.
ตัวนี้ผมยังแก้ไขไม่เป็นครับ
 

[nahos]

อุปกรณ์หาปลา

การดึงวันที่เลือกข้อมูลมาใส่ในรายงาน
แบบที่ 1 ใช้ label
(สร้าง  Lebel ไปที่ calc >events> select lebel>ongetTexe > copy>past
 Text := 'ข้อมูลช่วงวันที่   '+ISO2Date(GetUserParameter(0),'dd mmmm eee')+ '  ถึง  '+
          ISO2Date(GetUserParameter(1),'dd mmmm eee') ;

แบบที่2 สร้าง Variable 
Value := FormatThaiDate('dd/mm/eeee',td1);  และ
Value := FormatThaiDate('dd/mm/eeee',td2);
       
หมายเหตุ ใน วันที่ win7 จะใช้ dd mm eee ไม่ได้
ต้องใช้ function กำกับใน report คือ formatthaidate('d mmmm yyyy',date1);

ตัวอย่าง  Variable 
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)       

[udomchok]

อุปกรณ์หาปลา

การดึงวันที่เลือกข้อมูลมาใส่ในรายงาน
แบบที่ 1 ใช้ label
(สร้าง  Lebel ไปที่ calc >events> select lebel>ongetTexe > copy>past
 Text := 'ข้อมูลช่วงวันที่   '+ISO2Date(GetUserParameter(0),'dd mmmm eee')+ '  ถึง  '+
          ISO2Date(GetUserParameter(1),'dd mmmm eee') ;

แบบที่2 สร้าง Variable 
Value := FormatThaiDate('dd/mm/eeee',td1);  และ
Value := FormatThaiDate('dd/mm/eeee',td2);
       
หมายเหตุ ใน วันที่ win7 จะใช้ dd mm eee ไม่ได้
ต้องใช้ function กำกับใน report คือ formatthaidate('d mmmm yyyy',date1);

ตัวอย่าง  Variable 
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)       

ทำถูกแล้วครับ 

[panus_t]

ปัญหาอยู่ที่ตัว variable ของรายงานตัวนี้มันเป็น   Value :=  rxdate1;

มาจาก
procedure GlobalOnCreate;
begin
GetDateRangeDialog(date1, date2);
rxdate1:=date1;
rxdate2:=date2;
{year_th:=InputQuery('กรุณาใส่ปีงบประมาณ พ.ศ.', 'ปีงบประมาณ พ.ศ.'); }
{showMessage(year_th);}
end;

[Khuad]

ปัญหาอยู่ที่ตัว variable ของรายงานตัวนี้มันเป็น   Value :=  rxdate1;

มาจาก
procedure GlobalOnCreate;
begin
GetDateRangeDialog(date1, date2);
rxdate1:=date1;
rxdate2:=date2;
{year_th:=InputQuery('กรุณาใส่ปีงบประมาณ พ.ศ.', 'ปีงบประมาณ พ.ศ.'); }
{showMessage(year_th);}
end;


... จากตรงสีแดงนะครับ ...  ...

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

[panus_t]

ผมลองเอาคำสั่ง
Value := FormatThaiDate('d mmmm yyyy',date1);
ไปแทนที่ใน Variable1 แล้วครับยังไม่ได้ขึ้น Error ครับ

 

[udomchok]

ลองเอาตัวอย่างนี้ไปศึกษาดูนะครับ

[nahos]

มีปัญหาที่ WIndows 8
จะแสดง เดือนออกมา เป็นภาษาอังกฤษ  แก้ยังไงดีครับ

[Guitar-hero]

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

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

[udomchok]

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

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

มีตัวอย่าง....เอาไว้ให้ศึกษา อยู่ข้างบนนี้แล้วครับ

หรือลองดูที่ http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=31921.0