เปลี่ยนรูปแบบวันที่
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 225   2
URL.หัวข้อ / URL
เปลี่ยนรูปแบบวันที่

ผมเคยเจอในกระทู้เก่าครับแต่ตอนนี้หาไม่เจอแล้ว

คือ ถ้าต้องการให้ผู้ใช้ป้อน 10112545 แล้วให้ออกมาเป็น 10/11/2545
จำทำอย่างไรครับ รู้สึกว่าจะมี Left Mid right นี่แหละครับ
ก็ไม่ค่อยเข้าใจ ขอให้อาจารย์อธิบายด้วยครับ เกี่ยวกับ Left (Date ,2) อะไรแบบนี้ครับ

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R03376
ลองใช้ฟังก์ชันนี้ดูครับ

Function Conver2Date3(strDate As String)
Dim NewDate As Date
NewDate = DateSerial(Right(strDate, 4), Mid(strDate, 3, 2), Left(strDate, 2))
Conver2Date3 = NewDate
End Function

ใช้ DateSerial เข้าช่วย เพื่อให้การเปลี่ยนมีความถูกต้อง

รูปแบบการใช้
DateSerial(Year,Month,Day)

จากนั้นก็ใช้ Right() ไปแยก 4 หลักหลัง ไปใส่ส่วน Year
ใช้ Mid() ไปเอาหลักที่ 3 แล้วนับไปให้ครบ 2 หลัก จะได้หลักที่ 4 มาด้วย นำหลักที่ 3 และ 4 มาเป็น Month
สุดท้าย นำ 2 หลักแรกมาเป็น Day

ฟังก์ชันนี้จะใช้ได้ก็ต่อเมื่อ มีการคียวันที่ และเดือน เป็น 2 หลักตลอด ด้วยนะครับ
2 @R03377
ขอบคุณอาจาร์ยมากครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0387s