ลองกำหนด format ใน cystal report ครับ
คือ คลิกขวาที่ fieldobject date ที่ต้องการ แล้วเลือกแท็บ date and time ตรง style ให้เลือกเป็น custom style
เสร็จแล้วคลิกที่ปุ่ม customize จะได้ฟอร์ม custom style แล้วเลือกแท็บ date จากนั้นก็กำหนด รายละเอียดดังรูปดูครับ
Select Convert(varchar,receivedate,103) receivedate from MyTable
สร้าง Formular นะครับ
และเขียนคำสั่งตามด้านล่าง
dim MonthNames as string
dim MonthNumber as string
dim YearNumber as number
YearNumber =tonumber(right({command.receivedate},4))
if YearNumber<2500 then
YearNumber =YearNumber+543
end if
MonthNumber =mid({command.receivedate},4,2)
if MonthNumber="01" then
MonthNames="มกราคม"
elseif MonthNumber="02" then
MonthNames="กุมภาพันธ์"
elseif MonthNumber="03" then
MonthNames="มีนาคม"
elseif MonthNumber="04" then
MonthNames="เมษายน"
elseif MonthNumber="05" then
MonthNames="พฤษภาคม"
elseif MonthNumber="06" then
MonthNames="มิถุนายน"
elseif MonthNumber="07" then
MonthNames="กรกฎาคม"
elseif MonthNumber="08" then
MonthNames="สิงหาคม"
elseif MonthNumber="09" then
MonthNames="กันยายน"
elseif MonthNumber="10" then
MonthNames="ตุลาคม"
elseif MonthNumber="11" then
MonthNames="พฤศจิกายน"
elseif MonthNumber="12" then
MonthNames="ธันวาคม"
end if
MonthNames =left({command.receivedate},2) & " " & MonthNames &" " & replace(replace(totext(YearNumber),".00",""),",","")
formula = "วันที่ " & MonthNames