กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
260 2
URL.หัวข้อ /
URL
เมื่อลง Access Run time วันที่เป็น ค.ศ. มีทางแก้ให้เป็น พ.ศ. หรือเปล่าครับ
ผมลง Mod ของ Access2000 และลง Access Runtime เพื่อไปลงเครื่องต่าง เนื่องจากเครื่องมีหลากหลายรุ่นหลายยี่ห้อ ผมแก้ปัญหาโดยลง Access Runtime และใช้กับ 97,XP หรือแม้กระทั้งเครื่องที่ไม่มี Office ก็ลง Run time และใช้เป็น File Setup แต่ปัญหาของ Runtime คือจะเปลี่ยนระบบวันที่ และอื่นเป็นวันที่ Eng Version ทำอย่างไรจึงจะให้เป็น พ.ศ.เหมือนเดิมครับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R02968
ลองแบบนี้ดูครับ
Function EDate2Thai(dte As Date) As Date
EDate2Thai = DateSerial(Year(dte) - 543, Month(dte), Day(dte))
End Function
Function EDate2Thai(dte As Date) As Date
EDate2Thai = DateSerial(Year(dte) - 543, Month(dte), Day(dte))
End Function
Time: 0.0419s
ทำไม Function นี้ Error ครับ
Public Function DateEngToThai(x As String) As Variant
DateEngToThai = DateSerial(Right(x, 4) - 543, Mid(x, 4, 2), Left(x, 2))
End Function
และอีก Code ผ่านแต่มีปัญหาคือไม่สามารถเปลี่ยนเป็น พ.ศ. ได้ เกิดอะไรขึ้นครับ
Public Function EdateToThai(x As Variant) As String
EdateToThai = Str(Day(x)) & "/" & Str(month(x)) & "/" & Str(year(x))
End Function
ขอบคุณครับ