แปลงวันที่จาก Integer เป็นวันที่ภาษาไทย
ใช้เขียนบน Fomular นะครับ
โดยเลือก Filed ข้อมูลการที่เก็บวันที่ กรณีที่เก็บเป็นตัวเลขนะครับ
โดย Format ของตัวอย่างนี้คือ 25520420 คือ วันที่ 20 เมษายน 2552 ครับ
StringVar MonthThai;
StringVar NumMonth := Mid (Replace(Replace (ToText ({DataTable1.SAMPLEDATE}),',','' ),'.00',''),5,2);
StringVar YearThai := left(Replace(Replace (ToText ({DataTable1.SAMPLEDATE}),',','' ),'.00',''),4);
StringVar DateThai := Right(Replace(Replace (ToText ({DataTable1.SAMPLEDATE}),',','' ),'.00',''),2);
if (NumMonth="01") Then
DateThai & " มกราคม " & YearThai
else if (NumMonth="02") Then
DateThai & " กุมภาพันธ์ " & YearThai
else if (NumMonth="03") Then
DateThai & " มีนาคม " & YearThai
else if (NumMonth="04") Then
DateThai & " เมษายน " & YearThai
else if (NumMonth="05") Then
DateThai & " พฤษภาคม " & YearThai
else if (NumMonth="06") Then
DateThai & " มิถุนายน " & YearThai
else if (NumMonth="07") Then
DateThai & " กรกฎาคม " & YearThai
else if (NumMonth="08") Then
DateThai & " สิงหาคม " & YearThai
else if (NumMonth="09") Then
DateThai & " กันยายน " & YearThai
else if (NumMonth="10") Then
DateThai & " ตุลาคม " & YearThai
else if(NumMonth="11") Then
DateThai & " พฤศจิกายน " & YearThai
else if (NumMonth="12") Then
DateThai & " ธันวาคม " & YearThai
ลองประยุกต์ใช้ดูนะครับ
วันที่สร้าง : 20 เมษายน 2552 เวลา 08:51
จำนวนคนอ่าน : 7,003
SiAMFOCUS.COM ยังคงรักษาแนวความคิดเดิม คือต้องการให้ที่แห่งนี้เป็นที่ที่แลกเปลี่ยนความรู้ ทางด้านภาษาที่ใช้พัฒนาโปรแกรมต่างๆ ซึ่งเป็น code ที่ใช้งานจริง อาจจะยากสำหรับคนที่เพิ่งเริ่มต้น แต่บทความทางด้านเทคนิค ต่าง ๆ ได้ผ่านการทดสอบการใช้งานมาแล้ว หากใครมีเทคนิคดีดี ก็สามารถส่งเข้ามาได้นะครับ
ปัจจุบัน
SiAMFOCUS.COM ยังได้เปิดบริการ
จด Domain และ บริการ ให้เช่าพื้นที่
Hosting ให้บริการด้านการเรียนการสอน
สอนเขียนเว็บ,
สอน ASP,
สอน PHP ให้บริการเว็บไซต์ โดยรับ
ทำเว็บ, รับ
เขียนโปรแกรม ต่าง ๆ เพื่อหารายได้เสริมและทุน เพื่อให้ทีมงาน มีกำลังใจในการ ทำส่วนของ
FREE CODE ขอแรงใจ แรงเชียร์มาก ๆ ด้วยนะครับ ^^